diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-09-20 14:09:42 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-09-20 14:11:21 +0100 |
| commit | 096396d980501fb5864a1923e283b07757277734 (patch) | |
| tree | b9a48a1974b17d5fcf30712c2d9503cface1fefb | |
| parent | 0b0a41f96cbdaf52aac171c9c58459e3187b0f46 (diff) | |
| download | haskell-096396d980501fb5864a1923e283b07757277734.tar.gz | |
fix warning
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Liveness.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/nativeGen/RegAlloc/Liveness.hs b/compiler/nativeGen/RegAlloc/Liveness.hs index ac58944f1c..c74a9d8820 100644 --- a/compiler/nativeGen/RegAlloc/Liveness.hs +++ b/compiler/nativeGen/RegAlloc/Liveness.hs @@ -138,6 +138,11 @@ instance Instruction instr => Instruction (InstrSR instr) where mkJumpInstr target = map Instr (mkJumpInstr target) + mkStackAllocInstr platform amount = + Instr (mkStackAllocInstr platform amount) + + mkStackDeallocInstr platform amount = + Instr (mkStackDeallocInstr platform amount) -- | An instruction with liveness information. |