Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Le debugger accede au type manifeste des abbreviations privees pour l'evaluation 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8686 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Pierre Weis 2007-11-28 22:32:14 +00:00
parent 99c5f87045
commit 39469b7811
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/eval.ml
View File

@ -101,7 +101,7 @@ let rec expression event env = function
end
| E_item(arg, n) ->
let (v, ty) = expression event env arg in
begin match (Ctype.repr(Ctype.expand_head env ty)).desc with
begin match (Ctype.repr(Ctype.expand_head_opt env ty)).desc with
Ttuple ty_list ->
if n < 1 || n > List.length ty_list
then raise(Error(Tuple_index(ty, List.length ty_list, n)))
@ -131,7 +131,7 @@ let rec expression event env = function
end
| E_field(arg, lbl) ->
let (v, ty) = expression event env arg in
begin match (Ctype.repr(Ctype.expand_head env ty)).desc with
begin match (Ctype.repr(Ctype.expand_head_opt env ty)).desc with
Tconstr(path, args, _) ->
let tydesc = Env.find_type path env in
begin match tydesc.type_kind with