diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-08-16 15:07:08 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-08-16 15:07:08 +0000 |
| commit | 9c5675a3f32ba9d3e8d66c43773a24d30cd4dec8 (patch) | |
| tree | ff7cc0bcd7e413a6a84f950c002c599dfba359fd /compiler/main/CodeOutput.lhs | |
| parent | 0ee1d0fd7b5cae2857fe6632cbee5441c011bb99 (diff) | |
| download | haskell-9c5675a3f32ba9d3e8d66c43773a24d30cd4dec8.tar.gz | |
Convert the remaining _scc_s in the GHC source to pragmas
Diffstat (limited to 'compiler/main/CodeOutput.lhs')
| -rw-r--r-- | compiler/main/CodeOutput.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs index a3d24e2838..b155a35ccf 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 |