Commit b80c2c7b authored by Simon Marlow's avatar Simon Marlow
Browse files

just comments

parent a77e4622
...@@ -77,8 +77,6 @@ type CmmGroup = GenCmmGroup CmmStatics CmmTopInfo CmmGraph ...@@ -77,8 +77,6 @@ type CmmGroup = GenCmmGroup CmmStatics CmmTopInfo CmmGraph
-- (a) C--, i.e. populated with various C-- constructs -- (a) C--, i.e. populated with various C-- constructs
-- (Cmm and RawCmm in OldCmm.hs) -- (Cmm and RawCmm in OldCmm.hs)
-- (b) Native code, populated with data/instructions -- (b) Native code, populated with data/instructions
--
-- A second family of instances based on Hoopl is in Cmm.hs.
-- | A top-level chunk, abstracted over the type of the contents of -- | A top-level chunk, abstracted over the type of the contents of
-- the basic blocks (Cmm or instructions are the likely instantiations). -- the basic blocks (Cmm or instructions are the likely instantiations).
......
...@@ -418,7 +418,8 @@ toBlockList :: CmmGraph -> [CmmBlock] ...@@ -418,7 +418,8 @@ toBlockList :: CmmGraph -> [CmmBlock]
toBlockList g = mapElems $ toBlockMap g toBlockList g = mapElems $ toBlockMap g
ofBlockList :: BlockId -> [CmmBlock] -> CmmGraph ofBlockList :: BlockId -> [CmmBlock] -> CmmGraph
ofBlockList entry blocks = CmmGraph {g_entry=entry, g_graph=GMany NothingO body NothingO} ofBlockList entry blocks = CmmGraph { g_entry = entry
, g_graph = GMany NothingO body NothingO }
where body = foldr addBlock emptyBody blocks where body = foldr addBlock emptyBody blocks
bodyToBlockList :: Body CmmNode -> [CmmBlock] bodyToBlockList :: Body CmmNode -> [CmmBlock]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment