From 37426e42cf78a43779312d780eecb21a64006d99 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Fri, 25 Jun 2010 21:57:46 -0700 Subject: Add sever-glue, for missing first stage of sweep. --- src/boot/be/abi.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/boot/be') diff --git a/src/boot/be/abi.ml b/src/boot/be/abi.ml index 1a432086..9108a182 100644 --- a/src/boot/be/abi.ml +++ b/src/boot/be/abi.ml @@ -57,8 +57,9 @@ let tydesc_field_align = 2;; let tydesc_field_copy_glue = 3;; let tydesc_field_drop_glue = 4;; let tydesc_field_free_glue = 5;; -let tydesc_field_mark_glue = 6;; -let tydesc_field_obj_drop_glue = 7;; +let tydesc_field_sever_glue = 6;; +let tydesc_field_mark_glue = 7;; +let tydesc_field_obj_drop_glue = 8;; let vec_elt_rc = 0;; let vec_elt_alloc = 1;; -- cgit v1.2.3