From: simonm <unknown>
Date: Mon, 1 Mar 1999 10:25:20 +0000 (+0000)
Subject: [project @ 1999-03-01 10:25:20 by simonm]
X-Git-Tag: Approximately_9120_patches~6483
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e0a630ed3d3b26f367a31b94479f46a94625a074;p=ghc-hetmet.git

[project @ 1999-03-01 10:25:20 by simonm]
Missing { in mulIntCzh
---

diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index 26a873e..8ca1869 100644
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.20 1999/02/18 12:26:11 simonm Exp $
+ * $Id: PrimOps.h,v 1.21 1999/03/01 10:25:20 simonm Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -153,15 +153,16 @@ typedef union {
     StgInt32 i[2];
 } long_long_u ;
 
-#define mulIntCzh(r,c,a,b)						\
-  long_long_u z;							\
-  z.l = (StgInt64)a * (StgInt64)b;					\
-  r = z.i[R];								\
-  c = z.i[C];								\
-  if (c == 0 || c == -1) {						\
-    c = ((StgWord)((a^b) ^ r))						\
-      >> (BITS_PER_BYTE * sizeof(I_) - 1);				\
-  }									\
+#define mulIntCzh(r,c,a,b)			\
+{						\
+  long_long_u z;				\
+  z.l = (StgInt64)a * (StgInt64)b;		\
+  r = z.i[R];					\
+  c = z.i[C];					\
+  if (c == 0 || c == -1) {			\
+    c = ((StgWord)((a^b) ^ r))			\
+      >> (BITS_PER_BYTE * sizeof(I_) - 1);	\
+  }						\
 }
 /* Careful: the carry calculation above is extremely delicate.  Make sure
  * you test it thoroughly after changing it.