[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / runtime / gum / FetchMe.lhc

diff --git a/ghc/runtime/gum/FetchMe.lhc b/ghc/runtime/gum/FetchMe.lhc
index 984751d..05b9dc8 100644 (file)
--- 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);