[project @ 2003-01-13 13:39:34 by simonpj]

[ghc-hetmet.git] / ghc / rts / hooks / NoRunnableThreads.c

diff --git a/ghc/rts/hooks/NoRunnableThreads.c b/ghc/rts/hooks/NoRunnableThreads.c
index 209e465..dd33f79 100644 (file)
--- a/ghc/rts/hooks/NoRunnableThreads.c
+++ b/ghc/rts/hooks/NoRunnableThreads.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: NoRunnableThreads.c,v 1.2 1998/12/02 13:29:13 simonm Exp $
+ * $Id: NoRunnableThreads.c,v 1.4 2002/07/18 06:05:31 sof Exp $
  *
  * User-overridable RTS hooks.
  *
@@ -7,6 +7,9 @@
 
 #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