[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