X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLinear%2FBase.hs;h=9fd090ce929616150a46cb8c18740c132176d559;hb=b30f8b6540eb8fe10f06c6e12d0daa08464656c2;hp=26262327c9f302093a887c28492956221bae1565;hpb=f9288086f935c97812b2d80defcff38baf7b6a6c;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Linear/Base.hs b/compiler/nativeGen/RegAlloc/Linear/Base.hs
index 2626232..9fd090c 100644
--- 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)