Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/52e2a3af15a28081128dd1f35467bb93da1c0a72

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

commit 52e2a3af15a28081128dd1f35467bb93da1c0a72
Author: Simon Marlow <[email protected]>
Date:   Thu Feb 16 09:58:34 2012 +0000

    add req_smp

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

 config/ghc            |    1 +
 driver/testglobals.py |    3 +++
 driver/testlib.py     |    4 ++++
 3 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/config/ghc b/config/ghc
index ed57ee4..26ec825 100644
--- a/config/ghc
+++ b/config/ghc
@@ -46,6 +46,7 @@ config.unregisterised = (ghc_unregisterised == 1)
 if (ghc_with_threaded_rts == 1):
     config.run_ways.append('threaded1')
     if (ghc_with_smp == 1):
+        config.have_smp = True
         config.run_ways.append('threaded2')
 
 if (ghc_with_dynamic_rts == 1):
diff --git a/driver/testglobals.py b/driver/testglobals.py
index 9a4bfba..d3b566c 100644
--- a/driver/testglobals.py
+++ b/driver/testglobals.py
@@ -87,6 +87,9 @@ class TestConfig:
         # Do we have shared libraries?
         self.have_shared_libs = False
 
+        # Do we have SMP support?
+        self.have_smp = False
+
         # Are we testing an in-tree compiler?
         self.in_tree_compiler = True
 
diff --git a/driver/testlib.py b/driver/testlib.py
index cb4a765..06b52a1 100644
--- a/driver/testlib.py
+++ b/driver/testlib.py
@@ -125,6 +125,10 @@ def req_interp( opts ):
     if not config.have_interp:
         opts.expect = 'fail'
 
+def req_smp( opts ):
+    if not config.have_smp:
+        opts.expect = 'fail'
+
 def expect_broken( bug ):
     return lambda opts, b=bug: _expect_broken (opts, b )
 



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to