- ncg_output_d <- _scc_ "NativeCodeGen"
- nativeCodeGen dflags flat_absC ncg_uniqs
- dumpIfSet_dyn dflags Opt_D_dump_asm "Asm code" (docToSDoc ncg_output_d)
- _scc_ "OutputAsm" doOutput filenm $
- \f -> printDoc LeftMode f ncg_output_d
+
+ {-# SCC "OutputAsm" #-} doOutput filenm $
+ \f -> {-# SCC "NativeCodeGen" #-}
+ nativeCodeGen dflags f ncg_uniqs flat_absC