[m-rev.] [dotnet-foreign] diff: mlds_to_csharp bug fixes.

[Peter Ross]

Hi,


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


Estimated hours taken: 0.2
Branches: dotnet-foreign

Various bug fixes.

compiler/mlds_to_csharp.m:
    Add a missing public declaration when declaring the mercury_code
    class.
    No longer output mercury.MR_Box for il_generic_class_name.

Index: mlds_to_csharp.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mlds_to_csharp.m,v
retrieving revision 1.1.2.1
diff -u -r1.1.2.1 mlds_to_csharp.m
--- mlds_to_csharp.m	2001/05/03 13:04:54	1.1.2.1
+++ mlds_to_csharp.m	2001/05/03 17:23:14
@@ -117,7 +117,7 @@
 	)),
 
 	io__write_strings([
-		"\nclass mercury_code",
+		"\npublic class mercury_code",
 		"{\n"]),
 
 		% Output the contents of pragma foreign_code declarations.
@@ -464,11 +464,7 @@
 write_il_simple_type_as_csharp_type(refany) --> 
 	io__write_string("mercury.MR_RefAny").
 write_il_simple_type_as_csharp_type(class(ClassName)) --> 
-	( { ClassName = il_generic_class_name } ->
-		io__write_string("mercury.MR_Box")
-	;
-		write_csharp_class_name(ClassName)
-	).
+	write_csharp_class_name(ClassName).
 		% XXX this is not the right syntax
 write_il_simple_type_as_csharp_type(value_class(ClassName)) --> 
 	write_csharp_class_name(ClassName).

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