projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9dbc74b
)
[project @ 1999-05-10 09:26:41 by sof]
author
sof
<unknown>
Mon, 10 May 1999 09:26:41 +0000
(09:26 +0000)
committer
sof
<unknown>
Mon, 10 May 1999 09:26:41 +0000
(09:26 +0000)
integer2Int#, take 3
ghc/includes/PrimOps.h
patch
|
blob
|
history
diff --git
a/ghc/includes/PrimOps.h
b/ghc/includes/PrimOps.h
index
9c3e259
..
6b793c7
100644
(file)
--- a/
ghc/includes/PrimOps.h
+++ b/
ghc/includes/PrimOps.h
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.28 1999/05/07 15:42:49 sof Exp $
+ * $Id: PrimOps.h,v 1.29 1999/05/10 09:26:41 sof Exp $
*
* (c) The GHC Team, 1998-1999
*
*
* (c) The GHC Team, 1998-1999
*
@@
-317,9
+317,9
@@
typedef union {
(r) = \
( arg._mp_size == 0 ) ? \
0 : \
(r) = \
( arg._mp_size == 0 ) ? \
0 : \
- ( arg._mp_size < 0 && arg._mp_d[0] > 0x80000000 ) ? \
- -(I_)arg._mp_d[0] : \
- (I_)arg._mp_d[0]; \
+ (( arg._mp_size < 0 && arg._mp_d[0] != 0x80000000 ) ? \
+ -(I_)arg._mp_d[0] : \
+ (I_)arg._mp_d[0]); \
}
#define integer2Wordzh(r, sa,da) \
}
#define integer2Wordzh(r, sa,da) \