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/nativeGen/RegAlloc/Linear/Base.hs | |
| parent | c1a4499cb747c6d49bac925065f7c4eb4208e568 (diff) | |
| download | haskell-0ebb776871df240ce58664e880ed3afe21977b02.tar.gz | |
Remove useless UNPACK pragmas
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Linear/Base.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Linear/Base.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |