diff options
author | Austin Seipp <austin@well-typed.com> | 2013-10-26 20:15:54 -0500 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2013-10-26 20:16:44 -0500 |
commit | a60d7488b927a46e010dc00b2d1d35835a95c7fc (patch) | |
tree | 9dc3516022f118ce8e5dab4ef11e3ddd35b8021b /rts/win32 | |
parent | 94c8dfa2f43441c4074f5bcead6ee54f5fd63ffb (diff) | |
download | haskell-a60d7488b927a46e010dc00b2d1d35835a95c7fc.tar.gz |
Untabify and delete trailing whitespace.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/win32')
-rw-r--r-- | rts/win32/OSThreads.c | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/rts/win32/OSThreads.c b/rts/win32/OSThreads.c index 765cf899c3..7183313ef4 100644 --- a/rts/win32/OSThreads.c +++ b/rts/win32/OSThreads.c @@ -3,7 +3,7 @@ * (c) The GHC Team, 2001-2005 * * Accessing OS threads functionality in a (mostly) OS-independent - * manner. + * manner. * * --------------------------------------------------------------------------*/ @@ -14,7 +14,7 @@ #if defined(THREADED_RTS) #include "RtsUtils.h" -/* For reasons not yet clear, the entire contents of process.h is protected +/* For reasons not yet clear, the entire contents of process.h is protected * by __STRICT_ANSI__ not being defined. */ #undef __STRICT_ANSI__ @@ -26,7 +26,7 @@ * a Mutex by a Mutex kernel object. * * ToDo: go through the defn and usage of these to - * make sure the semantics match up with that of + * make sure the semantics match up with that of * the (assumed) pthreads behaviour. This is really * just a first pass at getting something compilable. */ @@ -34,11 +34,11 @@ void initCondition( Condition* pCond ) { - HANDLE h = CreateEvent(NULL, - FALSE, /* auto reset */ - FALSE, /* initially not signalled */ - NULL); /* unnamed => process-local. */ - + HANDLE h = CreateEvent(NULL, + FALSE, /* auto reset */ + FALSE, /* initially not signalled */ + NULL); /* unnamed => process-local. */ + if ( h == NULL ) { sysErrorBelch("initCondition: unable to create"); stg_exit(EXIT_FAILURE); @@ -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); } } |