From 422b8a6be4aab120685f450db0a520fcb5a8aa6b Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Fri, 25 Jun 2010 11:48:17 -0700 Subject: Unlink (doubly) gc chain on free. --- src/boot/be/abi.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'src/boot/be') diff --git a/src/boot/be/abi.ml b/src/boot/be/abi.ml index adad9d77..4d2a90cd 100644 --- a/src/boot/be/abi.ml +++ b/src/boot/be/abi.ml @@ -29,6 +29,7 @@ let frame_glue_fns_field_reloc = 2;; let exterior_rc_slot_field_refcnt = 0;; let exterior_rc_slot_field_body = 1;; +let exterior_gc_slot_alloc_base = (-3);; let exterior_gc_slot_field_prev = (-3);; let exterior_gc_slot_field_next = (-2);; let exterior_gc_slot_field_ctrl = (-1);; -- cgit v1.2.3