[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