diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-20 18:05:01 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-20 18:05:01 +0100 |
| commit | b92c76ec5703a216b0d5553e037da6f66932a82e (patch) | |
| tree | d6276b2196a9e0abd77855a919e7ea710aef2768 /compiler/nativeGen/RegAlloc/Liveness.hs | |
| parent | 85a8f79f70cb9d94c9fca9e03ae98f596be8a48c (diff) | |
| parent | a9109703c5994a0de97236184672095d4605ae7d (diff) | |
| download | haskell-b92c76ec5703a216b0d5553e037da6f66932a82e.tar.gz | |
Merge branch 'master' of darcs.haskell.org:/srv/darcs//ghc
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Liveness.hs')
| -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 85b8f969eb..608f0a423b 100644 --- a/compiler/nativeGen/RegAlloc/Liveness.hs +++ b/compiler/nativeGen/RegAlloc/Liveness.hs @@ -136,6 +136,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. |