[m-dev.] for review: MLDS back-end: implement typeclasses

Fergus Henderson fjh at cs.mu.OZ.AU
Thu May 11 04:05:22 AEST 2000

I accidentally left out one of the files in my previous diff.
Here it is.  Anyway, I'll go ahead and commit all these changes now.


        Add a typedef for `MR_BaseTypeclassInfo', for use by the
        code generated by rtti_to_mlds.m and mlds_to_c.m
        for base_typeclass_infos.

        Also add another work-around declaration of an MR_TypeCtorInfo;
        with this, the browser directory now compiles.

Index: ../runtime/mercury.h
RCS file: /home/mercury1/repository/mercury/runtime/mercury.h,v
retrieving revision 1.7
diff -u -d -u -r1.7 mercury.h
--- ../runtime/mercury.h	2000/05/08 16:11:05	1.7
+++ ../runtime/mercury.h	1999/12/31 14:01:00
@@ -91,6 +91,7 @@
 typedef const MR_DuFunctorDesc *	MR_DuFunctorDescPtrArray[];
 typedef MR_DuPtagLayout			MR_DuPtagLayoutArray[];
 typedef union MR_TableNode_Union * *	MR_TableNodePtrPtr[];
+typedef MR_Box				MR_BaseTypeclassInfo[];
 ** XXX Currently we hard-code the declarations of the first
@@ -195,6 +196,8 @@
 extern const MR_TypeCtorInfo_Struct
+extern const MR_TypeCtorInfo_Struct
+	mdb__declarative_execution__mdb__declarative_execution__type_ctor_info_trace_atom_0;
 bool mercury__tree234____Unify____tree234_2_0(
 	MR_Word key_type, MR_Word val_type, MR_Word x, MR_Word y); 
 void mercury__tree234____Compare____tree234_2_0(

Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at        |     -- the last words of T. S. Garp.
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au

More information about the developers mailing list