X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fc-as-asm%2FHpOverflow.lc;fp=ghc%2Fruntime%2Fc-as-asm%2FHpOverflow.lc;h=d7e5e1f494595e5695cd6afb118f3f0e1ef304b5;hb=f64b981a3180a0519b471c971697b799b4202be5;hp=45deca6856bdce74bbbaf923bfd13309645fc7b6;hpb=ff7984c67c6ec048bd37b92d272aa74dbf19433c;p=ghc-hetmet.git

diff --git a/ghc/runtime/c-as-asm/HpOverflow.lc b/ghc/runtime/c-as-asm/HpOverflow.lc
index 45deca6..d7e5e1f 100644
--- a/ghc/runtime/c-as-asm/HpOverflow.lc
+++ b/ghc/runtime/c-as-asm/HpOverflow.lc
@@ -290,6 +290,11 @@ PerformReschedule(liveness, always_reenter_node)
 {
     rtsBool need_to_reschedule;
 
+#if 0 && defined(DEBUG)
+    fprintf(stderr,"PerfReS:liveness=0x%lx,reenter=%lx,,context_switch=%ld\n",
+	liveness, always_reenter_node, context_switch);
+#endif
+
     /* Reset the global NeedToReSchedule -- 
        this is used only to communicate the fact that we should schedule
        a new thread rather than the existing one following a fetch.