diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-05-25 19:57:32 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-05-25 19:57:32 +0000 |
| commit | a6af1f12c4b83745dacf955ac2920897ec7ae145 (patch) | |
| tree | 1522024a580fcf3d256447137cb10b88abe03d04 /compiler/cmm/CmmLive.hs | |
| parent | bd3a364da7956c269d31645995d0d775c52f6a84 (diff) | |
| download | haskell-a6af1f12c4b83745dacf955ac2920897ec7ae145.tar.gz | |
Move global register saving from the backend to codeGen (CPS specific parts)
Diffstat (limited to 'compiler/cmm/CmmLive.hs')
| -rw-r--r-- | compiler/cmm/CmmLive.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmLive.hs b/compiler/cmm/CmmLive.hs index 8591aae117..4fb4a29285 100644 --- a/compiler/cmm/CmmLive.hs +++ b/compiler/cmm/CmmLive.hs @@ -171,7 +171,7 @@ cmmStmtLive _ (CmmAssign reg expr) = (CmmGlobal _) -> id cmmStmtLive _ (CmmStore expr1 expr2) = cmmExprLive expr2 . cmmExprLive expr1 -cmmStmtLive _ (CmmCall target results arguments _) = +cmmStmtLive _ (CmmCall target results arguments) = target_liveness . foldr ((.) . cmmExprLive) id (map fst arguments) . addKilled (mkUniqSet $ cmmFormalsToLiveLocals results) where |