ghc/runtime/hooks/NoRunnableThrds.lc

   1
   2 Hook to invoke when there's nothing left on the runnable threads
   3 queue {\em and} we've got nothing to wait for. The value
   4 returned is the exit code to report back.
   5
   6 NOTE: This hook is really CONCURRENT specific, but we include
   7 it in the way-independent libHSclib.a.
   8
   9 \begin{code}
  10 #include "rtsdefs.h"
  11
  12 int
  13 NoRunnableThreadsHook (void)
  14 {
  15     fflush(stdout);
  16     fprintf(stderr, "No runnable threads!\n");
  17     return(EXIT_FAILURE);
  18 }
  19 \end{code}