trivial diff: fix nondet c_code error messages

Fergus Henderson fjh at cs.mu.OZ.AU
Thu Nov 5 18:01:37 AEDT 1998


Estimated hours taken: 0.25

compiler/prog_io_pragma.m:
	Fix some minor problems with the error messages in the code for
	parsing nondet pragma c_code.

Index: compiler/prog_io_pragma.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/prog_io_pragma.m,v
retrieving revision 1.15
diff -u -r1.15 prog_io_pragma.m
--- prog_io_pragma.m	1998/08/07 00:49:27	1.15
+++ prog_io_pragma.m	1998/11/05 05:24:53
@@ -179,15 +179,15 @@
 					automatic, Shared, yes(SharedContext)),
 				    VarSet, Result)
 		            ;
-		                Result = error("invalid sixth argument in `:- pragma c_code' declaration -- expecting `shared_code(<code>')",
+		                Result = error("invalid sixth argument in `:- pragma c_code' declaration -- expecting `common_code(<code>)'",
 			            LaterTerm)
 			    )
 		        ;
-		            Result = error("invalid fifth argument in `:- pragma c_code' declaration -- expecting `later_code(<code>')",
+		            Result = error("invalid fifth argument in `:- pragma c_code' declaration -- expecting `retry_code(<code>)'",
 			        LaterTerm)
 			)
 		    ;
-		        Result = error("invalid fourth argument in `:- pragma c_code' declaration -- expecting `first_code(<code>')",
+		        Result = error("invalid fourth argument in `:- pragma c_code' declaration -- expecting `first_code(<code>)'",
 			    FirstTerm)
 		    )
 		;

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.



More information about the developers mailing list