diff options
| author | panne <unknown> | 2000-06-04 20:32:49 +0000 |
|---|---|---|
| committer | panne <unknown> | 2000-06-04 20:32:49 +0000 |
| commit | 83ba8b2c60d36ce4edf6ad4a1da0cf96efab7543 (patch) | |
| tree | 1e8bb24c58c5d3ee73d990703178203073843cb1 | |
| parent | e438b5acf7ac1dd3bdd95e2c66ce4b747dba174a (diff) | |
| download | haskell-83ba8b2c60d36ce4edf6ad4a1da0cf96efab7543.tar.gz | |
[project @ 2000-06-04 20:32:49 by panne]
Fixed braino.
| -rw-r--r-- | ghc/includes/PrimOps.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h index 44909c053a..18f19637b4 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: -------- */ |