[m-rev.] diff: some leftover array(T) => System.Array fixes.

Tyson Dowd trd at miscrit.be
Thu Aug 9 00:53:07 AEST 2001


Hi,


This change should have been committed with the library and runtime
fixes when we changed array(T) to map to System.Array, but for some
reason it ended up in a different workspace.  Since I implemented the
array stuff in C# we didn't need it, but someone else might use MC++
instead.


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


Estimated hours taken: 0.1
Branches: main

library/array.m:
	Use MR_Array for generic Unify and Compare preds.
	(but these are still unimplemented).

runtime/mercury_mcpp.h:
	Define MR_Array to be System.Array not Object[].



Index: library/array.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/array.m,v
retrieving revision 1.95
diff -u -r1.95 array.m
--- library/array.m	2001/08/03 12:30:50	1.95
+++ library/array.m	2001/08/08 14:47:52
@@ -604,7 +604,7 @@
 
     static int
     __Unify____array_1_0(MR_Word type_info, 
-		MR_Word x, MR_Word y)
+		MR_Array x, MR_Array y)
     {
             mercury::runtime::Errors::SORRY(""unify for array"");
             return 0;
@@ -612,7 +612,7 @@
 
     static void
     __Compare____array_1_0(
-            MR_Word type_info, MR_Word_Ref result, MR_Word x, MR_Word y)
+            MR_Word type_info, MR_Word_Ref result, MR_Array x, MR_Array y)
     {
             mercury::runtime::Errors::SORRY(""compare for array"");
     }
Index: runtime/mercury_mcpp.h
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_mcpp.h,v
retrieving revision 1.9
diff -u -r1.9 mercury_mcpp.h
--- runtime/mercury_mcpp.h	2001/07/31 10:08:02	1.9
+++ runtime/mercury_mcpp.h	2001/08/08 14:47:52
@@ -40,7 +40,7 @@
 
 typedef __gc public class System::Object * MR_Word[];
 typedef __gc public class System::Object * MR_Box;
-typedef __gc public class System::Object * MR_Array[];
+typedef __gc public class System::Array  * MR_Array;
 
 #define MR_Ref(type) type __gc *
 typedef MR_Ref(MR_Box) MR_Box_Ref;

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



More information about the reviews mailing list