diff options
| author | David Terei <davidterei@gmail.com> | 2011-12-02 15:52:00 -0800 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-12-03 20:48:22 -0800 |
| commit | 30361d1804c578a478ac9275e6f899aba23388aa (patch) | |
| tree | 0cfe22e71f6702221f04b23442173aba1a7a3f62 | |
| parent | 7626b2b9c52cb4aa38609a9a70b567e8693c3aa6 (diff) | |
| download | haskell-30361d1804c578a478ac9275e6f899aba23388aa.tar.gz | |
Add SCC for LLVM code output
| -rw-r--r-- | 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 c97be6e13e..e845460413 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} |