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