From 2c8ae5ca8dd423443e44e3f0863f3c50b3126cd2 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Wed, 25 Aug 2010 16:36:18 -0700 Subject: Add element to closure to hold captured tydesc (not body tydesc). --- src/boot/be/abi.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/boot/be') diff --git a/src/boot/be/abi.ml b/src/boot/be/abi.ml index 32c9f44a..dbbc7135 100644 --- a/src/boot/be/abi.ml +++ b/src/boot/be/abi.ml @@ -62,9 +62,10 @@ let obj_body_elt_fields = 1;; let fn_field_code = binding_field_dispatch;; let fn_field_box = binding_field_bound_data;; -let closure_body_elt_tydesc = 0;; -let closure_body_elt_target = 1;; -let closure_body_elt_bound_args = 2;; +let closure_body_elt_bound_args_tydesc = 0;; +let closure_body_elt_target_tydesc = 1;; +let closure_body_elt_target = 2;; +let closure_body_elt_bound_args = 3;; let tag_elt_discriminant = 0;; let tag_elt_variant = 1;; -- cgit v1.2.3