diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-07-05 13:23:21 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-07-05 13:23:21 +0100 |
| commit | bfbdbcb9c4fc7608c6eb6d3d1c645bfb501ecf0a (patch) | |
| tree | a16feb6524e5961890bfff4e53e6fdbe2a91784c /compiler/cmm/Cmm.hs | |
| parent | 3f0afabaf3e862d986279dc041b14b61e73f86d3 (diff) | |
| download | haskell-bfbdbcb9c4fc7608c6eb6d3d1c645bfb501ecf0a.tar.gz | |
Remove "fuel", adapt to Hoopl changes, fix warnings
Diffstat (limited to 'compiler/cmm/Cmm.hs')
| -rw-r--r-- | compiler/cmm/Cmm.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs index d70fd8c835..1c77409e49 100644 --- a/compiler/cmm/Cmm.hs +++ b/compiler/cmm/Cmm.hs @@ -32,9 +32,9 @@ module Cmm ( import CLabel import BlockId import CmmNode -import OptimizationFuel as F import SMRep import CmmExpr +import UniqSupply import Compiler.Hoopl import Data.Word ( Word8 ) @@ -93,9 +93,9 @@ data GenCmmGraph n = CmmGraph { g_entry :: BlockId, g_graph :: Graph n C C } type CmmBlock = Block CmmNode C C 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 +type GenCmmReplGraph n e x = UniqSM (Maybe (Graph n e x)) +type CmmFwdRewrite f = FwdRewrite UniqSM CmmNode f +type CmmBwdRewrite f = BwdRewrite UniqSM CmmNode f ----------------------------------------------------------------------------- -- Info Tables |