summaryrefslogtreecommitdiff
path: root/testsuite/tests/codeGen
diff options
context:
space:
mode:
authorAndreas Klebinger <klebinger.andreas@gmx.at>2022-09-16 14:36:15 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-10-17 19:21:52 -0400
commitff6275ef829873a70350c6d597e485bb84dd1bb1 (patch)
treee9837e8ad61c85fd02f7390aac6903751f585699 /testsuite/tests/codeGen
parent08ab5419286d2620f2e6762607bad03c5bcd29ad (diff)
downloadhaskell-ff6275ef829873a70350c6d597e485bb84dd1bb1.tar.gz
Testsuite: Add a new tables_next_to_code predicate.
And use it to avoid T21710a failing on non-tntc archs. Fixes #22169
Diffstat (limited to 'testsuite/tests/codeGen')
-rw-r--r--testsuite/tests/codeGen/should_compile/all.T5
1 files changed, 4 insertions, 1 deletions
diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T
index 9569a0e64a..58600faa98 100644
--- a/testsuite/tests/codeGen/should_compile/all.T
+++ b/testsuite/tests/codeGen/should_compile/all.T
@@ -108,4 +108,7 @@ test('T18614', normal, compile, [''])
test('mk-big-obj',
[unless(opsys('mingw32'), skip), pre_cmd('$PYTHON mk-big-obj.py > mk-big-obj.c')],
multimod_compile, ['mk-big-obj.c', '-c -v0 -no-hs-main'])
-test('T21710a', [ only_ways(['optasm']), when(wordsize(32), skip), grep_errmsg('(call)',[1]) ], compile, ['-ddump-cmm -dno-typeable-binds'])
+test('T21710a', [ unless(tables_next_to_code(), skip) , when(wordsize(32), skip)
+ , only_ways(['optasm'])
+ , grep_errmsg('(call)',[1]) ]
+ , compile, ['-ddump-cmm -dno-typeable-binds'])