Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/93fa8ee6d0afd06b0e88b9f8ff5d3c846e9d4ab8 >--------------------------------------------------------------- commit 93fa8ee6d0afd06b0e88b9f8ff5d3c846e9d4ab8 Author: Ian Lynagh <[email protected]> Date: Sat Feb 18 14:08:40 2012 +0000 Fix build on 32bit platforms >--------------------------------------------------------------- GHC/Word.hs | 4 +--- 1 files changed, 1 insertions(+), 3 deletions(-) diff --git a/GHC/Word.hs b/GHC/Word.hs index 4f0da90..c0d8141 100644 --- a/GHC/Word.hs +++ b/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#)) _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
