Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/5c28e08064a154939c23dd29989117bfd7d50f3a >--------------------------------------------------------------- commit 5c28e08064a154939c23dd29989117bfd7d50f3a Author: Simon Marlow <[email protected]> Date: Wed Nov 16 10:23:43 2011 +0000 enable RTS opts for GHC 7.3+ >--------------------------------------------------------------- tests/rts/testblockalloc.c | 8 ++++++++ 1 files changed, 8 insertions(+), 0 deletions(-) diff --git a/tests/rts/testblockalloc.c b/tests/rts/testblockalloc.c index 5ccc14b..7fd14b6 100644 --- a/tests/rts/testblockalloc.c +++ b/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. _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
