[project @ 1998-12-02 13:17:09 by simonm]

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

diff --git a/ghc/runtime/hooks/NoRunnableThrds.lc b/ghc/runtime/hooks/NoRunnableThrds.lc
deleted file mode 100644 (file)
index 4bb693e..0000000
--- a/ghc/runtime/hooks/NoRunnableThrds.lc
+++ /dev/null
@@ -1,19 +0,0 @@
-
-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}
-#include "rtsdefs.h"
-
-int
-NoRunnableThreadsHook (void)
-{
-    fflush(stdout);
-    fprintf(stderr, "No runnable threads!\n");
-    return(EXIT_FAILURE);
-}
-\end{code}