[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