diff options
Diffstat (limited to 'compiler/codeGen')
| -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" |