Commit 05fa9867 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-10-26 15:20:59 by simonmar]

- forkProcess fix: add a forgotten rts_unlock()
- add a couple more ASSERTs
parent e8a78f0f
......@@ -1934,6 +1934,7 @@ forkProcess(HsStablePtr *entry
if (pid) { // parent
// just return the pid
rts_unlock(cap);
return pid;
} else { // child
......@@ -2462,6 +2463,8 @@ scheduleWaitThread (StgTSO* tso, /*[out]*/HaskellObj* ret, Capability *cap)
cap = schedule(cap,task);
ASSERT(task->stat != NoStatus);
ASSERT(cap->running_task == task);
ASSERT(task->cap == cap);
IF_DEBUG(scheduler, sched_belch("bound thread (%d) finished", task->tso->id));
return cap;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment