Commit 0ebb7768 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Remove useless UNPACK pragmas

parent c1a4499c
......@@ -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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment