diff options
author | Simon Marlow <marlowsd@gmail.com> | 2009-05-18 10:41:08 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2009-05-18 10:41:08 +0000 |
commit | 8de62de730e07c23468ec8facd25aca557ad7c11 (patch) | |
tree | ea9a0ea1b0fea0835ccad917caf1cfd2c044287a /rts/RtsAPI.c | |
parent | 8a3ed3364fbc74b1f1b87b049737da2b251f92df (diff) | |
download | haskell-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.c | 6 |
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); |