diff options
| author | simonmar <unknown> | 2000-01-13 12:40:16 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-01-13 12:40:16 +0000 |
| commit | be587a37ca135acccdb273370852dcb4202be5cd (patch) | |
| tree | daf88fdea7b8a284073681bd251058c6efd6d988 /ghc/rts/Select.c | |
| parent | 579f8ebf06e367727d9e815e81000408b1a684c6 (diff) | |
| download | haskell-be587a37ca135acccdb273370852dcb4202be5cd.tar.gz | |
[project @ 2000-01-13 12:40:15 by simonmar]
- remove AllBlocked scheduler return code. Nobody owned up to having
created it or even knowing what it was there for.
- clean up fatal error condition handling somewhat. The process
exit code from a GHC program now indicates the kind of failure
for certain kinds of exit:
general internal RTS error 254
program deadlocked 253
program interrupted (ctrl-C) 252
heap overflow 251
main thread killed 250
and we leave exit codes 1-199 for the user (as is traditional at MS,
200-249 are reserved for future expansion, and may contain
undocumented extensions :-)
Diffstat (limited to 'ghc/rts/Select.c')
| -rw-r--r-- | ghc/rts/Select.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ghc/rts/Select.c b/ghc/rts/Select.c index 0fcde6039e..87f3267c82 100644 --- a/ghc/rts/Select.c +++ b/ghc/rts/Select.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Select.c,v 1.6 2000/01/12 15:15:18 simonmar Exp $ + * $Id: Select.c,v 1.7 2000/01/13 12:40:16 simonmar Exp $ * * (c) The GHC Team 1995-1999 * @@ -136,8 +136,7 @@ awaitEvent(rtsBool wait) if (errno != EINTR) { /* fflush(stdout); */ perror("select"); - fprintf(stderr, "awaitEvent: select failed\n"); - stg_exit(EXIT_FAILURE); + barf("select failed"); } ACQUIRE_LOCK(&sched_mutex); |
