[commit: ghc] master: parser: detabify/dewhitespace cutils.c (20986a6)

git at git.haskell.org git at git.haskell.org
Sun Jul 20 21:56:48 UTC 2014


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/20986a63b427ac6061c3c871098ed4f045b07201/ghc

>---------------------------------------------------------------

commit 20986a63b427ac6061c3c871098ed4f045b07201
Author: Austin Seipp <austin at well-typed.com>
Date:   Fri Jul 18 22:09:03 2014 -0500

    parser: detabify/dewhitespace cutils.c
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

20986a63b427ac6061c3c871098ed4f045b07201
 compiler/parser/cutils.c | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/compiler/parser/cutils.c b/compiler/parser/cutils.c
index c42ec9e..d714a0c 100644
--- a/compiler/parser/cutils.c
+++ b/compiler/parser/cutils.c
@@ -37,7 +37,7 @@ ghc_memcmp_off( HsPtr a1, HsInt i, HsPtr a2, HsInt len )
 }
 
 void
-enableTimingStats( void )	/* called from the driver */
+enableTimingStats( void )       /* called from the driver */
 {
     RtsFlags.GcFlags.giveStats = ONELINE_GC_STATS;
 }
@@ -47,9 +47,7 @@ setHeapSize( HsInt size )
 {
     RtsFlags.GcFlags.heapSizeSuggestion = size / BLOCK_SIZE;
     if (RtsFlags.GcFlags.maxHeapSize != 0 &&
-	RtsFlags.GcFlags.heapSizeSuggestion > RtsFlags.GcFlags.maxHeapSize) {
-	RtsFlags.GcFlags.maxHeapSize = RtsFlags.GcFlags.heapSizeSuggestion;
+        RtsFlags.GcFlags.heapSizeSuggestion > RtsFlags.GcFlags.maxHeapSize) {
+        RtsFlags.GcFlags.maxHeapSize = RtsFlags.GcFlags.heapSizeSuggestion;
     }
 }
-
-



More information about the ghc-commits mailing list