From: simonmar <unknown>
Date: Mon, 15 Dec 2003 16:43:45 +0000 (+0000)
Subject: [project @ 2003-12-15 16:43:45 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~199
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=410a99e4d59c22940db2adf59fb912435b71d24b;p=ghc-hetmet.git

[project @ 2003-12-15 16:43:45 by simonmar]
Debugging output wibble
---

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index dd5d0e7..1d78982 100644
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -201,10 +201,8 @@ void releaseCapability(Capability* cap
     signalCondition(&thread_ready_cond);
     startSchedulerTaskIfNecessary();  // if there is more work to be done,
 				      // we'll need a new thread
-  }
-#endif
-#ifdef RTS_SUPPORTS_THREADS
     IF_DEBUG(scheduler, sched_belch("worker: released capability"));
+  }
 #endif
   return;
 }