[m-rev.] for review: Java: fix an assignment bug

[Michael Wybrow]

Estimated hours taken: 2
Branches: main

mercury/compiler/mlds_to_java.m:
        Fix a bug in the Java back-end where incorrect code was being
	generated for assignments if the Lval was a field with type 
	enum_type.


Index: mlds_to_java.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mlds_to_java.m,v
retrieving revision 1.33
diff -u -r1.33 mlds_to_java.m
--- mlds_to_java.m	24 Nov 2002 03:57:26 -0000	1.33
+++ mlds_to_java.m	15 Jan 2003 06:54:36 -0000
@@ -2448,7 +2448,11 @@
 	output_lval(Lval),
 	io__write_string(" = "),
 	( 
-		{ Lval = var(_, VarType) }, 
+		(
+			{ Lval = var(_, VarType) }
+		;
+			{ Lval = field(_, _, _, VarType, _) }
+		),
 	    	{ type_is_object(VarType) } 
 	    
 	->

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