summaryrefslogtreecommitdiff
path: root/rts/win32
diff options
context:
space:
mode:
authorAustin Seipp <austin@well-typed.com>2013-10-26 20:15:54 -0500
committerAustin Seipp <austin@well-typed.com>2013-10-26 20:16:44 -0500
commita60d7488b927a46e010dc00b2d1d35835a95c7fc (patch)
tree9dc3516022f118ce8e5dab4ef11e3ddd35b8021b /rts/win32
parent94c8dfa2f43441c4074f5bcead6ee54f5fd63ffb (diff)
downloadhaskell-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.c46
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);
}
}