[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