[m-dev.] trivial diff: fix for cfloat.m in hl* grades

Fergus Henderson fjh at cs.mu.OZ.AU
Fri Dec 22 11:35:41 AEDT 2000


Estimated hours taken: 0.25

extras/clpr/cfloat.m:
	Extend the `#ifndef ... #define ... #endif' guards in `pragma
	c_header_code' declarations, so that they cover some more
	declarations which can't be included twice.
	This is needed to get it to compile in hl* grades.

Workspace: /home/pgrad/fjh/ws/hg
Index: extras/clpr/cfloat.m
===================================================================
RCS file: /home/mercury1/repository/clpr/cfloat.m,v
retrieving revision 1.31.2.1
diff -u -d -r1.31.2.1 cfloat.m
--- extras/clpr/cfloat.m	2000/12/20 01:24:13	1.31.2.1
+++ extras/clpr/cfloat.m	2000/12/22 00:32:20
@@ -502,10 +502,10 @@
 
 :- pragma c_header_code("
 
-#ifndef ML_CFLOAT_SVAR_GUARD
-#define ML_CFLOAT_SVAR_GUARD
+#ifndef ML_CFLOAT_HEADER_GUARD
+#define ML_CFLOAT_HEADER_GUARD
+
 typedef MR_Integer ML_svar;
-#endif
 
 /*
 ** The following ""functions"" are currently all implemented using macros.
@@ -874,6 +874,8 @@
 	)
 
 #endif
+
+#endif /* ML_CFLOAT_HEADER_GUARD */
 
 ").
 

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "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-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