X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgHpc.hs;h=d5f354216cf90f1468b652010bfa8ad1aee4dd1a;hb=b88025eabcd83f65d1d81f09272f5172f06a60e7;hp=82ea54a8443934b32775f69087878943c9fc5148;hpb=d50e93cf95b68bf858be82025b56c9977335ed76;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgHpc.hs b/compiler/codeGen/CgHpc.hs
index 82ea54a..d5f3542 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"