From cc25d52e0f65d54c052908c7d91d5946342ab88a Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Thu, 10 Feb 2022 08:24:24 +0000 Subject: Add Javascript backend Add JS backend adapted from the GHCJS project by Luite Stegeman. Some features haven't been ported or implemented yet. Tests for these features have been disabled with an associated gitlab ticket. Bump array submodule Work funded by IOG. Co-authored-by: Jeffrey Young Co-authored-by: Luite Stegeman Co-authored-by: Josh Meredith --- testsuite/tests/ghc-api/T4891/all.T | 2 +- testsuite/tests/ghc-api/all.T | 14 ++++++++------ testsuite/tests/ghc-api/annotations-literals/all.T | 4 ++-- testsuite/tests/ghc-api/apirecomp001/all.T | 3 ++- testsuite/tests/ghc-api/downsweep/all.T | 2 ++ testsuite/tests/ghc-api/target-contents/all.T | 4 +++- 6 files changed, 18 insertions(+), 11 deletions(-) (limited to 'testsuite/tests/ghc-api') diff --git a/testsuite/tests/ghc-api/T4891/all.T b/testsuite/tests/ghc-api/T4891/all.T index c179398c33..01ebba8fa8 100644 --- a/testsuite/tests/ghc-api/T4891/all.T +++ b/testsuite/tests/ghc-api/T4891/all.T @@ -1 +1 @@ -test('T4891', [extra_files(['X.hs'])], makefile_test, ['T4891']) +test('T4891', [extra_files(['X.hs']), js_broken(22362)], makefile_test, ['T4891']) diff --git a/testsuite/tests/ghc-api/all.T b/testsuite/tests/ghc-api/all.T index 4d62a57682..4e6aa16748 100644 --- a/testsuite/tests/ghc-api/all.T +++ b/testsuite/tests/ghc-api/all.T @@ -1,23 +1,23 @@ test('ghcApi', normal, compile_and_run, ['-package ghc']) -test('T6145', normal, makefile_test, ['T6145']) +test('T6145', js_broken(22352), makefile_test, ['T6145']) test('T8639_api', req_rts_linker, makefile_test, ['T8639_api']) test('T8628', req_rts_linker, makefile_test, ['T8628']) -test('T9595', extra_run_opts('"' + config.libdir + '"'), +test('T9595', [extra_run_opts('"' + config.libdir + '"'), js_broken(22362)], compile_and_run, ['-package ghc']) test('T10508_api', [ extra_run_opts('"' + config.libdir + '"'), req_rts_linker ], compile_and_run, ['-package ghc']) -test('T10942', extra_run_opts('"' + config.libdir + '"'), +test('T10942', [extra_run_opts('"' + config.libdir + '"'), js_broken(22362)], compile_and_run, ['-package ghc']) test('T9015', extra_run_opts('"' + config.libdir + '"'), compile_and_run, ['-package ghc']) -test('T11579', extra_run_opts('"' + config.libdir + '"'), compile_and_run, +test('T11579', [extra_run_opts('"' + config.libdir + '"'), js_skip], compile_and_run, ['-package ghc']) test('T12099', normal, compile_and_run, ['-package ghc']) test('T18181', @@ -26,10 +26,12 @@ test('T18181', compile_and_run, ['-package ghc']) test('T18522-dbg-ppr', - extra_run_opts('"' + config.libdir + '"'), + [extra_run_opts('"' + config.libdir + '"'), js_broken(22362)], compile_and_run, ['-package ghc']) -test('T19156', extra_run_opts('"' + config.libdir + '"'), +test('T19156', [ extra_run_opts('"' + config.libdir + '"') + , js_broken(22261) + ], compile_and_run, ['-package ghc']) test('T20757', [unless(opsys('mingw32'), skip), exit_code(1)], diff --git a/testsuite/tests/ghc-api/annotations-literals/all.T b/testsuite/tests/ghc-api/annotations-literals/all.T index 88dd593bab..769aea7b42 100644 --- a/testsuite/tests/ghc-api/annotations-literals/all.T +++ b/testsuite/tests/ghc-api/annotations-literals/all.T @@ -1,2 +1,2 @@ -test('literals', [normalise_slashes, extra_files(['LiteralsTest.hs'])], makefile_test, ['literals']) -test('parsed', [extra_files(['LiteralsTest2.hs'])], makefile_test, ['parsed']) +test('literals', [normalise_slashes, extra_files(['LiteralsTest.hs']), js_broken(22352)], makefile_test, ['literals']) +test('parsed', [extra_files(['LiteralsTest2.hs']), js_broken(22352)], makefile_test, ['parsed']) diff --git a/testsuite/tests/ghc-api/apirecomp001/all.T b/testsuite/tests/ghc-api/apirecomp001/all.T index 363f9c05ab..672b7b4ac8 100644 --- a/testsuite/tests/ghc-api/apirecomp001/all.T +++ b/testsuite/tests/ghc-api/apirecomp001/all.T @@ -1,3 +1,4 @@ test('apirecomp001', - extra_files(['A.hs', 'B.hs', 'myghc.hs']), + [extra_files(['A.hs', 'B.hs', 'myghc.hs']), + js_broken(22352)], makefile_test, ['apirecomp001']) diff --git a/testsuite/tests/ghc-api/downsweep/all.T b/testsuite/tests/ghc-api/downsweep/all.T index 1096159c2c..c293c73cc0 100644 --- a/testsuite/tests/ghc-api/downsweep/all.T +++ b/testsuite/tests/ghc-api/downsweep/all.T @@ -1,12 +1,14 @@ test('PartialDownsweep', [ extra_run_opts('"' + config.libdir + '"') , ignore_stderr + , js_broken(22352) ], compile_and_run, ['-package ghc -package exceptions']) test('OldModLocation', [ extra_run_opts('"' + config.libdir + '"') + , js_broken(22362) , when(opsys('mingw32'), expect_broken(16772)) ], compile_and_run, diff --git a/testsuite/tests/ghc-api/target-contents/all.T b/testsuite/tests/ghc-api/target-contents/all.T index fc6aa9230c..684cd06d74 100644 --- a/testsuite/tests/ghc-api/target-contents/all.T +++ b/testsuite/tests/ghc-api/target-contents/all.T @@ -1,4 +1,6 @@ test('TargetContents', - [extra_run_opts('"' + config.libdir + '"')] + [ extra_run_opts('"' + config.libdir + '"') + , js_broken(22374) + ] , compile_and_run, ['-package ghc -package exceptions']) -- cgit v1.2.1