diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:09:03 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:09:03 +0000 |
| commit | affbe8dae5d7eb350686b42ddbd4f3561b7bd0ec (patch) | |
| tree | 7558970725c9e17e0017d6c825949d8e178d3445 /compiler/cmm/CmmLive.hs | |
| parent | 207802589da0d23c3f16195f453b24a1e46e322d (diff) | |
| download | haskell-affbe8dae5d7eb350686b42ddbd4f3561b7bd0ec.tar.gz | |
Added an SRT to each CmmCall and added the current SRT to the CgMonad
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 40d7b7c82e..bee3c65b07 100644 --- a/compiler/cmm/CmmLive.hs +++ b/compiler/cmm/CmmLive.hs @@ -170,7 +170,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 $ cmmHintFormalsToLiveLocals results) where |