just comments
authorSimon Marlow <marlowsd@gmail.com>
Wed, 8 Feb 2012 15:49:27 +0000 (15:49 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 8 Feb 2012 15:53:52 +0000 (15:53 +0000)
compiler/cmm/Cmm.hs
compiler/cmm/CmmUtils.hs

index 67e81ec..9ab02f4 100644 (file)
@@ -77,8 +77,6 @@ type CmmGroup = GenCmmGroup CmmStatics CmmTopInfo CmmGraph
 --   (a) C--, i.e. populated with various C-- constructs
 --       (Cmm and RawCmm in OldCmm.hs)
 --   (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
 -- the basic blocks (Cmm or instructions are the likely instantiations).
index e13a491..395da3c 100644 (file)
@@ -418,7 +418,8 @@ toBlockList :: CmmGraph -> [CmmBlock]
 toBlockList g = mapElems $ toBlockMap g
 
 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
 
 bodyToBlockList :: Body CmmNode -> [CmmBlock]