Commit 250d897e authored by simonmar's avatar simonmar

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

_scc_'s for the NCG
parent 92f0ce9f
......@@ -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 */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment