Fix segfault in array copy primops on 32-bit

[ghc-hetmet.git] / compiler / nativeGen / Reg.hs

diff --git a/compiler/nativeGen/Reg.hs b/compiler/nativeGen/Reg.hs
index 27315ba..50d179c 100644 (file)
--- a/compiler/nativeGen/Reg.hs
+++ b/compiler/nativeGen/Reg.hs
@@ -153,8 +153,8 @@ realRegsAlias rr1 rr2
 --------------------------------------------------------------------------------
 -- | A register, either virtual or real
 data Reg
-       = RegVirtual {-# UNPACK #-} !VirtualReg
-       | RegReal    {-# UNPACK #-} !RealReg
+       = RegVirtual !VirtualReg
+       | RegReal    !RealReg
        deriving (Eq, Ord)
 
 regSingle :: RegNo -> Reg