[m-rev.] diff: fixes for mercury_il.il

[Peter Ross]

Hi,


===================================================================


Estimated hours taken: 0.5
Branches: main

runtime/mercury_il.il:
    Get type signatures and names right for the unify/compare predicates
    for heap_pointers.
    Changes to model the fact that type_desc has moved from std_util to
    type_desc.

Index: runtime/mercury_il.il
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_il.il,v
retrieving revision 1.12
diff -u -r1.12 mercury_il.il
--- runtime/mercury_il.il	5 Feb 2002 16:30:08 -0000	1.12
+++ runtime/mercury_il.il	8 Feb 2002 10:40:19 -0000
@@ -47,8 +47,8 @@
 .method public static default int32 
 get_ftn_ptr_heap_pointer_compare() {
 	ldftn void ['mercury'] 'mercury'.'private_builtin__cpp_code'.'mercury_code'::
-	do_compare__heap_pointer_1_0(
-		class [mscorlib]System.Object[], class [mscorlib]System.Object[]&,
+	do_compare__heap_pointer_0_0(
+		class [mscorlib]System.Object[]&,
 		class [mscorlib]System.Object, class [mscorlib]System.Object)
 	ret
 }
@@ -56,9 +56,8 @@
 .method public static default int32 
 get_ftn_ptr_heap_pointer_unify() {
 	ldftn int32 ['mercury'] 'mercury'.'private_builtin__cpp_code'.'mercury_code'::
-	do_unify__heap_pointer_1_0(
-		class [mscorlib]System.Object[], class [mscorlib]System.Object,
-		class [mscorlib]System.Object)
+	do_unify__heap_pointer_0_0(
+		class [mscorlib]System.Object, class [mscorlib]System.Object)
 	ret
 }
 
@@ -306,7 +305,7 @@
 
 .method public static default int32 
 get_ftn_ptr_type_desc_compare() {
-	ldftn void ['mercury'] 'mercury'.'std_util__cpp_code'.'mercury_code'::
+	ldftn void ['mercury'] 'mercury'.'type_desc__cpp_code'.'mercury_code'::
 	do_compare__type_desc_0_0(
 		class [mscorlib]System.Object[]&,
 		class [mscorlib]System.Object, class [mscorlib]System.Object)
@@ -315,7 +314,7 @@
 
 .method public static default int32 
 get_ftn_ptr_type_desc_unify() {
-	ldftn int32 ['mercury'] 'mercury'.'std_util__cpp_code'.'mercury_code'::
+	ldftn int32 ['mercury'] 'mercury'.'type_desc__cpp_code'.'mercury_code'::
 	do_unify__type_desc_0_0(
 		class [mscorlib]System.Object, class [mscorlib]System.Object)
 	ret

--------------------------------------------------------------------------
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
--------------------------------------------------------------------------