[commit: ghc] master: [ci skip] includes: detabify/dewhitespace rts/OSThreads.h (7d26398)
git at git.haskell.org
git at git.haskell.org
Wed Aug 20 17:51:56 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/7d26398be9502aa774231f0257631f74893fa1ca/ghc
>---------------------------------------------------------------
commit 7d26398be9502aa774231f0257631f74893fa1ca
Author: Austin Seipp <austin at well-typed.com>
Date: Wed Aug 20 12:44:28 2014 -0500
[ci skip] includes: detabify/dewhitespace rts/OSThreads.h
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
7d26398be9502aa774231f0257631f74893fa1ca
includes/rts/OSThreads.h | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/includes/rts/OSThreads.h b/includes/rts/OSThreads.h
index 0d2404c..e99be8a 100644
--- a/includes/rts/OSThreads.h
+++ b/includes/rts/OSThreads.h
@@ -141,14 +141,14 @@ typedef HANDLE Mutex;
// casting to (Mutex *) here required due to use in .cmm files where
// the argument has (void *) type.
-#define ACQUIRE_LOCK(mutex) \
+#define ACQUIRE_LOCK(mutex) \
if (WaitForSingleObject(*((Mutex *)mutex),INFINITE) == WAIT_FAILED) { \
- barf("WaitForSingleObject: %d", GetLastError()); \
+ barf("WaitForSingleObject: %d", GetLastError()); \
}
-#define RELEASE_LOCK(mutex) \
- if (ReleaseMutex(*((Mutex *)mutex)) == 0) { \
- barf("ReleaseMutex: %d", GetLastError()); \
+#define RELEASE_LOCK(mutex) \
+ if (ReleaseMutex(*((Mutex *)mutex)) == 0) { \
+ barf("ReleaseMutex: %d", GetLastError()); \
}
#define ASSERT_LOCK_HELD(mutex) /* nothing */
@@ -172,7 +172,7 @@ extern void yieldThread ( void );
typedef void OSThreadProcAttr OSThreadProc(void *);
extern int createOSThread ( OSThreadId* tid,
- OSThreadProc *startProc, void *param);
+ OSThreadProc *startProc, void *param);
extern rtsBool osThreadIsAlive ( OSThreadId id );
extern void interruptOSThread (OSThreadId id);
More information about the ghc-commits
mailing list