From: simonmar <unknown>
Date: Mon, 5 Feb 2001 11:20:12 +0000 (+0000)
Subject: [project @ 2001-02-05 11:20:12 by simonmar]
X-Git-Tag: Approximately_9120_patches~2750
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b853e224306f7f91f294b1ea94b743f23df01c0b;p=ghc-hetmet.git

[project @ 2001-02-05 11:20:12 by simonmar]
add some _scc_s
---

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