[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