Commit c90d45f2 authored by Simon Marlow's avatar Simon Marlow

fix warnings

parent 096396d9
...@@ -27,10 +27,7 @@ module RegAlloc.Linear.StackMap ( ...@@ -27,10 +27,7 @@ module RegAlloc.Linear.StackMap (
where where
import RegAlloc.Linear.FreeRegs
import DynFlags import DynFlags
import Outputable
import UniqFM import UniqFM
import Unique import Unique
...@@ -49,7 +46,7 @@ data StackMap ...@@ -49,7 +46,7 @@ data StackMap
-- | An empty stack map, with all slots available. -- | An empty stack map, with all slots available.
emptyStackMap :: DynFlags -> StackMap emptyStackMap :: DynFlags -> StackMap
emptyStackMap dflags = StackMap 0 emptyUFM emptyStackMap _ = StackMap 0 emptyUFM
-- | If this vreg unique already has a stack assignment then return the slot number, -- | If this vreg unique already has a stack assignment then return the slot number,
......
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