Commit 8b41b28f authored by sof's avatar sof
Browse files

[project @ 1999-05-04 08:58:18 by sof]

integer2Int# isn't sign preserving any longer, but modulo maxBound
parent 539d72f6
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $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 * (c) The GHC Team, 1998-1999
* *
...@@ -312,7 +312,7 @@ typedef union { ...@@ -312,7 +312,7 @@ typedef union {
arg._mp_alloc = ((StgArrWords *)da)->words; \ arg._mp_alloc = ((StgArrWords *)da)->words; \
arg._mp_d = (unsigned long int *) (BYTE_ARR_CTS(da)); \ 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) \ #define integer2Wordzh(r, sa,da) \
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment