projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cca6aea
)
[project @ 2005-04-12 12:24:44 by simonmar]
author
simonmar
<unknown>
Tue, 12 Apr 2005 12:24:44 +0000
(12:24 +0000)
committer
simonmar
<unknown>
Tue, 12 Apr 2005 12:24:44 +0000
(12:24 +0000)
cleanup
ghc/rts/Capability.c
patch
|
blob
|
history
diff --git
a/ghc/rts/Capability.c
b/ghc/rts/Capability.c
index
8e28911
..
f38433f
100644
(file)
--- a/
ghc/rts/Capability.c
+++ b/
ghc/rts/Capability.c
@@
-212,19
+212,11
@@
releaseCapability( Capability* cap UNUSED_IF_NOT_SMP )
} else {
signalCondition(passTarget);
}
} else {
signalCondition(passTarget);
}
-#if defined(SMP)
rts_n_free_capabilities++;
rts_n_free_capabilities++;
-#else
- rts_n_free_capabilities = 1;
-#endif
IF_DEBUG(scheduler, sched_belch("worker: released capability, passing it"));
} else {
IF_DEBUG(scheduler, sched_belch("worker: released capability, passing it"));
} else {
-#if defined(SMP)
rts_n_free_capabilities++;
rts_n_free_capabilities++;
-#else
- rts_n_free_capabilities = 1;
-#endif
// Signal that a capability is available
if (rts_n_waiting_tasks > 0 && ANY_WORK_TO_DO()) {
signalCondition(&thread_ready_cond);
// Signal that a capability is available
if (rts_n_waiting_tasks > 0 && ANY_WORK_TO_DO()) {
signalCondition(&thread_ready_cond);