From 1c1dc651a70a1c8a1ee2ca896f4cc29ec88b363c Mon Sep 17 00:00:00 2001
From: Patrick Walton <pcwalton@mimiga.net>
Date: Sat, 17 Jul 2010 09:36:13 +0800
Subject: Stub an interface to the (as-yet-nonexistent) structural comparison
 glue in trans

---
 src/boot/be/abi.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/boot/be')

diff --git a/src/boot/be/abi.ml b/src/boot/be/abi.ml
index 3f97f0dd..c3e72293 100644
--- a/src/boot/be/abi.ml
+++ b/src/boot/be/abi.ml
@@ -77,6 +77,8 @@ let tydesc_field_free_glue = 5;;
 let tydesc_field_sever_glue = 6;;
 let tydesc_field_mark_glue = 7;;
 let tydesc_field_obj_drop_glue = 8;;
+let tydesc_field_cmp_glue = 9;;
+let tydesc_field_hash_glue = 10;;
 
 let vec_elt_rc = 0;;
 let vec_elt_alloc = 1;;
-- 
cgit v1.2.3