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

The hook NoRunnableThreads() is not used; kill it.

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 6c57c4d..f584014 100644 (file)
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.109 2002/12/27 10:32:59 panne Exp $
+ * $Id: Linker.c,v 1.110 2003/01/13 14:02:07 simonmar Exp $
  *
  * (c) The GHC Team, 2000, 2001
  *
@@ -330,7 +330,6 @@ typedef struct _RtsSymbolVal {
       SymX(ErrorHdrHook)                       \
       MAIN_CAP_SYM                              \
       SymX(MallocFailHook)                     \
-      SymX(NoRunnableThreadsHook)              \
       SymX(OnExitHook)                         \
       SymX(OutOfHeapHook)                      \
       SymX(PatErrorHdrHook)                    \

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);
-}
-