[commit: ghc] wip/T14373: test that no nested switches generated (efed656)
git at git.haskell.org
git at git.haskell.org
Wed Dec 20 12:35:46 UTC 2017
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/T14373
Link : http://ghc.haskell.org/trac/ghc/changeset/efed6566078beace40443dd9acc2cdf73d0beb5c/ghc
>---------------------------------------------------------------
commit efed6566078beace40443dd9acc2cdf73d0beb5c
Author: Gabor Greif <ggreif at gmail.com>
Date: Wed Dec 20 13:21:07 2017 +0100
test that no nested switches generated
>---------------------------------------------------------------
efed6566078beace40443dd9acc2cdf73d0beb5c
testsuite/tests/codeGen/should_compile/T14373b.hs | 8 ++++++++
testsuite/tests/codeGen/should_compile/all.T | 6 ++++--
2 files changed, 12 insertions(+), 2 deletions(-)
diff --git a/testsuite/tests/codeGen/should_compile/T14373b.hs b/testsuite/tests/codeGen/should_compile/T14373b.hs
new file mode 100644
index 0000000..fb94274
--- /dev/null
+++ b/testsuite/tests/codeGen/should_compile/T14373b.hs
@@ -0,0 +1,8 @@
+import T14373
+
+{-# NOINLINE earlySwitch #-}
+earlySwitch A = True
+earlySwitch B = False
+earlySwitch C = False
+
+main = print $ earlySwitch B
diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T
index 60140f3..69ee2c7 100644
--- a/testsuite/tests/codeGen/should_compile/all.T
+++ b/testsuite/tests/codeGen/should_compile/all.T
@@ -35,5 +35,7 @@ test('T10667', [ when((arch('powerpc64') or arch('powerpc64le')),
compile, ['-g'])
test('T12115', normal, compile, [''])
test('T12355', normal, compile, [''])
-test('T14373', [],
- multimod_compile, ['T14373a', '-fasm -O2 -c -ddump-cmm-from-stg -dsuppress-uniques'])
+test('T14373a', [],
+ multimod_compile, ['T14373a', '-fasm -O2 -ddump-cmm-from-stg -dsuppress-uniques'])
+test('T14373b', [],
+ multimod_compile, ['T14373b', '-fasm -O2 -ddump-cmm-from-stg -dsuppress-uniques'])
More information about the ghc-commits
mailing list