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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108
|
(module
(type $i (func (param i32) (result i32)))
(memory $0 1 100)
(export "sieve" (func $sieve))
(func $sieve (; 0 ;) (type $i) (param $0 i32) (result i32)
(local $1 i32)
(if
(i32.lt_u
(i32.mul
(current_memory)
(i32.const 65536)
)
(local.get $0)
)
(drop
(grow_memory
(i32.sub
(i32.div_u
(i32.add
(local.get $0)
(i32.const 65535)
)
(i32.const 65536)
)
(current_memory)
)
)
)
)
(local.set $1
(i32.const 0)
)
(loop $clear
(i32.store8
(local.get $1)
(i32.const 0)
)
(local.set $1
(i32.add
(local.get $1)
(i32.const 1)
)
)
(br_if $clear
(i32.eq
(local.get $1)
(local.get $0)
)
)
)
(return
(local.get $0)
)
)
)
optimized:
(module
(type $i (func (param i32) (result i32)))
(memory $0 1 100)
(export "sieve" (func $sieve))
(func $sieve (; 0 ;) (; has Stack IR ;) (type $i) (param $0 i32) (result i32)
(local $1 i32)
(if
(i32.lt_u
(i32.shl
(current_memory)
(i32.const 16)
)
(local.get $0)
)
(drop
(grow_memory
(i32.sub
(i32.div_u
(i32.add
(local.get $0)
(i32.const 65535)
)
(i32.const 65536)
)
(current_memory)
)
)
)
)
(loop $clear
(i32.store8
(local.get $1)
(i32.const 0)
)
(br_if $clear
(i32.eq
(local.tee $1
(i32.add
(local.get $1)
(i32.const 1)
)
)
(local.get $0)
)
)
)
(local.get $0)
)
)
|