[m-dev.] trivial diff: fix warning in runtime/mercury_getopt.c
Fergus Henderson
fjh at cs.mu.OZ.AU
Sat Oct 16 03:16:53 AEST 1999
Estimated hours taken: 0.1
runtime/mercury_getopt.c:
Add braces around body of `if' statement, to suppress gcc warning.
Workspace: /mount/autofs/home_mercury1/fjh/mercury-sparc
Index: runtime/mercury_getopt.c
===================================================================
RCS file: /home/staff/zs/imp/mercury/runtime/mercury_getopt.c,v
retrieving revision 1.1
diff -u -r1.1 mercury_getopt.c
--- mercury_getopt.c 1998/08/11 06:23:03 1.1
+++ mercury_getopt.c 1999/10/15 16:29:02
@@ -696,7 +696,7 @@
MR_optarg = nameend + 1;
else
{
- if (MR_opterr)
+ if (MR_opterr) {
if (argv[MR_optind - 1][1] == '-')
/* --MR_option */
fprintf (stderr,
@@ -707,6 +707,7 @@
fprintf (stderr,
_("%s: option `%c%s' doesn't allow an argument\n"),
argv[0], argv[MR_optind - 1][0], pfound->name);
+ }
MR_nextchar += strlen (MR_nextchar);
--
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.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to: mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions: mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------
More information about the developers
mailing list