[m-rev.] diff: accept special names in foreign_type pragmas

[Peter Ross]

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


Estimated hours taken: 0.1
Branches: main

compiler/prog_io_pragma.m:
    Fix a trivial bug where the string and object foreign types were
    being recorded as value types.


Index: prog_io_pragma.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/prog_io_pragma.m,v
retrieving revision 1.43
diff -u -r1.43 prog_io_pragma.m
--- prog_io_pragma.m	15 Feb 2002 14:46:06 -0000	1.43
+++ prog_io_pragma.m	15 Feb 2002 15:59:05 -0000
@@ -244,12 +244,12 @@
 	;
 		String0 = "object"
 	->
-		ForeignType = ok(il(value, "mscorlib",
+		ForeignType = ok(il(reference, "mscorlib",
 			qualified(unqualified("System"), "Object")))
 	;
 		String0 = "string"
 	->
-		ForeignType = ok(il(value, "mscorlib",
+		ForeignType = ok(il(reference, "mscorlib",
 			qualified(unqualified("System"), "String")))
 	;
 		String0 = "float32"

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