mikros/rust
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve logging in type.

Browse Source
This commit is contained in:
Graydon Hoare 2010-07-02 12:32:49 -07:00
parent 74775eff7e
commit 0efce5ebe2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1539,8 +1539,11 @@ let process_crate (cx:ctxt) (crate:Ast.crate) : unit =
match slot_defn.Ast.slot_ty with
Some _ -> ()
| None ->
log cx "setting auto slot #%d to %a"
(int_of_node id) Ast.sprintf_ty ty;
log cx "setting auto slot #%d = %a to type %a"
(int_of_node id)
Ast.sprintf_slot_key
(Hashtbl.find cx.ctxt_slot_keys id)
Ast.sprintf_ty ty;
Hashtbl.replace cx.ctxt_all_defns id
(DEFN_slot { slot_defn with
Ast.slot_ty = Some ty })