diff options
Diffstat (limited to 'compiler/codeGen/CgHpc.hs')
| -rw-r--r-- | compiler/codeGen/CgHpc.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs index 82ea54a844..d5f354216c 100644 --- a/compiler/codeGen/CgHpc.hs +++ b/compiler/codeGen/CgHpc.hs @@ -48,7 +48,11 @@ cgTickBox mod n = do [ CmmLoad ext_tick_box I32 , CmmLit (CmmInt (fromIntegral n) I32) ] - , NoHint) ] + , NoHint) + , ( CmmReg (CmmGlobal CurrentTSO) + , PtrHint + ) + ] (Just []) where visible_tick = mkFastString "hs_hpc_tick" |