diff options
| author | David Terei <davidterei@gmail.com> | 2012-01-03 18:07:05 +1100 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2012-01-09 17:00:55 -0800 |
| commit | 4384e146640230399b38cd62e8e5df391f72c3a7 (patch) | |
| tree | b619fb40002d7e66d9ba38c7232111e66872abbf /compiler/codeGen/CgMonad.lhs | |
| parent | 43178674471928560dc645983ce6f185b20a5a26 (diff) | |
| download | haskell-4384e146640230399b38cd62e8e5df391f72c3a7.tar.gz | |
Track STG live register information for use in LLVM
We now carry around with CmmJump statements a list of
the STG registers that are live at that jump site.
This is used by the LLVM backend so it can avoid
unnesecarily passing around dead registers, improving
perfromance. This gives us the framework to finally
fix trac #4308.
Diffstat (limited to 'compiler/codeGen/CgMonad.lhs')
| -rw-r--r-- | compiler/codeGen/CgMonad.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgMonad.lhs b/compiler/codeGen/CgMonad.lhs index c05019e3ac..c0e3e3be8b 100644 --- a/compiler/codeGen/CgMonad.lhs +++ b/compiler/codeGen/CgMonad.lhs @@ -249,7 +249,7 @@ flattenCgStmts id stmts = where (block,blocks) = flatten ss isJump :: CmmStmt -> Bool -isJump (CmmJump _ ) = True +isJump (CmmJump _ _) = True isJump (CmmBranch _ ) = True isJump (CmmSwitch _ _) = True isJump (CmmReturn ) = True |