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

Elide mark and sever glue in -minimal mode.

Browse Source
This commit is contained in:
Graydon Hoare 2010-10-09 00:47:02 -07:00
parent 3e513008b1
commit 967a6f861d
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1339,8 +1339,15 @@ let trans_visitor
| _ ->
fix (get_free_glue t (type_has_state cx t));
end;
fix (get_sever_glue t);
fix (get_mark_glue t);
if cx.ctxt_sess.Session.sess_minimal
then Asm.WORD (word_ty_mach, Asm.IMM 0L)
else fix (get_sever_glue t);
if cx.ctxt_sess.Session.sess_minimal
then Asm.WORD (word_ty_mach, Asm.IMM 0L)
else fix (get_mark_glue t);
(* Include any obj-dtor, if this is an obj and has one. *)
begin
match idopt with