diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-04-06 00:11:37 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-04-06 00:11:37 +0000 |
| commit | 317fc69d18eda68fd65f5ba634feafbe4a3923da (patch) | |
| tree | f74410483a691cd8c1f2e5d5e4f319ada585dc60 /compiler/parser/hschooks.c | |
| parent | 0d126b9c0dc9299a860fc6bb0e1dee05eb583de2 (diff) | |
| download | haskell-317fc69d18eda68fd65f5ba634feafbe4a3923da.tar.gz | |
Remove code that is dead, as we require __GLASGOW_HASKELL__ >= 504
Diffstat (limited to 'compiler/parser/hschooks.c')
| -rw-r--r-- | compiler/parser/hschooks.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/compiler/parser/hschooks.c b/compiler/parser/hschooks.c index 5c87b3189d..9ccb345db4 100644 --- a/compiler/parser/hschooks.c +++ b/compiler/parser/hschooks.c @@ -4,19 +4,8 @@ for various bits of the RTS. They are linked in instead of the defaults. */ -/* For GHC 4.08, we are relying on the fact that RtsFlags has - * compatible layout with the current version, because we're - * #including the current version of RtsFlags.h below. 4.08 didn't - * ship with its own RtsFlags.h, unfortunately. For later GHC - * versions, we #include the correct RtsFlags.h. - */ -#if __GLASGOW_HASKELL__ < 502 -#include "../includes/Rts.h" -#include "../includes/RtsFlags.h" -#else #include "Rts.h" #include "RtsFlags.h" -#endif #include "HsFFI.h" @@ -31,11 +20,8 @@ defaultsHook (void) { RtsFlags.GcFlags.heapSizeSuggestion = 6*1024*1024 / BLOCK_SIZE; RtsFlags.GcFlags.maxStkSize = 8*1024*1024 / sizeof(W_); -#if __GLASGOW_HASKELL__ >= 411 - /* GHC < 4.11 didn't have these */ RtsFlags.GcFlags.giveStats = COLLECT_GC_STATS; RtsFlags.GcFlags.statsFile = stderr; -#endif } void |