[project @ 1998-08-14 10:49:32 by sof]

[ghc-hetmet.git] / ghc / runtime / profiling / Timer.lc

diff --git a/ghc/runtime/profiling/Timer.lc b/ghc/runtime/profiling/Timer.lc
index 3a0a2fb..10f9529 100644 (file)
--- a/ghc/runtime/profiling/Timer.lc
+++ b/ghc/runtime/profiling/Timer.lc
@@ -48,6 +48,14 @@ handle_tick_serial(STG_NO_ARGS)
        abort();
 #endif
 
+#if 0
+    /* Experimental - don't tick if we're in the middle
+       of reporting a cc_profile. Untested.
+    */
+    if (interval_expired)
+       return;
+#endif
+
     if (++current_ticks >= interval_ticks && CCC != STATIC_CC_REF(CC_GC)) {
 #if defined(PROFILING)
        interval_expired = 1;   /* stop to process interval */