Remove useless UNPACK pragmas

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

diff --git a/compiler/nativeGen/RegAlloc/Linear/Base.hs b/compiler/nativeGen/RegAlloc/Linear/Base.hs
index 2626232..9fd090c 100644 (file)
--- a/compiler/nativeGen/RegAlloc/Linear/Base.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/Base.hs
@@ -51,14 +51,14 @@ type BlockAssignment
 --
 data Loc 
        -- | vreg is in a register
-       = InReg   {-# UNPACK #-}  !RealReg
+       = InReg   !RealReg
 
        -- | vreg is held in a stack slot
        | InMem   {-# UNPACK #-}  !StackSlot
 
 
        -- | vreg is held in both a register and a stack slot
-       | InBoth  {-# UNPACK #-}  !RealReg
+       | InBoth   !RealReg
                   {-# UNPACK #-} !StackSlot
        deriving (Eq, Show, Ord)