From 83ba8b2c60d36ce4edf6ad4a1da0cf96efab7543 Mon Sep 17 00:00:00 2001 From: panne Date: Sun, 4 Jun 2000 20:32:49 +0000 Subject: [PATCH] [project @ 2000-06-04 20:32:49 by panne] Fixed braino. --- ghc/includes/PrimOps.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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: -------- */ -- 1.7.10.4