Repository : ssh://darcs.haskell.org//srv/darcs/packages/random On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d04bc59fc8b0ee8527efda0726019db163dd307f >--------------------------------------------------------------- commit d04bc59fc8b0ee8527efda0726019db163dd307f Author: Ryan Newton <[email protected]> Date: Fri Sep 30 01:53:58 2011 -0400 Fixed benchmark script to NOT use splittableGen >--------------------------------------------------------------- Benchmark/SimpleRNGBench.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Benchmark/SimpleRNGBench.hs b/Benchmark/SimpleRNGBench.hs index 114722c..c25b75d 100644 --- a/Benchmark/SimpleRNGBench.hs +++ b/Benchmark/SimpleRNGBench.hs @@ -93,7 +93,7 @@ measureFreq = do data NoopRNG = NoopRNG instance RandomGen NoopRNG where next g = (0,g) -#if 1 +#ifdef ENABLE_SPLITTABLEGEN genRange _ = (0,0) instance SplittableGen NoopRNG where #endif @@ -104,7 +104,7 @@ data BinRNG = BinRNG StdGen instance RandomGen BinRNG where next (BinRNG g) = (x `mod` 2, BinRNG g') where (x,g') = next g -#if 1 +#ifdef ENABLE_SPLITTABLEGEN genRange _ = (0,1) instance SplittableGen BinRNG where #endif _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
