[commit: ghc] ghc-lwc2: Chameneos vanilla TMVar added (1f1f92c)

[Sivaramakrishnan Krishnamoorthy Chandrasekaran]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : ghc-lwc2

https://github.com/ghc/ghc/commit/1f1f92ce20a98afa9cbee1d6849d2e980482eabd

>---------------------------------------------------------------

commit 1f1f92ce20a98afa9cbee1d6849d2e980482eabd
Author: KC Sivaramakrishnan <chandras at cs.purdue.edu>
Date:   Tue Apr 30 10:10:29 2013 -0400

    Chameneos vanilla TMVar added

>---------------------------------------------------------------

 ...eneos-redux-TMVar.hs => chameneos-redux-vanilla-TMVar.hs} | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/tests/Benchmarks/ChameneosRedux/chameneos-redux-TMVar.hs b/tests/Benchmarks/ChameneosRedux/chameneos-redux-vanilla-TMVar.hs
similarity index 94%
copy from tests/Benchmarks/ChameneosRedux/chameneos-redux-TMVar.hs
copy to tests/Benchmarks/ChameneosRedux/chameneos-redux-vanilla-TMVar.hs
index bac8e1a..74bde21 100644
--- a/tests/Benchmarks/ChameneosRedux/chameneos-redux-TMVar.hs
+++ b/tests/Benchmarks/ChameneosRedux/chameneos-redux-vanilla-TMVar.hs
@@ -8,9 +8,9 @@
    Should be compiled with -O2 -threaded -fvia-c -optc-O3 and run with +RTS -N<number of cores>.
    -}
 
-import LwConc.Substrate
-import LwConc.PTM.TMVar
-import ConcurrentList
+import Control.Concurrent
+import Control.Concurrent.STM.TMVar
+import Control.Monad.STM
 import Control.Monad
 import Data.Char
 import System.Environment
@@ -81,13 +81,7 @@ run n cpu cs = do
       putStrLn . (" "++) . showN . sum . map fst $ ns
       putStrLn ""
 
-initSched = do
-  newSched
-  n <- getNumCapabilities
-  replicateM_ (n-1) newCapability
-
 main = do
-    initSched
     putStrLn . map toLower . unlines $
         [unwords [show a, "+", show b, "->", show $ complement a b]
             | a <- [B..Y], b <- [B..Y]]