[commit: ghc] master: Untabify and delete trailing whitespace. (a60d748)
git at git.haskell.org
git at git.haskell.org
Sun Oct 27 01:21:48 UTC 2013
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/a60d7488b927a46e010dc00b2d1d35835a95c7fc/ghc
>---------------------------------------------------------------
commit a60d7488b927a46e010dc00b2d1d35835a95c7fc
Author: Austin Seipp <austin at well-typed.com>
Date: Sat Oct 26 20:15:54 2013 -0500
Untabify and delete trailing whitespace.
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
a60d7488b927a46e010dc00b2d1d35835a95c7fc
rts/win32/OSThreads.c | 36 ++++++++++++++++++------------------
1 file changed, 18 insertions(+), 18 deletions(-)
diff --git a/rts/win32/OSThreads.c b/rts/win32/OSThreads.c
index 765cf89..7183313 100644
--- a/rts/win32/OSThreads.c
+++ b/rts/win32/OSThreads.c
@@ -35,9 +35,9 @@ void
initCondition( Condition* pCond )
{
HANDLE h = CreateEvent(NULL,
- FALSE, /* auto reset */
- FALSE, /* initially not signalled */
- NULL); /* unnamed => process-local. */
+ FALSE, /* auto reset */
+ FALSE, /* initially not signalled */
+ NULL); /* unnamed => process-local. */
if ( h == NULL ) {
sysErrorBelch("initCondition: unable to create");
@@ -67,8 +67,8 @@ rtsBool
signalCondition ( Condition* pCond )
{
if (SetEvent(*pCond) == 0) {
- sysErrorBelch("SetEvent");
- stg_exit(EXIT_FAILURE);
+ sysErrorBelch("SetEvent");
+ stg_exit(EXIT_FAILURE);
}
return rtsTrue;
}
@@ -158,9 +158,9 @@ void
initMutex (Mutex* pMut)
{
HANDLE h = CreateMutex ( NULL, /* default sec. attributes */
- FALSE, /* not owned => initially signalled */
- NULL
- );
+ FALSE, /* not owned => initially signalled */
+ NULL
+ );
*pMut = h;
return;
}
@@ -177,7 +177,7 @@ newThreadLocalKey (ThreadLocalKey *key)
DWORD r;
r = TlsAlloc();
if (r == TLS_OUT_OF_INDEXES) {
- barf("newThreadLocalKey: out of keys");
+ barf("newThreadLocalKey: out of keys");
}
*key = r;
}
@@ -191,7 +191,7 @@ getThreadLocalVar (ThreadLocalKey *key)
// r is allowed to be NULL - it can mean that either there was an
// error or the stored value is in fact NULL.
if (GetLastError() != NO_ERROR) {
- sysErrorBelch("getThreadLocalVar");
+ sysErrorBelch("getThreadLocalVar");
stg_exit(EXIT_FAILURE);
}
#endif
@@ -204,7 +204,7 @@ setThreadLocalVar (ThreadLocalKey *key, void *value)
BOOL b;
b = TlsSetValue(*key, value);
if (!b) {
- sysErrorBelch("setThreadLocalVar");
+ sysErrorBelch("setThreadLocalVar");
stg_exit(EXIT_FAILURE);
}
}
@@ -216,7 +216,7 @@ freeThreadLocalKey (ThreadLocalKey *key)
r = TlsFree(*key);
if (r == 0) {
DWORD dw = GetLastError();
- barf("freeThreadLocalKey failed: %lu", dw);
+ barf("freeThreadLocalKey failed: %lu", dw);
}
}
@@ -236,11 +236,11 @@ forkOS_createThread ( HsStablePtr entry )
{
unsigned long pId;
return (_beginthreadex ( NULL, /* default security attributes */
- 0,
- forkOS_createThreadWrapper,
- (void*)entry,
- 0,
- (unsigned*)&pId) == 0);
+ 0,
+ forkOS_createThreadWrapper,
+ (void*)entry,
+ 0,
+ (unsigned*)&pId) == 0);
}
nat
@@ -275,7 +275,7 @@ setThreadAffinity (nat n, nat m) // cap N of M
r = SetThreadAffinityMask(hThread, mask);
if (r == 0) {
- sysErrorBelch("SetThreadAffinity");
+ sysErrorBelch("SetThreadAffinity");
stg_exit(EXIT_FAILURE);
}
}
More information about the ghc-commits
mailing list