summaryrefslogtreecommitdiff
path: root/compiler/nativeGen/Instruction.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/nativeGen/Instruction.hs')
-rw-r--r--compiler/nativeGen/Instruction.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/nativeGen/Instruction.hs b/compiler/nativeGen/Instruction.hs
index 292cf82f6a..64ba32c6dc 100644
--- a/compiler/nativeGen/Instruction.hs
+++ b/compiler/nativeGen/Instruction.hs
@@ -13,6 +13,7 @@ where
import Reg
import BlockId
+import DynFlags
import OldCmm
import Platform
@@ -105,7 +106,7 @@ class Instruction instr where
-- | An instruction to spill a register into a spill slot.
mkSpillInstr
- :: Platform
+ :: DynFlags
-> Reg -- ^ the reg to spill
-> Int -- ^ the current stack delta
-> Int -- ^ spill slot to use
@@ -114,7 +115,7 @@ class Instruction instr where
-- | An instruction to reload a register from a spill slot.
mkLoadInstr
- :: Platform
+ :: DynFlags
-> Reg -- ^ the reg to reload.
-> Int -- ^ the current stack delta
-> Int -- ^ the spill slot to use