diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2018-03-02 05:33:07 -0800 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2018-03-06 05:56:48 -0800 |
| commit | 5bc195a2caddc5c29cf24e9c731dd8d5050f2c66 (patch) | |
| tree | 3d0e58f6d1e37052c50938cd2ea9c1888183e7d2 /testsuite/tests/simplCore/should_run | |
| parent | ee597e9ec78ceb1a9a208c16dbdeb0b67b4ba5ec (diff) | |
| download | haskell-5bc195a2caddc5c29cf24e9c731dd8d5050f2c66.tar.gz | |
Allow top level ticked string literals
This reverts f5b275a239d2554c4da0b7621211642bf3b10650
and changes the places that looked for `Lit (MachStr _))`
to use `exprIsMbTickedLitString_maybe` to unwrap ticks as
necessary.
Also updated relevant comments.
Test Plan:
I added 3 new tests that previously reproduced.
GHC HEAD now builds with -g
Reviewers: simonpj, simonmar, bgamari, hvr, goldfire
Subscribers: rwbarton, thomie, carter
GHC Trac Issues: #14779
Differential Revision: https://phabricator.haskell.org/D4470
Diffstat (limited to 'testsuite/tests/simplCore/should_run')
| -rw-r--r-- | testsuite/tests/simplCore/should_run/T14868.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_run/T14868.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_run/all.T | 3 |
3 files changed, 6 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_run/T14868.hs b/testsuite/tests/simplCore/should_run/T14868.hs new file mode 100644 index 0000000000..4d32c30eab --- /dev/null +++ b/testsuite/tests/simplCore/should_run/T14868.hs @@ -0,0 +1,2 @@ +{-# OPTIONS -O -g #-} +main = print (4, "foo") diff --git a/testsuite/tests/simplCore/should_run/T14868.stdout b/testsuite/tests/simplCore/should_run/T14868.stdout new file mode 100644 index 0000000000..5dfd2f7b0d --- /dev/null +++ b/testsuite/tests/simplCore/should_run/T14868.stdout @@ -0,0 +1 @@ +(4,"foo") diff --git a/testsuite/tests/simplCore/should_run/all.T b/testsuite/tests/simplCore/should_run/all.T index d922f90e75..d1ea496af3 100644 --- a/testsuite/tests/simplCore/should_run/all.T +++ b/testsuite/tests/simplCore/should_run/all.T @@ -79,3 +79,6 @@ test('T13429_2', normal, compile_and_run, ['']) test('T13750', normal, compile_and_run, ['']) test('T14178', normal, compile_and_run, ['']) test('T14768', reqlib('vector'), compile_and_run, ['']) +test('T14868', + [when((arch('powerpc64') or arch('powerpc64le')), expect_broken(11261))], + compile_and_run, ['']) |