From 0ebb776871df240ce58664e880ed3afe21977b02 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Thu, 6 May 2010 16:10:12 +0000 Subject: [PATCH] Remove useless UNPACK pragmas --- compiler/nativeGen/Reg.hs | 4 ++-- compiler/nativeGen/RegAlloc/Linear/Base.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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 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) -- 1.7.10.4