From: sof <unknown>
Date: Sun, 5 Oct 1997 20:30:17 +0000 (+0000)
Subject: [project @ 1997-10-05 20:30:17 by sof]
X-Git-Tag: Approx_2487_patches~1435
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ff7984c67c6ec048bd37b92d272aa74dbf19433c;p=ghc-hetmet.git

[project @ 1997-10-05 20:30:17 by sof]
Removed CONCURRENT #ifdef protection; updated docs
---

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