diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-08-20 19:54:41 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-08-20 19:54:41 +0000 |
| commit | bb66ce578f2ef5cbeb35de9719f0839a32fbeb35 (patch) | |
| tree | 9693da263a4b9f452c4e856c6e93023f6223bb0b /compiler/cmm/CmmLive.hs | |
| parent | fdd372f92ee59d474f7073ba8d8b8d41956a952b (diff) | |
| download | haskell-bb66ce578f2ef5cbeb35de9719f0839a32fbeb35.tar.gz | |
put CmmReturnInfo into a CmmCall (and related types)
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 958ba81821..3d87907a0d 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 |