---

yaml
---
r: 761
b: refs/heads/master
c: 967a6f8
h: refs/heads/master
i:
  759: 20a03d6
v: v3

Author: graydon

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 3e513008b1b1aeab915a8bb2d236d51f85469dbe
+refs/heads/master: 967a6f861da8a114bcd3915ae727f9945bd625bc

trunk/src/boot/me/trans.ml

@@ -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