[m-dev.] trivial diff: fix portability problem in runtime/mercury.c

[Fergus Henderson]

Estimated hours taken: 0.25

runtime/mercury.c:
	Fix a portability problem: avoid using the gcc extension
	which allows `return' in a void-valued function.

Workspace: /home/mercury0/fjh/mercury
Index: runtime/mercury.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury.c,v
retrieving revision 1.5
diff -u -d -r1.5 mercury.c
--- runtime/mercury.c	2000/05/11 21:10:35	1.5
+++ runtime/mercury.c	2000/05/23 08:02:58
@@ -287,21 +287,21 @@
 mercury__builtin__compare_3_p_1(
 	MR_Word type_info, MR_Word *res, MR_Box x, MR_Box y)
 {
-	return mercury__builtin__compare_3_p_0(type_info, res, x, y);
+	mercury__builtin__compare_3_p_0(type_info, res, x, y);
 }
 
 void
 mercury__builtin__compare_3_p_2(
 	MR_Word type_info, MR_Word *res, MR_Box x, MR_Box y)
 {
-	return mercury__builtin__compare_3_p_0(type_info, res, x, y);
+	mercury__builtin__compare_3_p_0(type_info, res, x, y);
 }
 
 void
 mercury__builtin__compare_3_p_3(
 	MR_Word type_info, MR_Word *res, MR_Box x, MR_Box y)
 {
-	return mercury__builtin__compare_3_p_0(type_info, res, x, y);
+	mercury__builtin__compare_3_p_0(type_info, res, x, y);
 }
 
 /*---------------------------------------------------------------------------*/

-- 
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
--------------------------------------------------------------------------