diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2011-05-14 12:49:08 +0100 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2011-05-15 14:01:04 +0100 |
| commit | 080dabd4d6a18926d9c040ae4712b1891a4bbf2d (patch) | |
| tree | 0a483d0c7928e9605999042d3eb7368f1b4f824e /compiler/cmm/Cmm.hs | |
| parent | 7980b85bdbf554012fcbda25c16bc456feb33cbd (diff) | |
| download | haskell-080dabd4d6a18926d9c040ae4712b1891a4bbf2d.tar.gz | |
More aggressive CmmRegOff inlining, and fix failure to inline to assignments.
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
Diffstat (limited to 'compiler/cmm/Cmm.hs')
| -rw-r--r-- | compiler/cmm/Cmm.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs index 54b4b11662..a6b215b38f 100644 --- a/compiler/cmm/Cmm.hs +++ b/compiler/cmm/Cmm.hs @@ -11,7 +11,7 @@ module Cmm ( CmmGraph, GenCmmGraph(..), CmmBlock , CmmStackInfo(..), CmmTopInfo(..), Cmm, CmmTop - , CmmReplGraph, CmmFwdRewrite, CmmBwdRewrite + , CmmReplGraph, GenCmmReplGraph, CmmFwdRewrite, CmmBwdRewrite , modifyGraph , lastNode, replaceLastNode, insertBetween @@ -46,7 +46,8 @@ type CmmGraph = GenCmmGraph CmmNode data GenCmmGraph n = CmmGraph { g_entry :: BlockId, g_graph :: Graph n C C } type CmmBlock = Block CmmNode C C -type CmmReplGraph e x = FuelUniqSM (Maybe (Graph CmmNode e x)) +type CmmReplGraph e x = GenCmmReplGraph CmmNode e x +type GenCmmReplGraph n e x = FuelUniqSM (Maybe (Graph n e x)) type CmmFwdRewrite f = FwdRewrite FuelUniqSM CmmNode f type CmmBwdRewrite f = BwdRewrite FuelUniqSM CmmNode f |