litmus0.js (1046B)
1 // Loop implemented using tail calls - the call passes as many arguments as 2 // the function receives, of the same types. 3 // 4 // The variable ballast is intended to test that we handle various combinations 5 // of stack and register arguments properly. 6 7 for ( let ballast=1; ballast < TailCallBallast; ballast++ ) { 8 let vals = iota(ballast,1); 9 let ps = vals.map(_ => 'i32').join(' ') 10 let es = vals.map(i => `(local.get ${1+i})`).join(' ') 11 let sum = vals.reduceRight((p,c) => `(i32.add (local.get ${c+1}) ${p})`, `(i32.const 0)`) 12 let sumv = vals.reduce((p,c) => p+c); 13 let text = ` 14 (module 15 (func $loop (export "loop") (param $n i32) (param $q i32) (param ${ps}) (result i32) 16 (if (result i32) (i32.eqz (local.get $n)) 17 (then (return (i32.add (local.get $q) ${sum}))) 18 (else (return_call $loop (i32.sub (local.get $n) (i32.const 1)) (i32.add (local.get $q) (i32.const 1)) ${es}))))) 19 `; 20 let ins = wasmEvalText(text); 21 assertEq(ins.exports.loop(TailCallIterations, ...vals), TailCallIterations + sumv); 22 }