[project @ 1997-10-05 20:30:17 by sof]

[ghc-hetmet.git] / ghc / runtime / hooks / NoRunnableThrds.lc

diff --git a/ghc/runtime/hooks/NoRunnableThrds.lc b/ghc/runtime/hooks/NoRunnableThrds.lc
index c9b351c..4bb693e 100644 (file)
--- 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}