diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2003-07-02 09:14:35 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2003-07-02 09:14:35 +0000 |
| commit | 3e4bf9252b89c156d6d89cbd61e932bdc1a91781 (patch) | |
| tree | a7a5627fb43832caec7ad8894bac6eb0b7318d0e /debugger/eval.ml | |
| parent | c348f9a6ae467537e4dd6c80811554d540845597 (diff) | |
| download | ocaml-3e4bf9252b89c156d6d89cbd61e932bdc1a91781.tar.gz | |
Revu representation des declarations de type private
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5643 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'debugger/eval.ml')
| -rw-r--r-- | debugger/eval.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/debugger/eval.ml b/debugger/eval.ml index 07c9688ec0..a53589382a 100644 --- a/debugger/eval.ml +++ b/debugger/eval.ml @@ -135,7 +135,7 @@ let rec expression event env = function Tconstr(path, args, _) -> let tydesc = Env.find_type path env in begin match tydesc.type_kind with - Type_record(lbl_list, repr) -> + Type_record(lbl_list, repr, priv) -> let (pos, ty_res) = find_label lbl env ty path tydesc 0 lbl_list in (Debugcom.Remote_value.field v pos, ty_res) |