Untabify and delete trailing whitespace.
authorAustin Seipp <austin@well-typed.com>
Sun, 27 Oct 2013 01:15:54 +0000 (20:15 -0500)
committerAustin Seipp <austin@well-typed.com>
Sun, 27 Oct 2013 01:16:44 +0000 (20:16 -0500)
Signed-off-by: Austin Seipp <austin@well-typed.com>
rts/win32/OSThreads.c

index 765cf89..7183313 100644 (file)
@@ -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.
  */
 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);
     }
 }