projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 */
#if defined(THREADED_RTS) /* to the end */
@@
-152,7
+152,7
@@
typedef HANDLE Mutex;
// General thread operations
//
extern OSThreadId osThreadId ( void );
// 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 *);
extern void yieldThread ( void );
typedef void OSThreadProcAttr OSThreadProc(void *);
@@
-198,4
+198,12
@@
void setThreadAffinity (nat n, nat m);
#endif /* defined(THREADED_RTS) */
#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 */