RTS tidyup sweep, first phase

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

diff --git a/includes/OSThreads.h b/includes/rts/OSThreads.h
similarity index 94%
rename from includes/OSThreads.h
rename to includes/rts/OSThreads.h
index f5c434f..2d32136 100644 (file)
--- a/includes/OSThreads.h
+++ b/includes/rts/OSThreads.h
@@ -7,8 +7,8 @@
  * 
  * --------------------------------------------------------------------------*/
 
-#ifndef __OSTHREADS_H__
-#define __OSTHREADS_H__
+#ifndef RTS_OSTHREADS_H
+#define RTS_OSTHREADS_H
 
 #if defined(THREADED_RTS) /* to the end */
 
@@ -152,7 +152,7 @@ typedef HANDLE Mutex;
 // General thread operations
 //
 extern OSThreadId osThreadId      ( void );
-extern void shutdownThread        ( void );
+extern void shutdownThread        ( void )   GNUC3_ATTRIBUTE(__noreturn__);
 extern void yieldThread           ( void );
 
 typedef void OSThreadProcAttr OSThreadProc(void *);
@@ -198,4 +198,12 @@ void setThreadAffinity     (nat n, nat m);
 
 #endif /* defined(THREADED_RTS) */
 
-#endif /* __OSTHREADS_H__ */
+//
+// Support for forkOS (defined regardless of THREADED_RTS, but does
+// nothing when !THREADED_RTS).
+//
+#ifndef CMINUSMINUS
+int forkOS_createThread ( HsStablePtr entry );
+#endif
+
+#endif /* RTS_OSTHREADS_H */