summaryrefslogtreecommitdiff
path: root/ghc/runtime
diff options
context:
space:
mode:
authorsof <unknown>1997-10-05 20:30:17 +0000
committersof <unknown>1997-10-05 20:30:17 +0000
commitff7984c67c6ec048bd37b92d272aa74dbf19433c (patch)
tree03112444b438282413c736fde279f83c325d98ff /ghc/runtime
parentb6c47c885295e2755da8970057884ce55dd894de (diff)
downloadhaskell-ff7984c67c6ec048bd37b92d272aa74dbf19433c.tar.gz
[project @ 1997-10-05 20:30:17 by sof]
Removed CONCURRENT #ifdef protection; updated docs
Diffstat (limited to 'ghc/runtime')
-rw-r--r--ghc/runtime/hooks/NoRunnableThrds.lc13
1 files changed, 9 insertions, 4 deletions
diff --git a/ghc/runtime/hooks/NoRunnableThrds.lc b/ghc/runtime/hooks/NoRunnableThrds.lc
index c9b351c4b8..4bb693ee83 100644
--- a/ghc/runtime/hooks/NoRunnableThrds.lc
+++ b/ghc/runtime/hooks/NoRunnableThrds.lc
@@ -1,14 +1,19 @@
+Hook to invoke when there's nothing left on the runnable threads
+queue {\em and} we've got nothing to wait for. The value
+returned is the exit code to report back.
+
+NOTE: This hook is really CONCURRENT specific, but we include
+it in the way-independent libHSclib.a.
\begin{code}
-#ifdef CONCURRENT /* the whole thing! */
#include "rtsdefs.h"
-void
+int
NoRunnableThreadsHook (void)
{
+ fflush(stdout);
fprintf(stderr, "No runnable threads!\n");
+ return(EXIT_FAILURE);
}
-#endif /* CONCURRENT */
-
\end{code}