diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-12-09 10:19:57 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-12-13 08:58:57 +0000 |
| commit | c9f84e1484ccc53ac0b785ee720202e8aa3388be (patch) | |
| tree | 6c5241039d90474d27d91a40e56bee4cf1bc3ee7 /compiler | |
| parent | f361281c89fbce42865d8b8b27b0957205366186 (diff) | |
| download | haskell-c9f84e1484ccc53ac0b785ee720202e8aa3388be.tar.gz | |
add some SCCs
Diffstat (limited to 'compiler')
| -rw-r--r-- | 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 f9167f26a0..bdb411e5f4 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 |