X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2Fstgdefs.h;fp=ghc%2Fincludes%2Fstgdefs.h;h=0c67bfb060599624056489d164bcd5cc390ee4c5;hb=e0d9d7f001498aed8c61fea2087f9d0e98f56f6d;hp=f07689c4814386950431c1defaca437d381186e9;hpb=11d61ae122dab3b67caa918079630737230c7caa;p=ghc-hetmet.git

diff --git a/ghc/includes/stgdefs.h b/ghc/includes/stgdefs.h
index f07689c..0c67bfb 100644
--- a/ghc/includes/stgdefs.h
+++ b/ghc/includes/stgdefs.h
@@ -5,7 +5,6 @@
 #define STGDEFS_H
 
 /* machine/compiler/system dependencies :-(  Must be first! */
-/* OLD: #include "platform.h"  generated by configure */
 #include "config.h"   /* generated by configure */
 #include "error.h"
 #include "StgMachDeps.h"
@@ -221,8 +220,16 @@ StgFunPtr returnMain(STG_NO_ARGS);
 StgFunPtr impossible_jump_after_switch(STG_NO_ARGS);
 */
 
+/* error handling for IO implementation*/
+extern int ghc_errno;
+extern int ghc_errtype;
+extern char *ghc_errstr;
+
+void cvtErrno (void);
+void stdErrno (void);
+
 /* hooks: user might write some of their own */
-void ErrorHdrHook	PROTO((FILE *));
+void ErrorHdrHook	PROTO((StgInt));
 void OutOfHeapHook	PROTO((W_, W_));
 void OnExitHook         (STG_NO_ARGS);
 void StackOverflowHook	PROTO((I_));
@@ -230,11 +237,12 @@ void StackOverflowHook	PROTO((I_));
 int NoRunnableThreadsHook (STG_NO_ARGS);
 #endif
 void MallocFailHook	PROTO((I_, char *));
-void PatErrorHdrHook	PROTO((FILE *));
-void PreTraceHook	PROTO((FILE *));
-void PostTraceHook	PROTO((FILE *));
+void PatErrorHdrHook	PROTO((StgInt));
+void PreTraceHook	PROTO((StgInt));
+void PostTraceHook	PROTO((StgInt));
 void defaultsHook	(STG_NO_ARGS);
 void initEachPEHook	(STG_NO_ARGS);
+void IOErrorHdrHook     PROTO((StgInt));
 
 EXTFUN(startStgWorld);
 #ifdef CONCURRENT