Pass platform down to lastxmm

1 files changed, 3 insertions, 3 deletions

diff --git a/compiler/nativeGen/RegAlloc/Graph/Main.hs b/compiler/nativeGen/RegAlloc/Graph/Main.hs
index 46a32e2b6d..32b5e41402 100644
--- a/compiler/nativeGen/RegAlloc/Graph/Main.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/Main.hs
@@ -119,7 +119,7 @@ regAlloc_spin dflags spinCount triv regsFree slotsFree debug_codeGraphs code
         -- build a map of the cost of spilling each instruction
         --      this will only actually be computed if we have to spill something.
         let spillCosts  = foldl' plusSpillCostInfo zeroSpillCostInfo
-                        $ map slurpSpillCostInfo code
+                        $ map (slurpSpillCostInfo platform) code
 
         -- the function to choose regs to leave uncolored
         let spill       = chooseSpill spillCosts
@@ -213,13 +213,13 @@ regAlloc_spin dflags spinCount triv regsFree slotsFree debug_codeGraphs code
 
                 -- spill the uncolored regs
                 (code_spilled, slotsFree', spillStats)
-                        <- regSpill code_coalesced slotsFree rsSpill
+                        <- regSpill platform code_coalesced slotsFree rsSpill
 
                 -- recalculate liveness
                 -- NOTE: we have to reverse the SCCs here to get them back into the reverse-dependency
                 --       order required by computeLiveness. If they're not in the correct order
                 --       that function will panic.
-                code_relive     <- mapM (regLiveness . reverseBlocksInTops) code_spilled
+                code_relive     <- mapM (regLiveness platform . reverseBlocksInTops) code_spilled
 
                 -- record what happened in this stage for debugging
                 let stat        =