Repository : ssh://darcs.haskell.org//srv/darcs/packages/hoopl On branch : simonmar-hoopl-opt
http://hackage.haskell.org/trac/ghc/changeset/98b22db083aa6f21e46fee047e0b8c9795624401 >--------------------------------------------------------------- commit 98b22db083aa6f21e46fee047e0b8c9795624401 Author: Simon Marlow <[email protected]> Date: Thu Mar 15 13:16:07 2012 +0000 Generalise blockGraph >--------------------------------------------------------------- src/Compiler/Hoopl/Util.hs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/src/Compiler/Hoopl/Util.hs b/src/Compiler/Hoopl/Util.hs index c1b0369..dba145c 100644 --- a/src/Compiler/Hoopl/Util.hs +++ b/src/Compiler/Hoopl/Util.hs @@ -62,8 +62,10 @@ catNodeCOGraph f (GMany (JustO (BlockOC b n)) body x) = GMany NothingO (addBlock (BlockCC f b n) body) x -blockGraph :: NonLocal n => Block n O x -> Graph n O x +blockGraph :: NonLocal n => Block n e x -> Graph n e x +blockGraph b@(BlockCO {}) = gUnitCO b blockGraph b@(BlockOC {}) = gUnitOC b +blockGraph b@(BlockCC {}) = gUnitCC b blockGraph (BNil {}) = GNil blockGraph b@(BMiddle {}) = gUnitOO b blockGraph b@(BCat {}) = gUnitOO b _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
