Commit 52c1ff20 authored by sof's avatar sof
Browse files

[project @ 1999-05-10 09:56:50 by sof]

extend cleanup to integer2Word#
parent 4f2b3ca6
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: PrimOps.h,v 1.30 1999/05/10 09:50:49 simonm Exp $ * $Id: PrimOps.h,v 1.31 1999/05/10 09:56:50 sof Exp $
* *
* (c) The GHC Team, 1998-1999 * (c) The GHC Team, 1998-1999
* *
...@@ -320,13 +320,9 @@ typedef union { ...@@ -320,13 +320,9 @@ typedef union {
} }
#define integer2Wordzh(r, sa,da) \ #define integer2Wordzh(r, sa,da) \
{ MP_INT arg; \ { StgWord word0 = ((StgWord *)BYTE_ARR_CTS(da))[0]; \
\ int size = sa; \
arg._mp_size = (sa); \ (r) = ( size == 0 ) ? 0 : word0 ; \
arg._mp_alloc = ((StgArrWords *)da)->words; \
arg._mp_d = (unsigned long int *) (BYTE_ARR_CTS(da)); \
\
(r) = RET_PRIM_STGCALL1(I_,mpz_get_ui,&arg); \
} }
#define cmpIntegerzh(r, s1,d1, s2,d2) \ #define cmpIntegerzh(r, s1,d1, s2,d2) \
......
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