[m-rev.] for review: TYPE_CTOR_REP_REFERENCE

[Fergus Henderson]

On 11-Feb-2003, Fergus Henderson <fjh at cs.mu.OZ.AU> wrote:
> On 10-Feb-2003, Fergus Henderson <fjh at cs.mu.OZ.AU> wrote:
> > 
> > Implement deep_copy for reference types.
> > This is needed for accurate GC.
> 
> I missed a couple of files in my original post.

And some more...

Estimated hours taken: 0.25
Branches: main

Fix some omissions in my previous change to add `MR_TYPECTOR_REP_UNKNOWN'
that broke things in grade `il'.

runtime/mercury_mcpp.cpp:
	Define MR_TYPECTOR_REP_REFERENCE.

runtime/mercury_il.il:
	Support unify/compare of references.

Workspace: /home/fjh/ws/hermes
Index: runtime/mercury_il.il
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_il.il,v
retrieving revision 1.17
diff -u -d -r1.17 mercury_il.il
--- runtime/mercury_il.il	23 Jul 2002 08:26:29 -0000	1.17
+++ runtime/mercury_il.il	10 Feb 2003 17:59:56 -0000
@@ -254,6 +254,23 @@
 }
 
 .method public static default int32 
+get_ftn_ptr_ref_compare() {
+	ldftn void ['mercury'] 'mercury'.'private_builtin__cpp_code'.'mercury_code'::
+	do_compare__ref_1_0(
+		class [mscorlib]System.Object[]&,
+		class [mscorlib]System.Object, class [mscorlib]System.Object)
+	ret
+}
+
+.method public static default int32 
+get_ftn_ptr_ref_unify() {
+	ldftn int32 ['mercury'] 'mercury'.'private_builtin__cpp_code'.'mercury_code'::
+	do_unify__ref_1_0(
+		class [mscorlib]System.Object, class [mscorlib]System.Object)
+	ret
+}
+
+.method public static default int32 
 get_ftn_ptr_string_compare() {
 	ldftn void ['mercury'] 'mercury'.'builtin__cpp_code'.'mercury_code'::
 	do_compare__string_0_0(
Index: runtime/mercury_mcpp.cpp
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_mcpp.cpp,v
retrieving revision 1.15
diff -u -d -r1.15 mercury_mcpp.cpp
--- runtime/mercury_mcpp.cpp	1 Aug 2002 11:52:26 -0000	1.15
+++ runtime/mercury_mcpp.cpp	10 Feb 2003 17:59:56 -0000
@@ -150,7 +150,8 @@
     static int MR_TYPECTOR_REP_TYPEDESC	        	=35;
     static int MR_TYPECTOR_REP_TYPECTORDESC	        =36;
     static int MR_TYPECTOR_REP_FOREIGN			=37;
-    static int MR_TYPECTOR_REP_UNKNOWN		        =38;
+    static int MR_TYPECTOR_REP_REFERENCE		=38;
+    static int MR_TYPECTOR_REP_UNKNOWN		        =39;
 
     static int MR_SECTAG_NONE				= 0;
     static int MR_SECTAG_LOCAL				= 1;

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------