diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-16 10:23:43 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-16 14:51:57 +0000 |
| commit | d5d71b2ece4f92655e4167bf00752ac74f1685a0 (patch) | |
| tree | 117b74146dfaa917f4a77916da0c445bac724aec /testsuite/tests/rts/testblockalloc.c | |
| parent | bef9c72e875d392e15c82e4e6b413873154c889a (diff) | |
| download | haskell-d5d71b2ece4f92655e4167bf00752ac74f1685a0.tar.gz | |
enable RTS opts for GHC 7.3+
Diffstat (limited to 'testsuite/tests/rts/testblockalloc.c')
| -rw-r--r-- | testsuite/tests/rts/testblockalloc.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/rts/testblockalloc.c b/testsuite/tests/rts/testblockalloc.c index 5ccc14bf59..7fd14b6b18 100644 --- a/testsuite/tests/rts/testblockalloc.c +++ b/testsuite/tests/rts/testblockalloc.c @@ -21,7 +21,15 @@ int main (int argc, char *argv[]) srand(SEED); +#if __GLASGOW_HASKELL__ >= 703 + { + RtsConfig conf = defaultRtsConfig; + conf.rts_opts_enabled = RtsOptsAll; + hs_init_ghc(&argc, &argv, conf); + } +#else hs_init(&argc, &argv); +#endif // repeatedly sweep though the array, allocating new random-sized // objects and deallocating the old ones. |