Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/30361d1804c578a478ac9275e6f899aba23388aa >--------------------------------------------------------------- commit 30361d1804c578a478ac9275e6f899aba23388aa Author: David Terei <[email protected]> Date: Fri Dec 2 15:52:00 2011 -0800 Add SCC for LLVM code output >--------------------------------------------------------------- compiler/main/CodeOutput.lhs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs index c97be6e..e845460 100644 --- a/compiler/main/CodeOutput.lhs +++ b/compiler/main/CodeOutput.lhs @@ -165,7 +165,9 @@ outputAsm dflags filenm flat_absC outputLlvm :: DynFlags -> FilePath -> [RawCmmGroup] -> IO () outputLlvm dflags filenm flat_absC = do ncg_uniqs <- mkSplitUniqSupply 'n' - doOutput filenm $ \f -> llvmCodeGen dflags f ncg_uniqs flat_absC + {-# SCC "llvm_output" #-} doOutput filenm $ + \f -> {-# SCC "llvm_CodeGen" #-} + llvmCodeGen dflags f ncg_uniqs flat_absC \end{code} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
