[commit: ghc] master: rts: delint/detab/dewhitespace win32/WorkQueue.c (9e8d258)

git at git.haskell.org git at git.haskell.org
Mon Jul 28 14:35:34 UTC 2014


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/9e8d2580f0a7498664ded1ff7cdae6bca07b8dda/ghc

>---------------------------------------------------------------

commit 9e8d2580f0a7498664ded1ff7cdae6bca07b8dda
Author: Austin Seipp <austin at well-typed.com>
Date:   Mon Jul 21 19:57:32 2014 -0500

    rts: delint/detab/dewhitespace win32/WorkQueue.c
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

9e8d2580f0a7498664ded1ff7cdae6bca07b8dda
 rts/win32/WorkQueue.c | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/rts/win32/WorkQueue.c b/rts/win32/WorkQueue.c
index b676072..a995f45 100644
--- a/rts/win32/WorkQueue.c
+++ b/rts/win32/WorkQueue.c
@@ -18,9 +18,9 @@ newSemaphore(int initCount, int max)
 {
   Semaphore s;
   s = CreateSemaphore ( NULL,       /* LPSECURITY_ATTRIBUTES (default) */
-			initCount,  /* LONG lInitialCount */
-			max,        /* LONG lMaxCount */
-			NULL);      /* LPCTSTR (anonymous / no object name) */
+                        initCount,  /* LONG lInitialCount */
+                        max,        /* LONG lMaxCount */
+                        NULL);      /* LPCTSTR (anonymous / no object name) */
   if ( NULL == s) {
     queue_error_rc("newSemaphore", GetLastError());
     return NULL;
@@ -116,9 +116,10 @@ GetWork ( WorkQueue* pq, void** ppw )
   }
 
   /* Block waiting for work item to become available */
-  if ( (rc = WaitForSingleObject( pq->workAvailable, INFINITE)) != WAIT_OBJECT_0 ) {
+  if ( (rc = WaitForSingleObject( pq->workAvailable, INFINITE))
+         != WAIT_OBJECT_0 ) {
     queue_error_rc("GetWork.WaitForSingleObject(workAvailable)",
-		   ( (WAIT_FAILED == rc) ? GetLastError() : rc));
+                   ( (WAIT_FAILED == rc) ? GetLastError() : rc));
     return FALSE;
   }
 
@@ -181,9 +182,10 @@ SubmitWork ( WorkQueue* pq, void* pw )
   }
 
   /* Block waiting for work item to become available */
-  if ( (rc = WaitForSingleObject( pq->roomAvailable, INFINITE)) != WAIT_OBJECT_0 ) {
+  if ( (rc = WaitForSingleObject( pq->roomAvailable, INFINITE))
+         != WAIT_OBJECT_0 ) {
     queue_error_rc("SubmitWork.WaitForSingleObject(workAvailable)",
-		   ( (WAIT_FAILED == rc) ? GetLastError() : rc));
+                   ( (WAIT_FAILED == rc) ? GetLastError() : rc));
 
     return FALSE;
   }
@@ -205,7 +207,7 @@ SubmitWork ( WorkQueue* pq, void* pw )
 
 static void
 queue_error_rc( char* loc,
-		DWORD err)
+                DWORD err)
 {
   fprintf(stderr, "%s failed: return code = 0x%lx\n", loc, err);
   fflush(stderr);
@@ -215,10 +217,9 @@ queue_error_rc( char* loc,
 
 static void
 queue_error( char* loc,
-	     char* reason)
+             char* reason)
 {
   fprintf(stderr, "%s failed: %s\n", loc, reason);
   fflush(stderr);
   return;
 }
-



More information about the ghc-commits mailing list