[m-rev.] diff: implement some typeclass info procs for il backend.

[Peter Ross]

Hi,


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


Estimated hours taken: 0.5
Branches: main

library/private_builtin.m:
	Provide implementations for MR_typeclass_info_unconstrained_type_info
	and MR_typeclass_info_arg_typeclass_info on the il backend.


Index: library/private_builtin.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/private_builtin.m,v
retrieving revision 1.109
diff -u -r1.109 private_builtin.m
--- library/private_builtin.m	18 Oct 2002 13:25:11 -0000	1.109
+++ library/private_builtin.m	26 Nov 2002 14:02:41 -0000
@@ -370,8 +370,7 @@
 static MR_TypeInfo MR_typeclass_info_unconstrained_type_info(
 	MR_TypeClassInfo tcinfo, int index) 
 {
-	mercury::runtime::Errors::SORRY(""foreign code for this function"");
-	return 0;
+	return dynamic_cast<MR_Word> (tcinfo[index]);
 }
 
 static MR_TypeClassInfo MR_typeclass_info_superclass_info(
@@ -388,8 +387,7 @@
 static MR_TypeClassInfo MR_typeclass_info_arg_typeclass_info(
 	MR_TypeClassInfo tcinfo, int index) 
 {
-	mercury::runtime::Errors::SORRY(""foreign code for this function"");
-	return 0;
+	return dynamic_cast<MR_Word> (tcinfo[index]);
 }
 
 ").

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