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

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

ghc/rts/Linker.c

 /* -----------------------------------------------------------------------------
- * $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)			\

ghc/rts/hooks/NoRunnableThreads.c

-/* -----------------------------------------------------------------------------
- * $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);
-}
-