[project @ 2003-01-27 23:23:30 by wolfgang]

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

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index ee25f27..d96b724 100644 (file)
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -137,7 +137,9 @@ static Capability *returning_capabilities;
  */ 
 void grabCapability(Capability** cap)
 {
+#ifdef RTS_SUPPORTS_THREADS
   ASSERT(rts_n_free_capabilities > 0);
+#endif
 #if !defined(SMP)
   rts_n_free_capabilities = 0;
   *cap = &MainCapability;