From: simonmar <unknown>
Date: Mon, 13 Jan 2003 14:02:08 +0000 (+0000)
Subject: [project @ 2003-01-13 14:02:07 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1262
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=732cf22e81b4cffa076733a170826f2ca007dd6f;p=ghc-hetmet.git

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