[m-rev.] trivial diff: fix bug with foreign_type & unboxed float

[Fergus Henderson]

Estimated hours taken: 2
Branches: main

runtime/mercury_float.h:
	Fix a bug: there was no definition of MR_make_hp_float_algned()
	for the unboxed float case.  It should be defined as a NOP for
	that case.

Workspace: /home/ceres/fjh/ws-ceres2/mercury
Index: runtime/mercury_float.h
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_float.h,v
retrieving revision 1.14
diff -u -d -r1.14 mercury_float.h
--- runtime/mercury_float.h	21 Aug 2002 11:27:42 -0000	1.14
+++ runtime/mercury_float.h	26 Aug 2002 04:04:12 -0000
@@ -62,6 +62,8 @@
 
   /* unboxed float means we can assume sizeof(MR_Float) == sizeof(MR_Word) */
 
+  #define MR_make_hp_float_aligned() ((void)0)
+
   union MR_Float_Word {
 	MR_Float f;
 	MR_Word w;

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  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
--------------------------------------------------------------------------