Added config file for GHC 7.0

Ghc70_Config.hs

@@ -0,0 +1,69 @@
+module Ghc70_Config(
+  config
+)
+where
+import Fibon.Run.Config
+
+config :: RunConfig
+config = RunConfig {
+    configId = "ghc70"
+  , runList  = map RunSingle allBenchmarks
+  , sizeList = [Ref]
+  , tuneList = [Base, Peak]
+  , iterations = 100
+  , configBuilder = build
+  }
+
+collectStats :: Bool
+collectStats = True
+
+standardGHC :: FilePath
+standardGHC = "/Research/darcs/ghc-7.0.BUILD/inplace/bin"
+
+build :: ConfigBuilder
+build ConfigTuneDefault ConfigBenchDefault = do
+  setTimeout $ Limit 0 10 0
+  append ConfigureFlags "--ghc-option=-rtsopts"
+
+  -- Use ghc from standard location off of HOME
+  mbHome <- getEnv "HOME"
+  maybe done
+        (\h -> useGhcInPlaceDir (h ++ standardGHC))
+        mbHome
+
+  -- Use ghc specified from environment
+  mbHead <- getEnv "FIBON_GHC"
+  maybe done
+        useGhcInPlaceDir
+        mbHead
+
+  -- Setup stats collection 
+  if collectStats 
+    then do
+    collectExtraStatsFrom  "ghc.stats"
+    append RunFlags "+RTS -tghc.stats --machine-readable"
+    else
+    done
+
+build (ConfigTune Base) ConfigBenchDefault = do
+  append ConfigureFlags "--disable-optimization"
+
+build (ConfigTune Base) (ConfigBench BinaryTrees) = do
+  append RunFlags "+RTS -K64M -RTS"
+
+build (ConfigTune Base) (ConfigBench Palindromes) = do
+  append RunFlags "+RTS -K256M -RTS"
+
+build (ConfigTune Base) (ConfigBench TernaryTrees) = do
+  append RunFlags "+RTS -K16M -RTS"
+
+build (ConfigTuneDefault) (ConfigBench Cpsa) = do
+  append BuildFlags "--ghc-option=-fcontext-stack=42"
+
+build (ConfigTune Peak) ConfigBenchDefault = do
+  append ConfigureFlags "--enable-optimization=2"
+
+build (ConfigTuneDefault) (ConfigBench QuickHull) = do
+  append RunFlags "+RTS -K16M -RTS"
+
+build _ _ = done