Added microbenchmark for spawn

trunk/testing/benchmarks/micro-benchmarks/spawn-test/Makefile

@@ -0,0 +1,16 @@
+all: mlton ghc host par
+
+mlton: spawn-sml-seq.mlb
+	mlton spawn-sml-seq.mlb
+
+host: spawn-sml-host.sml
+	../../../../build/bin/mlton spawn-sml-host.sml
+
+par: spawn-sml-par.sml
+	../../../../build/bin/mlton spawn-sml-par.sml
+
+ghc: spawn-ghc.hs
+	ghc --make -O2 -threaded spawn-ghc.hs -o spawn-ghc
+
+clean:
+	rm -f spawn-sml-seq spawn-sml-host spawn-ghc spawn-sml-par *.o *.hi *~

trunk/testing/benchmarks/micro-benchmarks/spawn-test/spawn-ghc.hs

@@ -0,0 +1,9 @@
+{-# Language ScopedTypeVariables #-}
+import Control.Concurrent
+import System.Environment
+import Control.Monad
+
+main = do
+  args <- getArgs
+  let numThreads::Int = read $ head args
+  replicateM_ numThreads $ forkIO $ return ()

trunk/testing/benchmarks/micro-benchmarks/spawn-test/spawn-sml-host.sml

@@ -0,0 +1,8 @@
+open MLton.Pacml
+
+fun main 0 = OS.Process.exit OS.Process.success
+  | main n = (ignore (spawn (fn () => ()));
+              main (n-1))
+
+val n = valOf (Int.fromString (hd (CommandLine.arguments ()))) handle _ => 600
+val _ = run (fn () => main n)

trunk/testing/benchmarks/micro-benchmarks/spawn-test/spawn-sml-par.sml

@@ -0,0 +1,8 @@
+open MLton.Pacml
+
+fun main 0 = OS.Process.exit OS.Process.success
+  | main n = (ignore (spawnParasite (fn () => ()));
+              main (n-1))
+
+val n = valOf (Int.fromString (hd (CommandLine.arguments ()))) handle _ => 600
+val _ = run (fn () => main n)

trunk/testing/benchmarks/micro-benchmarks/spawn-test/spawn-sml-seq.mlb

@@ -0,0 +1,6 @@
+local
+   $(SML_LIB)/basis/basis.mlb
+   $(SML_LIB)/cml/cml.mlb
+in
+  spawn-sml-seq.sml
+end

trunk/testing/benchmarks/micro-benchmarks/spawn-test/spawn-sml-seq.sml

@@ -0,0 +1,23 @@
+
+structure Main =
+struct
+   open CML
+
+    fun spawnHelper 0 = RunCML.shutdown OS.Process.success
+      | spawnHelper n = (ignore (spawn (fn () => ()));
+                         spawnHelper (n-1))
+
+   fun doit n =
+      RunCML.doit
+      (fn () =>
+       let
+         val _ = spawnHelper n
+       in
+          ()
+       end,
+       SOME (Time.fromMilliseconds 10))
+end
+
+
+val n = valOf (Int.fromString (hd (CommandLine.arguments ()))) handle _ => 600
+val _ = Main.doit n