From 6fb20da68ad9eeea70c8587cc7db2d730aee91b5 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 19 Aug 2009 13:07:04 +0000
Subject: [PATCH] add threaded2_qw way, which is threaded2 with +RTS -qw
---
testsuite/config/ghc | 6 +++++-
testsuite/tests/ghc-regress/concurrent/prog002/all.T | 2 +-
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/testsuite/config/ghc b/testsuite/config/ghc
index 72c9e5ffccf..11c026264c9 100644
--- a/testsuite/config/ghc
+++ b/testsuite/config/ghc
@@ -24,7 +24,9 @@ config.run_ways = ['normal', 'optc', 'hpc']
# ways that are not enabled by default, but can always be invoked explicitly
config.other_ways = ['extcore','optextcore',
'prof_hc_hb','prof_hb',
- 'prof_hd','prof_hy','prof_hr', 'dyn']
+ 'prof_hd','prof_hy','prof_hr',
+ 'dyn',
+ 'threaded2_qw']
if (ghc_with_native_codegen == 1):
config.compile_ways.append('optasm')
@@ -63,6 +65,7 @@ config.way_flags = {
'optextcore' : ['-O -fext-core'],
'threaded1' : ['-threaded', '-debug'],
'threaded2' : ['-O', '-threaded', '-eventlog'],
+ 'threaded2_qw' : ['-O', '-threaded'],
'hpc' : ['-O', '-fhpc' ],
'prof_hc_hb' : ['-O -prof -auto-all'],
'prof_hb' : ['-O -prof -auto-all'],
@@ -84,6 +87,7 @@ config.way_rts_flags = {
'optextcore' : [],
'threaded1' : [],
'threaded2' : ['-N2 -l'],
+ 'threaded2_qw' : ['-N2', '-qw'],
'hpc' : [],
'prof_hc_hb' : ['-hc -hbvoid'],
'prof_hb' : ['-hb'],
diff --git a/testsuite/tests/ghc-regress/concurrent/prog002/all.T b/testsuite/tests/ghc-regress/concurrent/prog002/all.T
index 7cf48d47f06..625206d17e7 100644
--- a/testsuite/tests/ghc-regress/concurrent/prog002/all.T
+++ b/testsuite/tests/ghc-regress/concurrent/prog002/all.T
@@ -4,7 +4,7 @@
# hence -O0:
test('concprog002',
- [only_ways(['threaded2']),
+ [only_ways(['threaded2','threaded2_qw']),
exit_code(1),
skip_if_fast,
extra_clean(['Event.hi', 'Event.o',
--
GitLab