diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-08-30 14:02:52 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-08-30 14:02:52 +0000 |
| commit | ab1e183aa7801f9260a9cbb6edbd553cf8249b25 (patch) | |
| tree | 7245d178055f0f05ce45c74d8eca56eea49af2b2 /rts/Task.c | |
| parent | ee4d9a57ab125607e3029a8c1d052114956811f5 (diff) | |
| download | haskell-ab1e183aa7801f9260a9cbb6edbd553cf8249b25.tar.gz | |
add sysErrorBelch() for reporting system call errors
Diffstat (limited to 'rts/Task.c')
| -rw-r--r-- | rts/Task.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/Task.c b/rts/Task.c index a03ed87651..72147256d8 100644 --- a/rts/Task.c +++ b/rts/Task.c @@ -283,7 +283,8 @@ startWorkerTask (Capability *cap, r = createOSThread(&tid, (OSThreadProc *)taskStart, task); if (r != 0) { - barf("startTask: Can't create new task"); + sysErrorBelch("failed to create OS thread"); + stg_exit(EXIT_FAILURE); } debugTrace(DEBUG_sched, "new worker task (taskCount: %d)", taskCount); |