diff options
| author | simonmar <unknown> | 2003-12-15 16:45:23 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-12-15 16:45:23 +0000 |
| commit | 2ca1379641d1ffef330e48f124abaa4983837c9b (patch) | |
| tree | f29ea2cfbff62595f8073a1d9082efb967a67d43 | |
| parent | 410a99e4d59c22940db2adf59fb912435b71d24b (diff) | |
| download | haskell-2ca1379641d1ffef330e48f124abaa4983837c9b.tar.gz | |
[project @ 2003-12-15 16:45:23 by simonmar]
Add assertion.
| -rw-r--r-- | ghc/rts/Capability.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c index 1d789821c2..6d2f43c1f3 100644 --- a/ghc/rts/Capability.c +++ b/ghc/rts/Capability.c @@ -150,9 +150,7 @@ void grabCapability(Capability** cap) free_capabilities = (*cap)->link; rts_n_free_capabilities--; #endif -#ifdef RTS_SUPPORTS_THREADS - IF_DEBUG(scheduler, sched_belch("worker: got capability")); -#endif + IF_DEBUG(scheduler, sched_belch("worker: got capability")); } /* @@ -362,6 +360,7 @@ passCapability(Mutex* pMutex, Capability* cap, Condition *pTargetThreadCond) #ifdef SMP #error SMP version not implemented #endif + ASSERT(rts_n_free_capabilities == 0); rts_n_free_capabilities = 1; signalCondition(pTargetThreadCond); passTarget = pTargetThreadCond; |