diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-03-30 05:03:46 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-03-30 05:03:46 +0000 |
| commit | fcc885515af8842a50b4a59a7220353401132fd2 (patch) | |
| tree | 3ac8515b415d079e264997e379d7066416abdf9a /rts/RtsAPI.c | |
| parent | 456dc6d6c193f693661409609dc28d5ad9d8c984 (diff) | |
| download | haskell-fcc885515af8842a50b4a59a7220353401132fd2.tar.gz | |
SPARC NCG: When getting a 64 bit word, promote halves to 64 bit before shifting
Diffstat (limited to 'rts/RtsAPI.c')
| -rw-r--r-- | rts/RtsAPI.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c index e0740b1c1a..a499d65870 100644 --- a/rts/RtsAPI.c +++ b/rts/RtsAPI.c @@ -307,7 +307,7 @@ rts_getInt64 (HaskellObj p) // p->header.info == I64zh_static_info); tmp = (HsInt32*)&(UNTAG_CLOSURE(p)->payload[0]); - HsInt64 i = (HsInt64)(tmp[0] << 32) | (HsInt64)tmp[1]; + HsInt64 i = (HsInt64)((HsInt64)(tmp[0]) << 32) | (HsInt64)tmp[1]; return i; } |