[m-rev.] diff: bootstrap type_ctor_desc representation on IL backend.

[Peter Ross]

Hi,


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


Estimated hours taken: 4
Branches: main

<overview or general description of changes>

<directory>/<file>:
	<detailed description of changes>

compiler/mlds_to_il.m:
    Add type_ctor_desc to the list of types which need to be handled
    specially.

runtime/mercury_il.il:
    Refer to the unify and compare functions in the type_desc__cpp_code
    namespace not type_desc.  Fix up the function prototypes so that
    they are correct.


Index: compiler/mlds_to_il.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mlds_to_il.m,v
retrieving revision 1.112
diff -u -r1.112 mlds_to_il.m
--- compiler/mlds_to_il.m	12 Apr 2002 01:24:10 -0000	1.112
+++ compiler/mlds_to_il.m	1 May 2002 14:06:24 -0000
@@ -3324,6 +3324,7 @@
 			; LibModuleName0 = "type_desc",
 				( 
 				  Name = "type_desc", Arity = 0
+				; Name = "type_ctor_desc", Arity = 0
 				)
 			; LibModuleName0 = "private_builtin",
 				( 
Index: runtime/mercury_il.il
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_il.il,v
retrieving revision 1.15
diff -u -r1.15 mercury_il.il
--- runtime/mercury_il.il	19 Apr 2002 12:12:56 -0000	1.15
+++ runtime/mercury_il.il	1 May 2002 14:06:42 -0000
@@ -135,16 +135,16 @@
 
 .method public static default int32
 get_ftn_ptr_type_ctor_desc_compare() {
-	ldftn int32 ['mercury'] 'mercury'.'type_desc'.'mercury_code'::
+	ldftn void ['mercury'] 'mercury'.'type_desc__cpp_code'.'mercury_code'::
 	do_compare__type_ctor_desc_0_0(
-		class [mscorlib]System.Object[], class [mscorlib]System.Object,
+		class [mscorlib]System.Object[]&, class [mscorlib]System.Object,
 		class [mscorlib]System.Object)
 	ret
 }
 
 .method public static default int32
 get_ftn_ptr_type_ctor_desc_unify() {
-	ldftn int32 ['mercury'] 'mercury'.'type_desc'.'mercury_code'::
+	ldftn int32 ['mercury'] 'mercury'.'type_desc__cpp_code'.'mercury_code'::
 	do_unify__type_ctor_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
--------------------------------------------------------------------------