From 9c5675a3f32ba9d3e8d66c43773a24d30cd4dec8 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 16 Aug 2007 15:07:08 +0000 Subject: [PATCH] Convert the remaining _scc_s in the GHC source to pragmas --- compiler/main/CodeOutput.lhs | 4 ++-- compiler/main/HscMain.lhs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs index a3d24e2..b155a35 100644 --- a/compiler/main/CodeOutput.lhs +++ b/compiler/main/CodeOutput.lhs @@ -163,10 +163,10 @@ outputAsm dflags filenm flat_absC #ifndef OMIT_NATIVE_CODEGEN = do ncg_uniqs <- mkSplitUniqSupply 'n' - ncg_output_d <- _scc_ "NativeCodeGen" + 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 $ + {-# SCC "OutputAsm" #-} doOutput filenm $ \f -> printDoc LeftMode f ncg_output_d where diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs index ca2bb7e..346e804 100644 --- a/compiler/main/HscMain.lhs +++ b/compiler/main/HscMain.lhs @@ -671,7 +671,7 @@ hscFileCheck hsc_env mod_summary compileToCore = do { -- RENAME and TYPECHECK ------------------- (tc_msgs, maybe_tc_result) - <- _scc_ "Typecheck-Rename" + <- {-# SCC "Typecheck-Rename" #-} tcRnModule hsc_env (ms_hsc_src mod_summary) True{-save renamed syntax-} rdr_module -- 1.7.10.4