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

[Tyson Dowd]

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