diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-12 16:58:51 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-12 16:58:51 +0000 |
| commit | 569348e87434f2a8d9e18dccac8b4a563b4eb363 (patch) | |
| tree | 8c525650db69e37735715a3da7853522e6d1cfcc /compiler/cmm/CmmSpillReload.hs | |
| parent | 5c77b95cc79f7cce8dd15bc639a3ed58664444a4 (diff) | |
| download | haskell-569348e87434f2a8d9e18dccac8b4a563b4eb363.tar.gz | |
remove remaining redundancies from ZipCfgCmmRep
-- LastBranch no longer takes parameters
-- LastJump and LastReturn no longer carry CmmActuals;
instead, those are carried by a CopyOut in the same basic block
Diffstat (limited to 'compiler/cmm/CmmSpillReload.hs')
| -rw-r--r-- | compiler/cmm/CmmSpillReload.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/cmm/CmmSpillReload.hs b/compiler/cmm/CmmSpillReload.hs index 7d4f42c7a6..63e005851e 100644 --- a/compiler/cmm/CmmSpillReload.hs +++ b/compiler/cmm/CmmSpillReload.hs @@ -113,9 +113,9 @@ middleDualLiveness live (NotSpillOrReload m) = changeRegs (middleLiveness m) liv lastDualLiveness :: (BlockId -> DualLive) -> Last -> DualLive lastDualLiveness env l = last l - where last (LastReturn ress) = changeRegs (gen ress) empty - last (LastJump e args) = changeRegs (gen e . gen args) empty - last (LastBranch id args) = changeRegs (gen args) $ env id + where last (LastReturn) = empty + last (LastJump e) = changeRegs (gen e) empty + last (LastBranch id) = env id last (LastCall tgt Nothing) = changeRegs (gen tgt) empty last (LastCall tgt (Just k)) = -- nothing can be live in registers at this point |