From 7d83458f53f4eab14238d18ca945dfaea1e70441 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 23 Sep 2003 15:05:18 +0000
Subject: [PATCH] [project @ 2003-09-23 15:05:18 by simonmar] Fixes for the
 DEBUG case.

---
 ghc/rts/Capability.c |   16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

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;
 }
 
-- 
1.7.10.4