[commit: ghc] master: Whitespace only in rts/storage/SMPClosureOps.h (9e4348e)

Ian Lynagh igloo at earth.li
Sat Jun 15 14:06:48 CEST 2013


Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/9e4348ec5de43ff540cc9e3c21e5aade8e2d5a61

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

commit 9e4348ec5de43ff540cc9e3c21e5aade8e2d5a61
Author: Ian Lynagh <ian at well-typed.com>
Date:   Fri Jun 14 22:02:56 2013 +0100

    Whitespace only in rts/storage/SMPClosureOps.h

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

 includes/rts/storage/SMPClosureOps.h | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/includes/rts/storage/SMPClosureOps.h b/includes/rts/storage/SMPClosureOps.h
index 3934987..e2b01d7 100644
--- a/includes/rts/storage/SMPClosureOps.h
+++ b/includes/rts/storage/SMPClosureOps.h
@@ -35,12 +35,12 @@ EXTERN_INLINE StgInfoTable *lockClosure(StgClosure *p)
 {
     StgWord info;
     do {
-	nat i = 0;
-	do {
-	    info = xchg((P_)(void *)&p->header.info, (W_)&stg_WHITEHOLE_info);
-	    if (info != (W_)&stg_WHITEHOLE_info) return (StgInfoTable *)info;
-	} while (++i < SPIN_COUNT);
-	yieldThread();
+        nat i = 0;
+        do {
+            info = xchg((P_)(void *)&p->header.info, (W_)&stg_WHITEHOLE_info);
+            if (info != (W_)&stg_WHITEHOLE_info) return (StgInfoTable *)info;
+        } while (++i < SPIN_COUNT);
+        yieldThread();
     } while (1);
 }
 





More information about the ghc-commits mailing list