diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:15:15 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:15:38 -0500 |
| commit | dea58def866e012130536397d318edafffcf5861 (patch) | |
| tree | a9fda1a8fad420b95694d7c2a5851fca298f160a /rts/Updates.h | |
| parent | b4c7bcd5f65809851bd5e4085206ae1f7f27aa5c (diff) | |
| download | haskell-dea58def866e012130536397d318edafffcf5861.tar.gz | |
rts: detabify/dewhitespace Updates.h
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/Updates.h')
| -rw-r--r-- | rts/Updates.h | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/rts/Updates.h b/rts/Updates.h index 36280b5b12..c6ed2833d8 100644 --- a/rts/Updates.h +++ b/rts/Updates.h @@ -42,31 +42,31 @@ #define updateWithIndirection(p1, p2, and_then) \ - W_ bd; \ - \ + W_ bd; \ + \ OVERWRITING_CLOSURE(p1); \ StgInd_indirectee(p1) = p2; \ prim_write_barrier; \ SET_INFO(p1, stg_BLACKHOLE_info); \ LDV_RECORD_CREATE(p1); \ - bd = Bdescr(p1); \ - if (bdescr_gen_no(bd) != 0 :: bits16) { \ + bd = Bdescr(p1); \ + if (bdescr_gen_no(bd) != 0 :: bits16) { \ recordMutableCap(p1, TO_W_(bdescr_gen_no(bd))); \ - TICK_UPD_OLD_IND(); \ - and_then; \ - } else { \ - TICK_UPD_NEW_IND(); \ - and_then; \ + TICK_UPD_OLD_IND(); \ + and_then; \ + } else { \ + TICK_UPD_NEW_IND(); \ + and_then; \ } #else /* !CMINUSMINUS */ -INLINE_HEADER void updateWithIndirection (Capability *cap, - StgClosure *p1, +INLINE_HEADER void updateWithIndirection (Capability *cap, + StgClosure *p1, StgClosure *p2) { bdescr *bd; - + ASSERT( (P_)p1 != (P_)p2 ); /* not necessarily true: ASSERT( !closure_IND(p1) ); */ /* occurs in RaiseAsync.c:raiseAsync() */ |