summaryrefslogtreecommitdiff
path: root/ghc/rts/Select.c
diff options
context:
space:
mode:
authorsimonmar <unknown>2000-01-13 12:40:16 +0000
committersimonmar <unknown>2000-01-13 12:40:16 +0000
commitbe587a37ca135acccdb273370852dcb4202be5cd (patch)
treedaf88fdea7b8a284073681bd251058c6efd6d988 /ghc/rts/Select.c
parent579f8ebf06e367727d9e815e81000408b1a684c6 (diff)
downloadhaskell-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.c5
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);