Remove useless UNPACK pragmas

ghc · May 6, 2010 · 0ebb776 · 0ebb776
1 parent c1a4499
commit 0ebb776
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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)