X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrimRep.lhs;h=a58240bdc21440df2b5548d916e5b6a87367f418;hb=b4075d9d55eb335152a268fedf776e67e70bf275;hp=746225814d65bbc67ea1085362e18ca2e69d7381;hpb=be5ed22c3679f6195f2d73f1ed9951fb61af473e;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/PrimRep.lhs b/ghc/compiler/prelude/PrimRep.lhs
index 7462258..a58240b 100644
--- 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}