Commit 8d3e9fd0 authored by Simon Marlow's avatar Simon Marlow

small cleanup

parent 46b5c197
...@@ -26,8 +26,6 @@ import Util ...@@ -26,8 +26,6 @@ import Util
import DynFlags import DynFlags
import FastString import FastString
import Outputable import Outputable
import Data.Map (Map)
import qualified Data.Map as Map
import qualified Data.Set as Set import qualified Data.Set as Set
import Control.Monad.Fix import Control.Monad.Fix
import Data.Array as Array import Data.Array as Array
...@@ -485,12 +483,11 @@ spOffsetForCall current_sp cont_stack args ...@@ -485,12 +483,11 @@ spOffsetForCall current_sp cont_stack args
fixupStack :: StackMap -> StackMap -> [CmmNode O O] fixupStack :: StackMap -> StackMap -> [CmmNode O O]
fixupStack old_stack new_stack = concatMap move new_locs fixupStack old_stack new_stack = concatMap move new_locs
where where
old_map :: Map LocalReg ByteOff old_map = sm_regs old_stack
old_map = Map.fromList (stackSlotRegs old_stack)
new_locs = stackSlotRegs new_stack new_locs = stackSlotRegs new_stack
move (r,n) move (r,n)
| Just m <- Map.lookup r old_map, n == m = [] | Just (_,m) <- lookupUFM old_map r, n == m = []
| otherwise = [CmmStore (CmmStackSlot Old n) | otherwise = [CmmStore (CmmStackSlot Old n)
(CmmReg (CmmLocal r))] (CmmReg (CmmLocal r))]
......
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