Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
52c1ff20
Commit
52c1ff20
authored
May 10, 1999
by
sof
Browse files
[project @ 1999-05-10 09:56:50 by sof]
extend cleanup to integer2Word#
parent
4f2b3ca6
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/includes/PrimOps.h
View file @
52c1ff20
/* -----------------------------------------------------------------------------
* $Id: PrimOps.h,v 1.3
0
1999/05/10 09:5
0:49 simonm
Exp $
* $Id: PrimOps.h,v 1.3
1
1999/05/10 09:5
6:50 sof
Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -319,14 +319,10 @@ typedef union {
(I_)word0; \
}
#define integer2Wordzh(r, sa,da) \
{ MP_INT arg; \
\
arg._mp_size = (sa); \
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 integer2Wordzh(r, sa,da) \
{ StgWord word0 = ((StgWord *)BYTE_ARR_CTS(da))[0]; \
int size = sa; \
(r) = ( size == 0 ) ? 0 : word0 ; \
}
#define cmpIntegerzh(r, s1,d1, s2,d2) \
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment