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

Improve sever_slot logging.

Browse Source
This commit is contained in:
Graydon Hoare 2010-06-25 23:03:06 -07:00
parent 49ac5e6312
commit 90eaaf666b
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/boot/me/trans.ml
View File

@ -2658,6 +2658,7 @@ let trans_visitor
(slot:Ast.slot) (slot:Ast.slot)
(curr_iso:Ast.ty_iso option) (curr_iso:Ast.ty_iso option)
: unit = : unit =
let _ = note_gc_step slot "severing" in
let ty = slot_ty slot in let ty = slot_ty slot in
match slot_mem_ctrl slot with match slot_mem_ctrl slot with
MEM_gc -> MEM_gc ->
@ -2665,15 +2666,12 @@ let trans_visitor
let _ = check_exterior_rty cell in let _ = check_exterior_rty cell in
let null_jmp = null_check cell in let null_jmp = null_check cell in
let rc = exterior_rc_cell cell in let rc = exterior_rc_cell cell in
let _ = note_gc_step slot "severing" in let _ = note_gc_step slot "severing GC slot" in
emit (Il.binary Il.SUB rc (Il.Cell rc) one); emit (Il.binary Il.SUB rc (Il.Cell rc) one);
mov cell zero; mov cell zero;
patch null_jmp patch null_jmp
| MEM_interior when type_is_structured ty -> | MEM_interior when type_is_structured ty ->
(iflog (fun _ ->
annotate ("sever interior slot " ^
(Fmt.fmt_to_str Ast.fmt_slot slot))));
let (mem, _) = need_mem_cell cell in let (mem, _) = need_mem_cell cell in
let tmp = next_vreg_cell Il.voidptr_t in let tmp = next_vreg_cell Il.voidptr_t in
let ty = maybe_iso curr_iso ty in let ty = maybe_iso curr_iso ty in