From: simonmar <unknown>
Date: Tue, 23 Sep 2003 15:05:18 +0000 (+0000)
Subject: [project @ 2003-09-23 15:05:18 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~430
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7d83458f53f4eab14238d18ca945dfaea1e70441;p=ghc-hetmet.git

[project @ 2003-09-23 15:05:18 by simonmar]
Fixes for the DEBUG case.
---

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index a2910ad..74d50ac 100644
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -149,9 +149,11 @@ void grabCapability(Capability** cap)
   free_capabilities = (*cap)->link;
   rts_n_free_capabilities--;
 #endif
-    IF_DEBUG(scheduler,
-	     fprintf(stderr,"worker thread (%p): got capability\n",
-	     	osThreadId()));
+#ifdef RTS_SUPPORTS_THREADS
+  IF_DEBUG(scheduler,
+	   fprintf(stderr,"worker thread (%p): got capability\n",
+		   osThreadId()));
+#endif
 }
 
 /*
@@ -199,9 +201,11 @@ void releaseCapability(Capability* cap
     signalCondition(&thread_ready_cond);
   }
 #endif
-    IF_DEBUG(scheduler,
-	     fprintf(stderr,"worker thread (%p): released capability\n",
-	     	osThreadId()));
+#ifdef RTS_SUPPORTS_THREADS
+  IF_DEBUG(scheduler,
+	   fprintf(stderr,"worker thread (%p): released capability\n",
+		   osThreadId()));
+#endif
  return;
 }