ghc/runtime/hooks/NoRunnableThrds.lc

   1
   2
   3 \begin{code}
   4 #ifdef CONCURRENT /* the whole thing! */
   5 #include "rtsdefs.h"
   6
   7 void
   8 NoRunnableThreadsHook (void)
   9 {
  10     fprintf(stderr, "No runnable threads!\n");
  11 }
  12 #endif /* CONCURRENT */
  13
  14 \end{code}