OpenE2K/rust
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Improve type.ml logging.

Browse Source
This commit is contained in:
Graydon Hoare 2010-07-04 16:42:11 -07:00
parent ff6278f51a
commit 8217ce6228
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/boot/me/type.ml
View File

@ -1589,8 +1589,9 @@ let process_crate (cx:ctxt) (crate:Ast.crate) : unit =
let _ = let _ =
iflog cx iflog cx
(fun _ -> (fun _ ->
log cx "recording resolved lval #%d type %a" log cx "recording resolved lval #%d = %a type %a"
(int_of_node id) (int_of_node id)
Ast.sprintf_lval (Hashtbl.find cx.ctxt_all_lvals id)
Ast.sprintf_ty ty) Ast.sprintf_ty ty)
in in
Hashtbl.add cx.ctxt_all_lval_types id ty Hashtbl.add cx.ctxt_all_lval_types id ty