From d2b845d29ca9f36f21967ad1b4829b84ef4aa808 Mon Sep 17 00:00:00 2001 From: Roy Frostig Date: Thu, 15 Jul 2010 16:54:38 -0700 Subject: Define (in Abi) and use named constants for indices of elements of an obj IL referent type. --- src/boot/be/abi.ml | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/boot/be') diff --git a/src/boot/be/abi.ml b/src/boot/be/abi.ml index bd71229d..f4c30e74 100644 --- a/src/boot/be/abi.ml +++ b/src/boot/be/abi.ml @@ -49,6 +49,10 @@ let binding_size = 2;; let binding_field_item = 0;; let binding_field_binding = 1;; +let obj_elt_rc = 0;; +let obj_elt_tydesc = 1;; +let obj_elt_fields = 2;; + let general_code_alignment = 16;; let tydesc_field_first_param = 0;; -- cgit v1.2.3