From: simonmar <unknown>
Date: Thu, 18 Jan 2001 17:19:26 +0000 (+0000)
Subject: [project @ 2001-01-18 17:19:26 by simonmar]
X-Git-Tag: Approximately_9120_patches~2851
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=250d897e972a04af546eab8285f92f75b27cf6d5;p=ghc-hetmet.git

[project @ 2001-01-18 17:19:26 by simonmar]
_scc_'s for the NCG
---

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index 84f5645..3335b89 100644
--- 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 */