[project @ 2003-01-13 14:02:07 by simonmar]

[ghc-hetmet.git] / ghc / rts / hooks / NoRunnableThreads.c

diff --git a/ghc/rts/hooks/NoRunnableThreads.c b/ghc/rts/hooks/NoRunnableThreads.c
deleted file mode 100644 (file)
index dd33f79..0000000
--- a/ghc/rts/hooks/NoRunnableThreads.c
+++ /dev/null
@@ -1,29 +0,0 @@
-/* -----------------------------------------------------------------------------
- * $Id: NoRunnableThreads.c,v 1.4 2002/07/18 06:05:31 sof Exp $
- *
- * User-overridable RTS hooks.
- *
- * ---------------------------------------------------------------------------*/
-
-#include "Rts.h"
-
-#include <stdio.h>
-#include <stdlib.h>
-
-/*
-  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.
-*/
-
-int
-NoRunnableThreadsHook (void)
-{
-    fflush(stdout);
-    fprintf(stderr, "No runnable threads!\n");
-    return(EXIT_FAILURE);
-}
-