[m-rev.] trivial diff: ANSI C fix for semaphore.m

Fergus Henderson fjh at cs.mu.OZ.AU
Thu Nov 25 02:31:14 AEDT 2004


Estimated hours taken: 0.25
Branches: main

extras/concurrency/semaphore.m:
	Fix non-ANSI C use of label at end of compound statement
	in inline C code.

Workspace: /home/jupiter/fjh/ws-jupiter/mercury
Index: extras/concurrency/semaphore.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/concurrency/semaphore.m,v
retrieving revision 1.13
diff -u -d -r1.13 semaphore.m
--- extras/concurrency/semaphore.m	3 Mar 2003 14:34:19 -0000	1.13
+++ extras/concurrency/semaphore.m	24 Nov 2004 15:28:37 -0000
@@ -1,5 +1,5 @@
 %---------------------------------------------------------------------------%
-% Copyright (C) 2000-2001,2003 The University of Melbourne.
+% Copyright (C) 2000-2001,2003-2004 The University of Melbourne.
 % This file may only be copied under the terms of the GNU Library General
 % Public License - see the file COPYING.LIB in the Mercury distribution.
 %---------------------------------------------------------------------------%
@@ -172,7 +172,7 @@
 			&&signal_skip_to_the_end_1;
 		MR_schedule(MR_ENGINE(MR_eng_this_context));
 		MR_runnext();
-signal_skip_to_the_end_1:
+signal_skip_to_the_end_1: ;
 	} else {
 		sem->count++;
 		MR_UNLOCK(&(sem->lock), ""semaphore__signal"");
@@ -182,7 +182,7 @@
 			&&signal_skip_to_the_end_2;
 		MR_schedule(MR_ENGINE(MR_eng_this_context));
 		MR_runnext();
-signal_skip_to_the_end_2:
+signal_skip_to_the_end_2: ;
 	}
 #else
 	sem->count++;
@@ -228,7 +228,7 @@
 		sem->suspended = MR_ENGINE(MR_eng_this_context);
 		MR_UNLOCK(&(sem->lock), ""semaphore__wait"");
 		MR_runnext();
-wait_skip_to_the_end:
+wait_skip_to_the_end: ;
 	}
 #else
 	while (sem->count <= 0) {

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



More information about the reviews mailing list