From: sof <unknown>
Date: Sun, 5 Oct 1997 20:34:00 +0000 (+0000)
Subject: [project @ 1997-10-05 20:34:00 by sof]
X-Git-Tag: Approx_2487_patches~1433
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f8fd34bad82786d2fcf47f3055c9872048e927b0;p=ghc-hetmet.git

[project @ 1997-10-05 20:34:00 by sof]
prototype for NoRunnableThreadsHook changed; commented out old protos
---

diff --git a/ghc/includes/stgdefs.h b/ghc/includes/stgdefs.h
index 50eb657..7170d42 100644
--- a/ghc/includes/stgdefs.h
+++ b/ghc/includes/stgdefs.h
@@ -215,16 +215,18 @@ void miniInterpret PROTO((StgFunPtr));
 void miniInterpret_debug PROTO(( StgFunPtr, void(*)(STG_NO_ARGS) ));
 void miniInterpretEnd(STG_NO_ARGS);
 
+/* UNUSED   -- SOF 9/97
 StgFunPtr evaluateMain(STG_NO_ARGS);
 StgFunPtr returnMain(STG_NO_ARGS);
 StgFunPtr impossible_jump_after_switch(STG_NO_ARGS);
+*/
 
 /* hooks: user might write some of their own */
 void ErrorHdrHook	PROTO((FILE *));
 void OutOfHeapHook	PROTO((W_, W_));
 void StackOverflowHook	PROTO((I_));
 #ifdef CONCURRENT
-void NoRunnableThreadsHook (STG_NO_ARGS);
+int NoRunnableThreadsHook (STG_NO_ARGS);
 #endif
 void MallocFailHook	PROTO((I_, char *));
 void PatErrorHdrHook	PROTO((FILE *));