Commit 732cf22e authored by simonmar's avatar simonmar
Browse files

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

The hook NoRunnableThreads() is not used; kill it.
parent a7c1d388
/* -----------------------------------------------------------------------------
* $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) \
......
/* -----------------------------------------------------------------------------
* $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);
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment