tor-browser

The Tor Browser
git clone https://git.dasho.dev/tor-browser.git
Log | Files | Refs | README | LICENSE

litmus6.js (1017B)

      1 // Tail-call litmus test with multiple results
      2 //
      3 // Mutually recursive functions implement a multi-entry loop using tail calls.
      4 // The functions do not have the same signatures, so if all arguments are stack
      5 // arguments then these use different amounts of stack space.
      6 
      7 var ins = wasmEvalText(`
      8 (module
      9  (func $odd (export "odd") (param $n i32) (param $dummy i32) (result i32 i32 i32)
     10    (if (result i32 i32 i32) (i32.eqz (local.get $n))
     11        (then (return (i32.const 0) (i32.const 32769) (i32.const -37)))
     12        (else (return_call $even (i32.sub (local.get $n) (i32.const 1))))))
     13 
     14  (func $even (export "even") (param $n i32) (result i32 i32 i32)
     15    (if (result i32 i32 i32) (i32.eqz (local.get $n))
     16        (then (return (i32.const 1) (i32.const -17) (i32.const 44021)))
     17        (else (return_call $odd (i32.sub (local.get $n) (i32.const 1)) (i32.const 33)))))
     18 )
     19 `);
     20 
     21 assertSame(ins.exports.even(TailCallIterations), [1, -17, 44021]);
     22 assertSame(ins.exports.odd(TailCallIterations, 33), [0, 32769, -37]);