[commit: base] master: Fix build on 32bit platforms (93fa8ee)

[Ian Lynagh]

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 <igloo at earth.li>
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#))