blob: 40ab1940f31c13d11967d228f9e5e69edf8dc49d [file] [log] [blame] [edit]
(module
(type $i64_=>_i64 (func (param i64) (result i64)))
(export "fac-rec" (func $0))
(export "fac-rec-named" (func $1))
(export "fac-iter" (func $2))
(export "fac-iter-named" (func $3))
(export "fac-opt" (func $4))
(func $0 (; has Stack IR ;) (param $0 i64) (result i64)
(if (result i64)
(i64.eqz
(local.get $0)
)
(i64.const 1)
(i64.mul
(call $0
(i64.sub
(local.get $0)
(i64.const 1)
)
)
(local.get $0)
)
)
)
(func $1 (; has Stack IR ;) (param $0 i64) (result i64)
(if (result i64)
(i64.eqz
(local.get $0)
)
(i64.const 1)
(i64.mul
(call $1
(i64.sub
(local.get $0)
(i64.const 1)
)
)
(local.get $0)
)
)
)
(func $2 (; has Stack IR ;) (param $0 i64) (result i64)
(unreachable)
)
(func $3 (; has Stack IR ;) (param $0 i64) (result i64)
(local $1 i64)
(local.set $1
(i64.const 1)
)
(loop $label$3
(if
(i32.eqz
(i64.eqz
(local.get $0)
)
)
(block
(local.set $1
(i64.mul
(local.get $0)
(local.get $1)
)
)
(local.set $0
(i64.sub
(local.get $0)
(i64.const 1)
)
)
(br $label$3)
)
)
)
(local.get $1)
)
(func $4 (; has Stack IR ;) (param $0 i64) (result i64)
(local $1 i64)
(local.set $1
(i64.const 1)
)
(if
(i64.ge_s
(local.get $0)
(i64.const 2)
)
(loop $label$3
(local.set $1
(i64.mul
(local.get $0)
(local.get $1)
)
)
(br_if $label$3
(i64.gt_s
(local.tee $0
(i64.sub
(local.get $0)
(i64.const 1)
)
)
(i64.const 1)
)
)
)
)
(local.get $1)
)
)