From: panne <unknown>
Date: Sun, 4 Jun 2000 20:32:49 +0000 (+0000)
Subject: [project @ 2000-06-04 20:32:49 by panne]
X-Git-Tag: Approximately_9120_patches~4322
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=83ba8b2c60d36ce4edf6ad4a1da0cf96efab7543;p=ghc-hetmet.git

[project @ 2000-06-04 20:32:49 by panne]
Fixed braino.
---

diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index 44909c0..18f1963 100644
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.56 2000/06/04 18:27:45 panne Exp $
+ * $Id: PrimOps.h,v 1.57 2000/06/04 20:32:49 panne Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -373,11 +373,11 @@ typedef union {
 /* mp_limb_t must be able to hold an StgInt for this to work properly */
 #define gcdIntzh(r,a,b) \
 { mp_limb_t aa = (mp_limb_t)(a); \
-  RET_STGCALL3(StgInt, mpn_gcd_1, (mp_limb_t *)(&aa), 1, (mp_limb_t)(b)); \
+  r = RET_STGCALL3(StgInt, mpn_gcd_1, (mp_limb_t *)(&aa), 1, (mp_limb_t)(b)); \
 }
 
 #define gcdIntegerIntzh(r,sa,a,b) \
-   r = RET_STGCALL3(StgInt, mpn_gcd_1, (mp_limb_t *)(BYTE_ARR_CTS(a)), sa, b)
+  r = RET_STGCALL3(StgInt, mpn_gcd_1, (mp_limb_t *)(BYTE_ARR_CTS(a)), sa, b)
 
 /* The rest are all out-of-line: -------- */