[commit: random] master: Fixed benchmark script to NOT use splittableGen (d04bc59)
Ian Lynagh
igloo at earth.li
Sun Oct 2 23:08:15 CEST 2011
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 <rrnewton at gmail.com>
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
More information about the Cvs-libraries
mailing list