diff options
| author | simonpj@microsoft.com <unknown> | 2010-05-06 16:10:12 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-05-06 16:10:12 +0000 |
| commit | 0ebb776871df240ce58664e880ed3afe21977b02 (patch) | |
| tree | 494813330c6111d63313cf613b3b78b5e78440f7 /compiler | |
| parent | c1a4499cb747c6d49bac925065f7c4eb4208e568 (diff) | |
| download | haskell-0ebb776871df240ce58664e880ed3afe21977b02.tar.gz | |
Remove useless UNPACK pragmas
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/nativeGen/Reg.hs | 4 | ||||
| -rw-r--r-- | 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 27315bac3d..50d179c002 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 26262327c9..9fd090ce92 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) |