[m-rev.] trivial diff: Java: recognise dummy args with `.' as module seperator

[Michael Wybrow]

Estimated hours taken: 0.25
Branches: main

mercury/compiler/mlds_to_java.m:
	Fix a bug where dummy arguments were not being recognised by the
	Java back-end due to the addition of `.' as a module seperator.
	

Index: mlds_to_java.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mlds_to_java.m,v
retrieving revision 1.34
diff -u -r1.34 mlds_to_java.m
--- mlds_to_java.m	16 Jan 2003 06:46:15 -0000	1.34
+++ mlds_to_java.m	23 Jan 2003 03:53:06 -0000
@@ -2836,6 +2836,10 @@
 	Type = mlds__mercury_type(term__functor(term__atom(":"), _, _), _, _),
 	Type = mlds__mercury_type(MercuryType, _, _),
 	type_util__is_dummy_argument_type(MercuryType).
+java_builtin_type(Type, "int", "java.lang.Integer", "intValue") :-
+	Type = mlds__mercury_type(term__functor(term__atom("."), _, _), _, _),
+	Type = mlds__mercury_type(MercuryType, _, _),
+	type_util__is_dummy_argument_type(MercuryType).
 
 :- pred output_std_unop(builtin_ops__unary_op, mlds__rval, 
 		io__state, io__state).

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