X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2Fstgdefs.h;fp=ghc%2Fincludes%2Fstgdefs.h;h=d6d7f660296c9413f12466014b37c5823cccbfdc;hb=a7e6cdbfc4f27c2e0ab9c12ebe6431c246c74c6d;hp=88b0f40007e41be5471e8dc39c94686f84160dd7;hpb=26741ec416bae2c502ef00a2ba0e79050a32cb67;p=ghc-hetmet.git

diff --git a/ghc/includes/stgdefs.h b/ghc/includes/stgdefs.h
index 88b0f40..d6d7f66 100644
--- a/ghc/includes/stgdefs.h
+++ b/ghc/includes/stgdefs.h
@@ -87,6 +87,22 @@ extern int sscanf PROTO((const char *, const char *, ...));
 /* end of hack */
 #endif /* STDC_HEADERS */
 
+/*
+ * threadWaitWrite# uses FD_SETSIZE to distinguish
+ * between read file descriptors and write fd's.
+ * Hence we need to include <sys/types.h>, but
+ * is this the best place to do it?
+ * (the following has been moved from libposix.h)
+ */
+
+#ifdef HAVE_SYS_TYPES_H
+#include <sys/types.h>
+#endif  /* HAVE_SYS_TYPES_H */
+
+#ifndef FD_SETSIZE
+#define FD_SETSIZE 1024
+#endif
+
 #if ! defined(EXIT_SUCCESS) || ! defined(EXIT_FAILURE)
 /* "stdlib.h" should have defined these; but at least
    on SunOS 4.1.3, this is not so.
@@ -188,13 +204,18 @@ extern StgFunPtr returnMain(STG_NO_ARGS);
 extern StgFunPtr impossible_jump_after_switch(STG_NO_ARGS);
 
 /* hooks: user might write some of their own */
-extern void ErrorHdrHook	PROTO((FILE *));
-extern void OutOfHeapHook	PROTO((W_));
-extern void StackOverflowHook	PROTO((I_));
-extern void MallocFailHook	PROTO((I_, char *));
-extern void PatErrorHdrHook	PROTO((FILE *));
-extern void PreTraceHook	PROTO((FILE *));
-extern void PostTraceHook	PROTO((FILE *));
+void ErrorHdrHook	PROTO((FILE *));
+void OutOfHeapHook	PROTO((W_));
+void StackOverflowHook	PROTO((I_));
+#ifdef CONCURRENT
+void NoRunnableThreadsHook (STG_NO_ARGS);
+#endif
+void MallocFailHook	PROTO((I_, char *));
+void PatErrorHdrHook	PROTO((FILE *));
+void PreTraceHook	PROTO((FILE *));
+void PostTraceHook	PROTO((FILE *));
+void defaultsHook	(STG_NO_ARGS);
+void initEachPEHook	(STG_NO_ARGS);
 
 EXTFUN(startStgWorld);
 #ifdef CONCURRENT