[commit: ghc] master: rts: detabify/dewhitespace sm/MBlock.c (b7b427f)
git at git.haskell.org
git at git.haskell.org
Wed Aug 20 17:31:53 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/b7b427fc872443168d7b98c3a0922fb28b646a87/ghc
>---------------------------------------------------------------
commit b7b427fc872443168d7b98c3a0922fb28b646a87
Author: Austin Seipp <austin at well-typed.com>
Date: Wed Aug 20 12:21:10 2014 -0500
rts: detabify/dewhitespace sm/MBlock.c
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
b7b427fc872443168d7b98c3a0922fb28b646a87
rts/sm/MBlock.c | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/rts/sm/MBlock.c b/rts/sm/MBlock.c
index 20b3015..2ed14ef 100644
--- a/rts/sm/MBlock.c
+++ b/rts/sm/MBlock.c
@@ -52,8 +52,8 @@ findMBlockMap(void *p)
{
if(mblock_maps[i]->addrHigh32 == hi)
{
- return mblock_maps[i];
- }
+ return mblock_maps[i];
+ }
}
return NULL;
}
@@ -87,14 +87,14 @@ setHeapAlloced(void *p, StgWord8 i)
MBlockMap *map = findMBlockMap(p);
if(map == NULL)
{
- mblock_map_count++;
- mblock_maps = stgReallocBytes(mblock_maps,
+ mblock_map_count++;
+ mblock_maps = stgReallocBytes(mblock_maps,
sizeof(MBlockMap*) * mblock_map_count,
"markHeapAlloced(1)");
- map = mblock_maps[mblock_map_count-1] =
+ map = mblock_maps[mblock_map_count-1] =
stgMallocBytes(sizeof(MBlockMap),"markHeapAlloced(2)");
memset(map,0,sizeof(MBlockMap));
- map->addrHigh32 = (StgWord32) (((StgWord)p) >> 32);
+ map->addrHigh32 = (StgWord32) (((StgWord)p) >> 32);
}
map->lines[MBLOCK_MAP_LINE(p)] = i;
More information about the ghc-commits
mailing list