[m-rev.] diff: MR_typeclass_info_arg_typeclass_info for .NET

[Peter Ross]

Hi,


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


Estimated hours taken: 0.5
Branches: main

library/private_builtin.m:
    Implement MR_typeclass_info_arg_typeclass_info for the .NET backend.


Index: private_builtin.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/private_builtin.m,v
retrieving revision 1.75
diff -u -r1.75 private_builtin.m
--- private_builtin.m	2001/05/14 14:34:13	1.75
+++ private_builtin.m	2001/05/18 15:05:44
@@ -507,8 +507,12 @@
 static MR_TypeClassInfo MR_typeclass_info_superclass_info(
 	MR_TypeClassInfo tcinfo, int index)
 {
-	mercury::runtime::Errors::SORRY(""foreign code for this function"");
-	return 0;
+	MR_Word tmp;
+	int t1;
+
+	tmp = dynamic_cast<MR_Word> (tcinfo[0]);
+	t1 = mercury::runtime::Convert::ToInt32(tmp[0]) + index;
+	return dynamic_cast<MR_Word> (tcinfo[t1]);
 }
 
 static MR_TypeClassInfo MR_typeclass_info_arg_typeclass_info(

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