diff options
| author | sof <unknown> | 1997-10-05 20:32:22 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-10-05 20:32:22 +0000 |
| commit | f64b981a3180a0519b471c971697b799b4202be5 (patch) | |
| tree | 0cc5ff3314ab10c8ea6c19cabaee3eb15194703a | |
| parent | ff7984c67c6ec048bd37b92d272aa74dbf19433c (diff) | |
| download | haskell-f64b981a3180a0519b471c971697b799b4202be5.tar.gz | |
[project @ 1997-10-05 20:32:22 by sof]
Added debug code to PerformReschedule
| -rw-r--r-- | ghc/runtime/c-as-asm/HpOverflow.lc | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ghc/runtime/c-as-asm/HpOverflow.lc b/ghc/runtime/c-as-asm/HpOverflow.lc index 45deca6856..d7e5e1f494 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. |