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

[Tyson Dowd]

This is fine, but it should also go on the main branch.

On 04-May-2001, Peter Ross <petdr at miscrit.be> wrote:
> 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
> --------------------------------------------------------------------------

-- 
       Tyson Dowd           # 
                            #  Surreal humour isn't everyone's cup of fur.
     trd at cs.mu.oz.au        # 
http://www.cs.mu.oz.au/~trd #
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------