Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : newcg
http://hackage.haskell.org/trac/ghc/changeset/7a4643ee9a559593fe358f048b2c1dbbeba2f432 >--------------------------------------------------------------- commit 7a4643ee9a559593fe358f048b2c1dbbeba2f432 Author: Simon Marlow <[email protected]> Date: Mon Jan 30 13:00:04 2012 +0000 don't inline foldExpDeep >--------------------------------------------------------------- compiler/cmm/CmmNode.hs | 1 - 1 files changed, 0 insertions(+), 1 deletions(-) diff --git a/compiler/cmm/CmmNode.hs b/compiler/cmm/CmmNode.hs index 26bc7a4..ae70efc 100644 --- a/compiler/cmm/CmmNode.hs +++ b/compiler/cmm/CmmNode.hs @@ -420,7 +420,6 @@ foldExp f (CmmSwitch e _) z = f e z foldExp f (CmmCall {cml_target=tgt}) z = f tgt z foldExp f (CmmForeignCall {tgt=tgt, args=args}) z = foldr f (foldExpForeignTarget f tgt z) args -{-# INLINE foldExpDeep #-} foldExpDeep :: (CmmExpr -> z -> z) -> CmmNode e x -> z -> z foldExpDeep f = foldExp go where -- go :: CmmExpr -> z -> z _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
