Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : newcg
http://hackage.haskell.org/trac/ghc/changeset/b80c2c7b20e52aaf4f48c300fba1012f5fdb7534 >--------------------------------------------------------------- commit b80c2c7b20e52aaf4f48c300fba1012f5fdb7534 Author: Simon Marlow <[email protected]> Date: Wed Feb 8 15:49:27 2012 +0000 just comments >--------------------------------------------------------------- compiler/cmm/Cmm.hs | 2 -- compiler/cmm/CmmUtils.hs | 3 ++- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs index 67e81ec..9ab02f4 100644 --- a/compiler/cmm/Cmm.hs +++ b/compiler/cmm/Cmm.hs @@ -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). diff --git a/compiler/cmm/CmmUtils.hs b/compiler/cmm/CmmUtils.hs index e13a491..395da3c 100644 --- a/compiler/cmm/CmmUtils.hs +++ b/compiler/cmm/CmmUtils.hs @@ -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] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
