[commit: ghc] master: [skip ci] rts: Detabify sm/Compact.h (c8173d5)
git at git.haskell.org
git at git.haskell.org
Tue Oct 21 21:51:53 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/c8173d5105a8463890e536d621c35805d6f67e4b/ghc
>---------------------------------------------------------------
commit c8173d5105a8463890e536d621c35805d6f67e4b
Author: Austin Seipp <austin at well-typed.com>
Date: Tue Oct 21 16:43:04 2014 -0500
[skip ci] rts: Detabify sm/Compact.h
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
c8173d5105a8463890e536d621c35805d6f67e4b
rts/sm/Compact.h | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/rts/sm/Compact.h b/rts/sm/Compact.h
index 1ec915f..db7a969 100644
--- a/rts/sm/Compact.h
+++ b/rts/sm/Compact.h
@@ -21,7 +21,7 @@ mark(StgPtr p, bdescr *bd)
{
nat offset_within_block = p - bd->start; // in words
StgPtr bitmap_word = (StgPtr)bd->u.bitmap +
- (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
+ (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
StgWord bit_mask = (StgWord)1 << (offset_within_block & (sizeof(W_)*BITS_PER_BYTE - 1));
*bitmap_word |= bit_mask;
}
@@ -31,7 +31,7 @@ unmark(StgPtr p, bdescr *bd)
{
nat offset_within_block = p - bd->start; // in words
StgPtr bitmap_word = (StgPtr)bd->u.bitmap +
- (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
+ (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
StgWord bit_mask = (StgWord)1 << (offset_within_block & (sizeof(W_)*BITS_PER_BYTE - 1));
*bitmap_word &= ~bit_mask;
}
@@ -41,7 +41,7 @@ is_marked(StgPtr p, bdescr *bd)
{
nat offset_within_block = p - bd->start; // in words
StgPtr bitmap_word = (StgPtr)bd->u.bitmap +
- (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
+ (offset_within_block / (sizeof(W_)*BITS_PER_BYTE));
StgWord bit_mask = (StgWord)1 << (offset_within_block & (sizeof(W_)*BITS_PER_BYTE - 1));
return (*bitmap_word & bit_mask);
}
More information about the ghc-commits
mailing list