[project @ 2003-10-01 09:08:10 by simonmar]

[ghc-hetmet.git] / ghc / rts / Capability.c

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index a2910ad..74d50ac 100644 (file)
--- 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;
 }