projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
92f0ce9
)
[project @ 2001-01-18 17:19:26 by simonmar]
author
simonmar
<unknown>
Thu, 18 Jan 2001 17:19:26 +0000
(17:19 +0000)
committer
simonmar
<unknown>
Thu, 18 Jan 2001 17:19:26 +0000
(17:19 +0000)
_scc_'s for the NCG
ghc/compiler/main/CodeOutput.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/CodeOutput.lhs
b/ghc/compiler/main/CodeOutput.lhs
index
84f5645
..
3335b89
100644
(file)
--- 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'
#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
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 */
where
#else /* OMIT_NATIVE_CODEGEN */