From: sof <unknown>
Date: Thu, 14 Feb 2002 08:59:29 +0000 (+0000)
Subject: [project @ 2002-02-14 08:59:29 by sof]
X-Git-Tag: Approximately_9120_patches~59
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5e856f00c4e77f640d298754a4c419dde6a716ca;p=ghc-hetmet.git

[project @ 2002-02-14 08:59:29 by sof]
debugged
---

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index 77096a9..e979507 100644
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -68,7 +68,7 @@ void
 initCapabilities()
 {
 #if defined(RTS_SUPPORTS_THREADS)
-  initCondition(returning_worker_cond);
+  initCondition(&returning_worker_cond);
 #endif
 
 #if defined(SMP)
@@ -177,12 +177,12 @@ void
 grabReturnCapability(Capability** pCap)
 {
   IF_DEBUG(scheduler,
-	   sched_belch("thread %d: returning, waiting for sched. lock.\n", osThreadId()));
+	   fprintf(stderr,"worker (%ld): returning, waiting for sched. lock.\n", osThreadId()));
   ACQUIRE_LOCK(&sched_mutex);
   rts_n_waiting_workers++;
   IF_DEBUG(scheduler,
-	   sched_belch("worker (%d,%d): returning; workers waiting: %d\n",
-		       tok, osThreadId(), rts_n_waiting_workers));
+	   fprintf(stderr,"worker (%ld): returning; workers waiting: %d\n",
+		   osThreadId(), rts_n_waiting_workers));
   while ( noCapabilities() ) {
     waitCondition(&returning_worker_cond, &sched_mutex);
   }
@@ -208,7 +208,7 @@ void
 yieldCapability(Capability* cap)
 {
     IF_DEBUG(scheduler,
-	     sched_belch("worker thread (%d): giving up RTS token\n", osThreadId()));
+	     fprintf(stderr,"worker thread (%ld): giving up RTS token\n", osThreadId()));
     releaseCapability(cap);
     RELEASE_LOCK(&sched_mutex);
     yieldThread();