diff options
| -rw-r--r-- | ghc/includes/PrimOps.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h index ba62f8becb..c952cbff1c 100644 --- a/ghc/includes/PrimOps.h +++ b/ghc/includes/PrimOps.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: PrimOps.h,v 1.26 1999/04/27 12:32:15 simonm Exp $ + * $Id: PrimOps.h,v 1.27 1999/05/04 08:58:18 sof Exp $ * * (c) The GHC Team, 1998-1999 * @@ -312,7 +312,7 @@ typedef union { arg._mp_alloc = ((StgArrWords *)da)->words; \ arg._mp_d = (unsigned long int *) (BYTE_ARR_CTS(da)); \ \ - (r) = RET_PRIM_STGCALL1(I_,mpz_get_si,&arg); \ + (r) = RET_PRIM_STGCALL1(I_,mpz_get_ui,&arg); \ } #define integer2Wordzh(r, sa,da) \ |