blob: 7a86e3ce527fe1e8e93b42d66a5979fbd6086286 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
// |jit-test| skip-if: !wasmTailCallsEnabled()
// Mutually recursive functions implement a multi-entry loop using tail calls.
// The functions do not have the same signatures, so if all arguments are stack
// arguments then these use different amounts of stack space.
//
// The variable ballast is intended to test that we handle various combinations
// of stack and register arguments properly.
for ( let ballast=1; ballast < TailCallBallast; ballast++ ) {
let vals = iota(ballast,1);
let ps = vals.map(_ => 'i32').join(' ')
let es = vals.map(i => `(local.get ${i})`).join(' ')
let sum = vals.reduceRight((p,c) => `(i32.add (local.get ${c}) ${p})`, `(i32.const 0)`)
let sumv = vals.reduce((p,c) => p+c);
let text = `
(module
(func $odd (export "odd") (param $n i32) (param ${ps}) (param $dummy i32) (result i32)
(if (result i32) (i32.eqz (local.get $n))
(then (return (i32.or (i32.shl ${sum} (i32.const 1)) (i32.const 0))))
(else (return_call $even (i32.sub (local.get $n) (i32.const 1)) ${es}))))
(func $even (export "even") (param $n i32) (param ${ps}) (result i32)
(if (result i32) (i32.eqz (local.get $n))
(then (return (i32.or (i32.shl ${sum} (i32.const 1)) (i32.const 1))))
(else (return_call $odd (i32.sub (local.get $n) (i32.const 1)) ${es} (i32.const 33))))))`;
let ins = wasmEvalText(text);
assertEq(ins.exports.even(TailCallIterations, ...vals), (sumv*2) + 1);
assertEq(ins.exports.odd(TailCallIterations, ...vals, 33), (sumv*2) + 0);
}
|