summaryrefslogtreecommitdiff
path: root/rts/RtsAPI.c
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2009-05-18 10:41:08 +0000
committerSimon Marlow <marlowsd@gmail.com>2009-05-18 10:41:08 +0000
commit8de62de730e07c23468ec8facd25aca557ad7c11 (patch)
treeea9a0ea1b0fea0835ccad917caf1cfd2c044287a /rts/RtsAPI.c
parent8a3ed3364fbc74b1f1b87b049737da2b251f92df (diff)
downloadhaskell-8de62de730e07c23468ec8facd25aca557ad7c11.tar.gz
Fix #3236: emit a helpful error message when the RTS has not been initialised
Diffstat (limited to 'rts/RtsAPI.c')
-rw-r--r--rts/RtsAPI.c6
1 files changed, 0 insertions, 6 deletions
diff --git a/rts/RtsAPI.c b/rts/RtsAPI.c
index 911e703b75..d0d8d58a34 100644
--- a/rts/RtsAPI.c
+++ b/rts/RtsAPI.c
@@ -664,13 +664,7 @@ rts_lock (void)
Capability *cap;
Task *task;
- // ToDo: get rid of this lock in the common case. We could store
- // a free Task in thread-local storage, for example. That would
- // leave just one lock on the path into the RTS: cap->lock when
- // acquiring the Capability.
- ACQUIRE_LOCK(&sched_mutex);
task = newBoundTask();
- RELEASE_LOCK(&sched_mutex);
cap = NULL;
waitForReturnCapability(&cap, task);