[project @ 1999-01-29 13:52:09 by simonm]

A couple of underscore got lost a long time ago.

diff --git a/ghc/lib/misc/cbits/ByteOps.c b/ghc/lib/misc/cbits/ByteOps.c
index 11ee7b2..77e017f 100644 (file)
--- a/ghc/lib/misc/cbits/ByteOps.c
+++ b/ghc/lib/misc/cbits/ByteOps.c
@@ -26,7 +26,7 @@ returns the number of bytes taken.
     /* need the ANSI arg decl, so "short" and "float" args dont get promoted */
 #define X2BYTES(type)                          \
 I_                                             \
-type##2bytes(type in, unsigned char *arr)      \
+type##2bytes__(type in, unsigned char *arr)    \
 {                                              \
     union {                                    \
        type i;                                 \
@@ -44,7 +44,7 @@ type##2bytes(type in, unsigned char *arr)     \
 #else /* not STDC */
 #define X2BYTES(type)                          \
 I_                                             \
-type##2bytes(type in, unsigned char *arr)      \
+type##2bytes__(type in, unsigned char *arr)    \
 {                                              \
     union {                                    \
        type i;                                 \