diff options
| author | Graydon Hoare <[email protected]> | 2010-07-02 16:12:10 -0700 |
|---|---|---|
| committer | Graydon Hoare <[email protected]> | 2010-07-02 16:12:10 -0700 |
| commit | 63f9bd7b63c32eba2bc74b71c952c21916115d97 (patch) | |
| tree | 94ff4374aa8ff7634e5a4d0b1f37bff0f8553770 | |
| parent | Return LLVM to at least being able to run hello world. (diff) | |
| download | rust-63f9bd7b63c32eba2bc74b71c952c21916115d97.tar.xz rust-63f9bd7b63c32eba2bc74b71c952c21916115d97.zip | |
Trace mark and sever steps in GC.
| -rw-r--r-- | src/boot/me/trans.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index d27b75b1..0d9c281b 100644 --- a/src/boot/me/trans.ml +++ b/src/boot/me/trans.ml @@ -1640,7 +1640,9 @@ let trans_visitor let inner _ (args:Il.cell) = let ty_params = deref (get_element_ptr args 0) in let cell = get_element_ptr args 1 in - sever_ty ty_params (deref cell) ty curr_iso + note_gc_step ty "in sever-glue, severing"; + sever_ty ty_params (deref cell) ty curr_iso; + note_gc_step ty "in sever-glue complete"; in let ty_params_ptr = ty_params_covering ty in let fty = mk_simple_ty_fn [| ty_params_ptr; alias_slot ty |] in @@ -1655,7 +1657,9 @@ let trans_visitor let inner _ (args:Il.cell) = let ty_params = deref (get_element_ptr args 0) in let cell = get_element_ptr args 1 in - mark_ty ty_params (deref cell) ty curr_iso + note_gc_step ty "in mark-glue, marking"; + mark_ty ty_params (deref cell) ty curr_iso; + note_gc_step ty "mark-glue complete"; in let ty_params_ptr = ty_params_covering ty in let fty = mk_simple_ty_fn [| ty_params_ptr; alias_slot ty |] in |