Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c9f84e1484ccc53ac0b785ee720202e8aa3388be >--------------------------------------------------------------- commit c9f84e1484ccc53ac0b785ee720202e8aa3388be Author: Simon Marlow <[email protected]> Date: Fri Dec 9 10:19:57 2011 +0000 add some SCCs >--------------------------------------------------------------- compiler/nativeGen/AsmCodeGen.lhs | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index f9167f2..bdb411e 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -305,10 +305,10 @@ cmmNativeGens dflags ncgImpl h us (cmm : cmms) impAcc profAcc count let platform = targetPlatform dflags (us', native, imports, colorStats, linearStats) - <- cmmNativeGen dflags ncgImpl us cmm count + <- {-# SCC "cmmNativeGen" #-} cmmNativeGen dflags ncgImpl us cmm count - Pretty.bufLeftRender h - $ {-# SCC "pprNativeCode" #-} Pretty.vcat $ map (pprNatCmmDecl ncgImpl platform) native + {-# SCC "pprNativeCode" #-} Pretty.bufLeftRender h + $ Pretty.vcat $ map (pprNatCmmDecl ncgImpl platform) native -- carefully evaluate this strictly. Binding it with 'let' -- and then using 'seq' doesn't work, because the let @@ -322,7 +322,7 @@ cmmNativeGens dflags ncgImpl h us (cmm : cmms) impAcc profAcc count count' <- return $! count + 1; -- force evaulation all this stuff to avoid space leaks - seqString (showSDoc $ vcat $ map (pprPlatform platform) imports) `seq` return () + {-# SCC "seqString" #-} seqString (showSDoc $ vcat $ map (pprPlatform platform) imports) `seq` return () cmmNativeGens dflags ncgImpl h us' cmms _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
