Windows build fixes

[ghc-hetmet.git] / includes / rts / Threads.h

diff --git a/includes/rts/Threads.h b/includes/rts/Threads.h
index 06a0ed1..4f343b8 100644 (file)
--- a/includes/rts/Threads.h
+++ b/includes/rts/Threads.h
@@ -34,7 +34,14 @@ StgRegTable * resumeThread  (void *);
 //
 int    cmp_thread      (StgPtr tso1, StgPtr tso2);
 int    rts_getThreadId (StgPtr tso);
+
+#if !defined(mingw32_HOST_OS)
 pid_t  forkProcess     (HsStablePtr *entry);
+#else
+pid_t  forkProcess     (HsStablePtr *entry)
+    GNU_ATTRIBUTE(__noreturn__);
+#endif
+
 HsBool rtsSupportsBoundThreads (void);
 
 // The number of Capabilities