diff options
author | sof <unknown> | 1997-10-05 20:30:17 +0000 |
---|---|---|
committer | sof <unknown> | 1997-10-05 20:30:17 +0000 |
commit | ff7984c67c6ec048bd37b92d272aa74dbf19433c (patch) | |
tree | 03112444b438282413c736fde279f83c325d98ff /ghc/runtime | |
parent | b6c47c885295e2755da8970057884ce55dd894de (diff) | |
download | haskell-ff7984c67c6ec048bd37b92d272aa74dbf19433c.tar.gz |
[project @ 1997-10-05 20:30:17 by sof]
Removed CONCURRENT #ifdef protection; updated docs
Diffstat (limited to 'ghc/runtime')
-rw-r--r-- | ghc/runtime/hooks/NoRunnableThrds.lc | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/ghc/runtime/hooks/NoRunnableThrds.lc b/ghc/runtime/hooks/NoRunnableThrds.lc index c9b351c4b8..4bb693ee83 100644 --- a/ghc/runtime/hooks/NoRunnableThrds.lc +++ b/ghc/runtime/hooks/NoRunnableThrds.lc @@ -1,14 +1,19 @@ +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. \begin{code} -#ifdef CONCURRENT /* the whole thing! */ #include "rtsdefs.h" -void +int NoRunnableThreadsHook (void) { + fflush(stdout); fprintf(stderr, "No runnable threads!\n"); + return(EXIT_FAILURE); } -#endif /* CONCURRENT */ - \end{code} |