Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4d303fbea9eb79dfafaf2c135fbff96dbf11bf51 >--------------------------------------------------------------- commit 4d303fbea9eb79dfafaf2c135fbff96dbf11bf51 Author: Gabor Greif <[email protected]> Date: Thu Jan 19 15:02:34 2012 +0100 formatting tweaks >--------------------------------------------------------------- rts/sm/Storage.c | 16 ++++++++-------- 1 files changed, 8 insertions(+), 8 deletions(-) diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c index 33d7342..0f5587a 100644 --- a/rts/sm/Storage.c +++ b/rts/sm/Storage.c @@ -46,8 +46,8 @@ nat large_alloc_lim; /* GC if n_large_blocks in any nursery bdescr *exec_block; -generation *generations = NULL; /* all the generations */ -generation *g0 = NULL; /* generation 0, for convenience */ +generation *generations = NULL; /* all the generations */ +generation *g0 = NULL; /* generation 0, for convenience */ generation *oldest_gen = NULL; /* oldest generation, for convenience */ nursery *nurseries = NULL; /* array of nurseries, size == n_capabilities */ @@ -92,7 +92,7 @@ initGeneration (generation *gen, int g) } void -initStorage( void ) +initStorage (void) { nat g; @@ -114,7 +114,7 @@ initStorage( void ) if (RtsFlags.GcFlags.maxHeapSize != 0 && RtsFlags.GcFlags.heapSizeSuggestion > RtsFlags.GcFlags.maxHeapSize) { - RtsFlags.GcFlags.maxHeapSize = RtsFlags.GcFlags.heapSizeSuggestion; + RtsFlags.GcFlags.maxHeapSize = RtsFlags.GcFlags.heapSizeSuggestion; } if (RtsFlags.GcFlags.maxHeapSize != 0 && @@ -197,7 +197,7 @@ void storageAddCapabilities (nat from, nat to) "storageAddCapabilities"); } else { nurseries = stgMallocBytes(to * sizeof(struct nursery_), - "storageAddCapabilities"); + "storageAddCapabilities"); } // we've moved the nurseries, so we have to update the rNursery @@ -527,7 +527,7 @@ countNurseryBlocks (void) } static void -resizeNursery ( nursery *nursery, nat blocks ) +resizeNursery (nursery *nursery, nat blocks) { bdescr *bd; nat nursery_blocks; @@ -1163,10 +1163,10 @@ void freeExec (void *addr) #ifdef DEBUG // handy function for use in gdb, because Bdescr() is inlined. -extern bdescr *_bdescr( StgPtr p ); +extern bdescr *_bdescr (StgPtr p); bdescr * -_bdescr( StgPtr p ) +_bdescr (StgPtr p) { return Bdescr(p); } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
