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

[Peter Ross]

Hi,


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


Estimated hours taken: 0.1
Branches: main

compiler/prog_io_pragma.m:
    Add `native int' and `native unsigned int' as alternatives for
    `natural int' and `natural unsigned int' when parsing foreign_type
    decls.


Index: prog_io_pragma.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/prog_io_pragma.m,v
retrieving revision 1.44
diff -u -r1.44 prog_io_pragma.m
--- prog_io_pragma.m	15 Feb 2002 16:00:29 -0000	1.44
+++ prog_io_pragma.m	15 Feb 2002 17:23:09 -0000
@@ -282,12 +282,13 @@
 		ForeignType = ok(il(value, "mscorlib",
 			qualified(unqualified("System"), "Int64")))
 	;
-		String0 = "natural int"
+		( String0 = "natural int" ; String0 = "native int" )
 	->
 		ForeignType = ok(il(value, "mscorlib",
 			qualified(unqualified("System"), "IntPtr")))
 	;
-		String0 = "natural unsigned int"
+		( String0 = "natural unsigned int" 
+		; String0 = "native unsigned int" )
 	->
 		ForeignType = ok(il(value, "mscorlib",
 			qualified(unqualified("System"), "UIntPtr")))

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