summaryrefslogtreecommitdiff
path: root/ghc/hschooks.c
diff options
context:
space:
mode:
authorThomas Miedema <thomasmiedema@gmail.com>2015-07-21 13:02:29 +0200
committerBen Gamari <ben@smart-cactus.org>2015-07-21 13:27:44 +0200
commite0a3c441412923bb8b422281cf2e0f8f2841d6c1 (patch)
treebbd1604d33f4f3d1db8dc61ba1f4085c06598312 /ghc/hschooks.c
parent9ade087108afe2eec2698b6ce41146df02524810 (diff)
downloadhaskell-e0a3c441412923bb8b422281cf2e0f8f2841d6c1.tar.gz
Delete __GLASGOW_HASKELL__ ifdefs for stage0 < 7.8
Reviewers: austin, goldfire, bgamari Reviewed By: bgamari Subscribers: bgamari, thomie Differential Revision: https://phabricator.haskell.org/D904
Diffstat (limited to 'ghc/hschooks.c')
-rw-r--r--ghc/hschooks.c4
1 files changed, 0 insertions, 4 deletions
diff --git a/ghc/hschooks.c b/ghc/hschooks.c
index 2ebbace136..46a0944cd9 100644
--- a/ghc/hschooks.c
+++ b/ghc/hschooks.c
@@ -30,14 +30,10 @@ initGCStatistics(void)
void
defaultsHook (void)
{
-#if __GLASGOW_HASKELL__ >= 707
// This helps particularly with large compiles, but didn't work
// very well with earlier GHCs because it caused large amounts of
// fragmentation. See rts/sm/BlockAlloc.c:allocLargeChunk().
RtsFlags.GcFlags.heapSizeSuggestionAuto = rtsTrue;
-#else
- RtsFlags.GcFlags.heapSizeSuggestion = 6*1024*1024 / BLOCK_SIZE;
-#endif
RtsFlags.GcFlags.maxStkSize = 512*1024*1024 / sizeof(W_);