[project @ 2001-01-18 17:19:26 by simonmar]

_scc_'s for the NCG

[project @ 2001-01-18 17:19:26 by simonmar]
_scc_'s for the NCG
250d897e · simonmar · 92f0ce9f · 250d897e
Commit 250d897e authored Jan 18, 2001 by simonmar
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

ghc/compiler/main/CodeOutput.lhs ghc/compiler/main/CodeOutput.lhs +3 -2

No files found.
--- a/ghc/compiler/main/CodeOutput.lhs
+++ b/ghc/compiler/main/CodeOutput.lhs
@@ -110,10 +110,11 @@ outputAsm dflags filenm flat_absC
 #ifndef OMIT_NATIVE_CODEGEN

  = do ncg_uniqs <- mkSplitUniqSupply 'n'
-       let (stix_final, ncg_output_d) = nativeCodeGen flat_absC ncg_uniqs
+       let (stix_final, ncg_output_d) = _scc_ "NativeCodeGen" 
+				        nativeCodeGen flat_absC ncg_uniqs
       dumpIfSet_dyn dflags Opt_D_dump_stix "Final stix code" stix_final
       dumpIfSet_dyn dflags Opt_D_dump_asm "Asm code" ncg_output_d
-       doOutput filenm ( \f -> printForAsm f ncg_output_d)
+       _scc_ "OutputAsm" doOutput filenm ( \f -> printForAsm f ncg_output_d)
  where

 #else /* OMIT_NATIVE_CODEGEN */