summaryrefslogtreecommitdiffstats
path: root/js/src/jit-test/tests/wasm/tail-calls/litmus4.js
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-19 00:47:55 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-19 00:47:55 +0000
commit26a029d407be480d791972afb5975cf62c9360a6 (patch)
treef435a8308119effd964b339f76abb83a57c29483 /js/src/jit-test/tests/wasm/tail-calls/litmus4.js
parentInitial commit. (diff)
downloadfirefox-26a029d407be480d791972afb5975cf62c9360a6.tar.xz
firefox-26a029d407be480d791972afb5975cf62c9360a6.zip
Adding upstream version 124.0.1.upstream/124.0.1
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'js/src/jit-test/tests/wasm/tail-calls/litmus4.js')
-rw-r--r--js/src/jit-test/tests/wasm/tail-calls/litmus4.js43
1 files changed, 43 insertions, 0 deletions
diff --git a/js/src/jit-test/tests/wasm/tail-calls/litmus4.js b/js/src/jit-test/tests/wasm/tail-calls/litmus4.js
new file mode 100644
index 0000000000..c16f712aac
--- /dev/null
+++ b/js/src/jit-test/tests/wasm/tail-calls/litmus4.js
@@ -0,0 +1,43 @@
+// |jit-test| skip-if: !wasmTailCallsEnabled() || !wasmExceptionsEnabled()
+
+// Mutually recursive functions implement a multi-entry loop using indirect tail
+// calls, with exception handling.
+//
+// The functions do not have the same signatures, so if all arguments are stack
+// arguments then these use different amounts of stack space.
+//
+// The "even" function will throw when the input is zero, so when an exception
+// bubbles out of return_call it must not be caught by the exception handler in
+// "odd", but must instead be delegated to the caller, which is JS code.
+
+var ins = wasmEvalText(`
+(module
+ (table 2 2 funcref)
+ (elem (i32.const 0) $even $odd)
+ (type $even_t (func (param i32) (result i32)))
+ (type $odd_t (func (param i32 i32) (result i32)))
+ (tag $t)
+
+ (func $odd (export "odd") (param $n i32) (param $dummy i32) (result i32)
+ try (result i32)
+ (if (result i32) (i32.eqz (local.get $n))
+ (then (return (i32.const 0)))
+ (else (return_call_indirect (type $even_t) (i32.sub (local.get $n) (i32.const 1))
+ (i32.const 0))))
+ catch_all
+ unreachable
+ end)
+
+ (func $even (export "even") (param $n i32) (result i32)
+ (if (result i32) (i32.eqz (local.get $n))
+ (then (throw $t))
+ (else (return_call_indirect (type $odd_t) (i32.sub (local.get $n) (i32.const 1)) (i32.const 33)
+ (i32.const 1)))))
+)
+`);
+
+assertErrorMessage(() => ins.exports.even(TailCallIterations), WebAssembly.Exception, /.*/);
+assertEq(ins.exports.odd(TailCallIterations, 33), 0);
+
+assertEq(ins.exports.even(TailCallIterations+1), 0);
+assertErrorMessage(() => ins.exports.odd(TailCallIterations+1, 33), WebAssembly.Exception, /.*/);