[project @ 2003-08-14 10:43:10 by simonmar]

[ghc-hetmet.git] / ghc / compiler / prelude / PrimRep.lhs

diff --git a/ghc/compiler/prelude/PrimRep.lhs b/ghc/compiler/prelude/PrimRep.lhs
index 7462258..a58240b 100644 (file)
--- a/ghc/compiler/prelude/PrimRep.lhs
+++ b/ghc/compiler/prelude/PrimRep.lhs
@@ -119,7 +119,7 @@ Identify anything which is one word large and not a pointer.
 isNonPtrRep :: PrimRep -> Bool
 isNonPtrRep PtrRep  = False
 isNonPtrRep VoidRep = False
-isNonPtrRep r       = not (isFloatingRep r)
+isNonPtrRep r       = not (isFloatingRep r) && not (is64BitRep r)
 \end{code}
 
 \begin{code}