X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fgum%2FFetchMe.lhc;h=05b9dc8b1ff617c394d9c8fb5407eaebc9ec0c2c;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hp=984751d251843c00738c7b624c4444bf2b3e0868;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/runtime/gum/FetchMe.lhc b/ghc/runtime/gum/FetchMe.lhc
index 984751d..05b9dc8 100644
--- a/ghc/runtime/gum/FetchMe.lhc
+++ b/ghc/runtime/gum/FetchMe.lhc
@@ -55,7 +55,7 @@ STGFUN(FetchMe_entry)
     	QP_Event1("GR", CurrentTSO);
     }
 
-    if(do_gr_profile) {
+    if (RTSflags.ParFlags.granSimStats) {
         /* Note that CURRENT_TIME may perform an unsafe call */
 	TIME now = CURRENT_TIME;
         TSO_EXECTIME(CurrentTSO) += now - TSO_BLOCKEDAT(CurrentTSO);
@@ -124,7 +124,7 @@ STGFUN(FMBQ_entry)
     	QP_Event1("GR", CurrentTSO);
     }
 
-    if(do_gr_profile) {
+    if (RTSflags.ParFlags.granSimStats) {
         /* Note that CURRENT_TIME may perform an unsafe call */
 	TIME now = CURRENT_TIME;
         TSO_EXECTIME(CurrentTSO) += now - TSO_BLOCKEDAT(CurrentTSO);