[commit: ghc] master: rts: detabify/dewhitespace Updates.h (dea58de)
git at git.haskell.org
git at git.haskell.org
Wed Aug 20 17:31:21 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/dea58def866e012130536397d318edafffcf5861/ghc
>---------------------------------------------------------------
commit dea58def866e012130536397d318edafffcf5861
Author: Austin Seipp <austin at well-typed.com>
Date: Wed Aug 20 12:15:15 2014 -0500
rts: detabify/dewhitespace Updates.h
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
dea58def866e012130536397d318edafffcf5861
rts/Updates.h | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/rts/Updates.h b/rts/Updates.h
index 36280b5..c6ed283 100644
--- a/rts/Updates.h
+++ b/rts/Updates.h
@@ -42,21 +42,21 @@
#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 */
More information about the ghc-commits
mailing list