diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-02-18 14:08:40 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-02-18 14:08:40 +0000 |
| commit | 11c4880c5556d71added6accbf32d70960bdde26 (patch) | |
| tree | 2a4fcada82e03ca5ac4e59be175363cfe5060d3e /libraries/base/GHC | |
| parent | e757f8ebd61769937ebdd0f7d9e663790c9d10e3 (diff) | |
| download | haskell-11c4880c5556d71added6accbf32d70960bdde26.tar.gz | |
Fix build on 32bit platforms
Diffstat (limited to 'libraries/base/GHC')
| -rw-r--r-- | libraries/base/GHC/Word.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/libraries/base/GHC/Word.hs b/libraries/base/GHC/Word.hs index 4f0da907c2..c0d8141632 100644 --- a/libraries/base/GHC/Word.hs +++ b/libraries/base/GHC/Word.hs @@ -707,9 +707,7 @@ instance Integral Word64 where | y /= 0 = W64# (x# `remWord64#` y#) | otherwise = divZeroError quotRem (W64# x#) y@(W64# y#) - | y /= 0 = case x# `quotRemWord#` y# of - (# q, r #) -> - (W64# q, W64# r) + | y /= 0 = (W64# (x# `quotWord64#` y#), W64# (x# `remWord64#` y#)) | otherwise = divZeroError divMod (W64# x#) y@(W64# y#) | y /= 0 = (W64# (x# `quotWord64#` y#), W64# (x# `remWord64#` y#)) |