diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-06-14 22:02:56 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-06-14 22:02:56 +0100 |
| commit | 9e4348ec5de43ff540cc9e3c21e5aade8e2d5a61 (patch) | |
| tree | e564005bd23ca62848b3d724981e7513ffdea578 /includes | |
| parent | 5483b14c4c6ebcba7025bdea493aacff274b8b31 (diff) | |
| download | haskell-9e4348ec5de43ff540cc9e3c21e5aade8e2d5a61.tar.gz | |
Whitespace only in rts/storage/SMPClosureOps.h
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/storage/SMPClosureOps.h | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/includes/rts/storage/SMPClosureOps.h b/includes/rts/storage/SMPClosureOps.h index 39349874f7..e2b01d76be 100644 --- a/includes/rts/storage/SMPClosureOps.h +++ b/includes/rts/storage/SMPClosureOps.h @@ -13,7 +13,7 @@ #define unlockClosure(ptr,info) \ prim_write_barrier; \ - StgHeader_info(ptr) = info; + StgHeader_info(ptr) = info; #else @@ -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); } |