From b853e224306f7f91f294b1ea94b743f23df01c0b Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 5 Feb 2001 11:20:12 +0000 Subject: [PATCH] [project @ 2001-02-05 11:20:12 by simonmar] add some _scc_s --- ghc/compiler/nativeGen/AsmCodeGen.lhs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/ghc/compiler/nativeGen/AsmCodeGen.lhs b/ghc/compiler/nativeGen/AsmCodeGen.lhs index 146605d..dd3f8bc 100644 --- a/ghc/compiler/nativeGen/AsmCodeGen.lhs +++ b/ghc/compiler/nativeGen/AsmCodeGen.lhs @@ -112,13 +112,13 @@ nativeCodeGen absC us absCtoNat :: AbstractC -> UniqSM (SDoc, SDoc) absCtoNat absC - = genCodeAbstractC absC `thenUs` \ stixRaw -> - genericOpt stixRaw `bind` \ stixOpt -> - genMachCode stixOpt `thenUs` \ pre_regalloc -> - regAlloc pre_regalloc `bind` \ almost_final -> - x86fp_kludge almost_final `bind` \ final_mach_code -> - vcat (map pprInstr final_mach_code) `bind` \ final_sdoc -> - pprStixTrees stixOpt `bind` \ stix_sdoc -> + = _scc_ "genCodeAbstractC" genCodeAbstractC absC `thenUs` \ stixRaw -> + _scc_ "genericOpt" genericOpt stixRaw `bind` \ stixOpt -> + _scc_ "genMachCode" genMachCode stixOpt `thenUs` \ pre_regalloc -> + _scc_ "regAlloc" regAlloc pre_regalloc `bind` \ almost_final -> + _scc_ "x86fp_kludge" x86fp_kludge almost_final `bind` \ final_mach_code -> + _scc_ "vcat" vcat (map pprInstr final_mach_code) `bind` \ final_sdoc -> + _scc_ "pprStixTrees" pprStixTrees stixOpt `bind` \ stix_sdoc -> returnUs (stix_sdoc, final_sdoc) where bind f x = x f -- 1.7.10.4