projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Partial fix for #926
[ghc-hetmet.git]
/
includes
/
OSThreads.h
diff --git
a/includes/OSThreads.h
b/includes/OSThreads.h
index
9043144
..
f9af6c4
100644
(file)
--- a/
includes/OSThreads.h
+++ b/
includes/OSThreads.h
@@
-73,6
+73,8
@@
typedef pthread_key_t ThreadLocalKey;
typedef HANDLE Condition;
typedef DWORD OSThreadId;
typedef HANDLE Condition;
typedef DWORD OSThreadId;
+// don't be tempted to use HANDLE as the OSThreadId: there can be
+// many HANDLES to a given thread, so comparison would not work.
typedef DWORD ThreadLocalKey;
#define OSThreadProcAttr __stdcall
typedef DWORD ThreadLocalKey;
#define OSThreadProcAttr __stdcall
@@
-146,6
+148,7
@@
typedef void OSThreadProcAttr OSThreadProc(void *);
extern int createOSThread ( OSThreadId* tid,
OSThreadProc *startProc, void *param);
extern int createOSThread ( OSThreadId* tid,
OSThreadProc *startProc, void *param);
+extern rtsBool osThreadIsAlive ( OSThreadId id );
//
// Condition Variables
//
// Condition Variables
@@
-161,6
+164,7
@@
extern rtsBool waitCondition ( Condition* pCond,
// Mutexes
//
extern void initMutex ( Mutex* pMut );
// Mutexes
//
extern void initMutex ( Mutex* pMut );
+extern void closeMutex ( Mutex* pMut );
//
// Thread-local storage
//
// Thread-local storage