diff options
| author | andy@galois.com <unknown> | 2007-06-22 22:42:26 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2007-06-22 22:42:26 +0000 |
| commit | 6646a0226e5380a3ff088cfc59fb761d8265994b (patch) | |
| tree | 7fe9ea9b1f7cfc27cc4dae5de5f6e72e2f3ba581 /compiler/codeGen/CgHpc.hs | |
| parent | a171dac28baada2036577e7b0b4d7cc1c6836952 (diff) | |
| download | haskell-6646a0226e5380a3ff088cfc59fb761d8265994b.tar.gz | |
removing -fhpc-tracer from ghc, is subsumed by the GHC debugger
Diffstat (limited to 'compiler/codeGen/CgHpc.hs')
| -rw-r--r-- | compiler/codeGen/CgHpc.hs | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs index 7bd7c03739..f70d159739 100644 --- a/compiler/codeGen/CgHpc.hs +++ b/compiler/codeGen/CgHpc.hs @@ -34,26 +34,6 @@ cgTickBox mod n = do , CmmLit (CmmInt 1 I64) ]) ] - let ext_tick_box = CmmLit $ CmmLabel $ mkHpcModuleOffsetLabel $ mod - - whenC (opt_Hpc_Tracer) $ do - emitForeignCall' - PlayRisky -- ?? - [] - (CmmForeignCall - (CmmLit $ CmmLabel $ mkForeignLabel visible_tick Nothing False) - CCallConv - ) - [ (CmmMachOp (MO_Add I32) - [ CmmLoad ext_tick_box I32 - , CmmLit (CmmInt (fromIntegral n) I32) - ] - , NoHint) - , ( CmmReg (CmmGlobal CurrentTSO) - , PtrHint - ) - ] - (Just []) where visible_tick = mkFastString "hs_hpc_tick" @@ -65,10 +45,6 @@ hpcTable this_mod (HpcInfo hpc_tickCount _) = do (module_name_str) ++ [0] ] - emitData Data -- change Offset => Data or Info - [ CmmDataLabel (mkHpcModuleOffsetLabel this_mod) - , CmmStaticLit (CmmInt 0 I32) -- stored offset? - ] emitData Data $ [ CmmDataLabel (mkHpcTicksLabel this_mod) ] ++ [ CmmStaticLit (CmmInt 0 I64) @@ -94,8 +70,6 @@ initHpc this_mod (HpcInfo tickCount hashNo) , (CmmLit $ CmmLabel $ mkHpcTicksLabel $ this_mod,PtrHint) ] (Just []) - ; let ext_tick_box = CmmLit $ CmmLabel $ mkHpcModuleOffsetLabel $ this_mod - ; stmtsC [ CmmStore ext_tick_box (CmmReg id) ] } where mod_alloc = mkFastString "hs_hpc_module" |