X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FOSThreads.h;fp=includes%2FOSThreads.h;h=9a3b5aa6c74e4371997f890da039b6458f2fc9a5;hb=65ff44face84ae30f1ddf7d009d51c1778f8c7d3;hp=32429b5794ce7de58ca249b291e4293b1c3bc0dc;hpb=68f606a04198beb15b577ebc951d34a313710cdc;p=ghc-hetmet.git diff --git a/includes/OSThreads.h b/includes/OSThreads.h index 32429b5..9a3b5aa 100644 --- a/includes/OSThreads.h +++ b/includes/OSThreads.h @@ -79,6 +79,15 @@ typedef pthread_key_t ThreadLocalKey; #endif // CMINUSMINUS # elif defined(HAVE_WINDOWS_H) + +#if CMINUSMINUS + +#define ACQUIRE_LOCK(mutex) EnterCriticalSection(mutex) +#define RELEASE_LOCK(mutex) LeaveCriticalSection(mutex) +#define ASSERT_LOCK_HELD(mutex) /* nothing */ + +#else + #include typedef HANDLE Condition; @@ -143,6 +152,8 @@ typedef HANDLE Mutex; #define ASSERT_LOCK_HELD(mutex) /* nothing */ #endif +#endif // CMINUSMINUS + # else # error "Threads not supported" # endif