diff options
| author | Andrew Martin <andrew.thaddeus@gmail.com> | 2019-11-13 11:20:05 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-23 13:37:01 -0400 |
| commit | 49301ad6226d9a83d110bee8c419615dd94f5ded (patch) | |
| tree | 907c00e2c81d1f2025ad569cedf2bc39833bcb07 /testsuite/driver | |
| parent | d830bbc9921bcc59164a0a18f0e0874ae4ce226e (diff) | |
| download | haskell-49301ad6226d9a83d110bee8c419615dd94f5ded.tar.gz | |
Implement cstringLength# and FinalPtr
This function and its accompanying rule resolve issue #5218.
A future PR to the bytestring library will make the internal
Data.ByteString.Internal.unsafePackAddress compute string length
with cstringLength#. This will improve the status quo because it is
eligible for constant folding.
Additionally, introduce a new data constructor to ForeignPtrContents
named FinalPtr. This additional data constructor, when used in the
IsString instance for ByteString, leads to more Core-to-Core
optimization opportunities, fewer runtime allocations, and smaller
binaries.
Also, this commit re-exports all the functions from GHC.CString
(including cstringLength#) in GHC.Exts. It also adds a new test
driver. This test driver is used to perform substring matches on Core
that is dumped after all the simplifier passes. In this commit, it is
used to check that constant folding of cstringLength# works.
Diffstat (limited to 'testsuite/driver')
| -rw-r--r-- | testsuite/driver/testlib.py | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py index abc01fdf95..ad9c0852e9 100644 --- a/testsuite/driver/testlib.py +++ b/testsuite/driver/testlib.py @@ -1344,6 +1344,26 @@ def compile_grep_asm(name: TestName, # no problems found, this test passed return passed() +def compile_grep_core(name: TestName, + way: WayName, + extra_hc_opts: str + ) -> PassFail: + print('Compile only, extra args = ', extra_hc_opts) + result = simple_build(name + '.hs', way, '-ddump-to-file -dsuppress-all -ddump-simpl -O ' + extra_hc_opts, False, None, False, False) + + if badResult(result): + return result + + expected_pat_file = find_expected_file(name, 'substr-simpl') + actual_core_file = add_suffix(name, 'dump-simpl') + + if not grep_output(join_normalisers(normalise_errmsg), + expected_pat_file, actual_core_file): + return failBecause('simplified core mismatch') + + # no problems found, this test passed + return passed() + # ----------------------------------------------------------------------------- # Compile-and-run tests |