X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FReg.hs;h=50d179c00252fc5bd17eefd2572558ceb05360c0;hp=27315bac3dcd82cda6cd4eacab8d36b06da66f47;hb=f537dd87c4a07526e2b1fc1bd1c125d652833641;hpb=335b9f366ac440259318777c4c07e4fa42fbbec6

diff --git a/compiler/nativeGen/Reg.hs b/compiler/nativeGen/Reg.hs
index 27315ba..50d179c 100644
--- 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