[project @ 2002-08-19 08:38:36 by simonmar]

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

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index 668f435..d8bdbe6 100644 (file)
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -26,7 +26,7 @@
 Capability MainCapability;     /* for non-SMP, we have one global capability */
 #endif
 
-static nat rts_n_free_capabilities;
+nat rts_n_free_capabilities;
 
 #if defined(RTS_SUPPORTS_THREADS)
 /* returning_worker_cond: when a worker thread returns from executing an