opcodes[]: global scope global { global scope implicit__numeric_functions { uint32[][] kill ( uint32[][] ) { var uint32[][] ANON dup ( -- uint32[][]¢ ) forallitems ( uint32[][]¢ -- uint32[]& ) -> L1091 L1090: peek ( uint32[]& -- uint32[]¢ ) dispose ( uint32[] -- ) L1091: ForAllEnd .. L1090 } } type utf8str: type ucs1str: type ucs2str: type ucs4str: global scope vt100 { } void test_numeric_functions ( float64 ) { var float64 ANON var float64 a var float64 b var float64 stacktest var float64 c var float64 d "\nnumeric functions(float" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) 64 ( -- uint32 ) numstr ( uint32 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "):\n" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) print ( utf8str ) 0 ( -- float64 ) 0 ( -- float64 ) -1.9374365e+27 ( -- float64 ) 0 ( -- float64 ) 0 ( -- float64 ) 21 ( -- int32 ) 3.1415926535898 ( -- float64 ) 3.1415926535898 ( -- float64 ) call test ( int32, float64, float64 ) 22 ( -- int32 ) 2.718281828459 ( -- float64 ) 2.718281828459 ( -- float64 ) call test ( int32, float64, float64 ) 23 ( -- int32 ) inf ( -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 24 ( -- int32 ) inf ( -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 25 ( -- int32 ) -inf ( -- float64 ) -inf ( -- float64 ) call test ( int32, float64, float64 ) 26 ( -- int32 ) nan ( -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 27 ( -- int32 ) nan ( -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 28 ( -- int32 ) nan ( -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 29 ( -- int32 ) nan ( -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 30 ( -- int32 ) nan ( -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 31 ( -- int32 ) nan ( -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 32 ( -- int32 ) inf ( -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 33 ( -- int32 ) -inf ( -- float64 ) -inf ( -- float64 ) call test ( int32, float64, float64 ) 34 ( -- int32 ) 0 ( -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 35 ( -- int32 ) -0 ( -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 39 ( -- int32 ) 3434.1 ( -- float64 ) sign ( float64 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 40 ( -- int32 ) 0.001 ( -- float64 ) sign ( float64 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 41 ( -- int32 ) 0 ( -- float64 ) sign ( float64 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 42 ( -- int32 ) -0.001 ( -- float64 ) sign ( float64 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 43 ( -- int32 ) -9843.11 ( -- float64 ) sign ( float64 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 44 ( -- int32 ) -inf ( -- float64 ) sign ( float64 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 45 ( -- int32 ) inf ( -- float64 ) sign ( float64 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 46 ( -- int32 ) nan ( -- float64 ) sign ( float64 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 47 ( -- int32 ) nan ( -- float64 ) sign ( float64 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 52 ( -- int32 ) 124.4 ( -- float64 ) abs ( float64 -- float64 ) 124.4 ( -- float64 ) call test ( int32, float64, float64 ) 53 ( -- int32 ) 0.043 ( -- float64 ) abs ( float64 -- float64 ) 0.043 ( -- float64 ) call test ( int32, float64, float64 ) 54 ( -- int32 ) 0 ( -- float64 ) abs ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 55 ( -- int32 ) -17.3 ( -- float64 ) abs ( float64 -- float64 ) 17.3 ( -- float64 ) call test ( int32, float64, float64 ) 56 ( -- int32 ) -0.043 ( -- float64 ) abs ( float64 -- float64 ) 0.043 ( -- float64 ) call test ( int32, float64, float64 ) 57 ( -- int32 ) -inf ( -- float64 ) abs ( float64 -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 58 ( -- int32 ) inf ( -- float64 ) abs ( float64 -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 59 ( -- int32 ) nan ( -- float64 ) abs ( float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 64 ( -- int32 ) 7.1 ( -- float64 ) round ( float64 -- float64 ) 7 ( -- float64 ) call test ( int32, float64, float64 ) 65 ( -- int32 ) 8.5 ( -- float64 ) round ( float64 -- float64 ) 9 ( -- float64 ) call test ( int32, float64, float64 ) 66 ( -- int32 ) -8.499 ( -- float64 ) round ( float64 -- float64 ) -8 ( -- float64 ) call test ( int32, float64, float64 ) 67 ( -- int32 ) -8.5 ( -- float64 ) round ( float64 -- float64 ) -9 ( -- float64 ) call test ( int32, float64, float64 ) 68 ( -- int32 ) 0.1 ( -- float64 ) round ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 69 ( -- int32 ) 0 ( -- float64 ) round ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 70 ( -- int32 ) -0.1 ( -- float64 ) round ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 71 ( -- int32 ) 0.51 ( -- float64 ) round ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 72 ( -- int32 ) -0.51 ( -- float64 ) round ( float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 76 ( -- int32 ) 3 ( -- float64 ) floor ( float64 -- float64 ) 3 ( -- float64 ) call test ( int32, float64, float64 ) 77 ( -- int32 ) 3.99 ( -- float64 ) floor ( float64 -- float64 ) 3 ( -- float64 ) call test ( int32, float64, float64 ) 78 ( -- int32 ) -3 ( -- float64 ) floor ( float64 -- float64 ) -3 ( -- float64 ) call test ( int32, float64, float64 ) 79 ( -- int32 ) -3.0001 ( -- float64 ) floor ( float64 -- float64 ) -4 ( -- float64 ) call test ( int32, float64, float64 ) 80 ( -- int32 ) 0 ( -- float64 ) floor ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 83 ( -- int32 ) 3 ( -- float64 ) ceil ( float64 -- float64 ) 3 ( -- float64 ) call test ( int32, float64, float64 ) 84 ( -- int32 ) 3.01 ( -- float64 ) ceil ( float64 -- float64 ) 4 ( -- float64 ) call test ( int32, float64, float64 ) 85 ( -- int32 ) -3 ( -- float64 ) ceil ( float64 -- float64 ) -3 ( -- float64 ) call test ( int32, float64, float64 ) 86 ( -- int32 ) -3.9999 ( -- float64 ) ceil ( float64 -- float64 ) -3 ( -- float64 ) call test ( int32, float64, float64 ) 87 ( -- int32 ) 0 ( -- float64 ) ceil ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 90 ( -- int32 ) 99.9 ( -- float64 ) integ ( float64 -- float64 ) 99 ( -- float64 ) call test ( int32, float64, float64 ) 91 ( -- int32 ) -99.9 ( -- float64 ) integ ( float64 -- float64 ) -99 ( -- float64 ) call test ( int32, float64, float64 ) 94 ( -- int32 ) 99.9 ( -- float64 ) fract ( float64 -- float64 ) 0.9 ( -- float64 ) call test ( int32, float64, float64 ) 95 ( -- int32 ) -99.9 ( -- float64 ) fract ( float64 -- float64 ) -0.9 ( -- float64 ) call test ( int32, float64, float64 ) 99 ( -- int32 ) 2 ( -- float64 ) 5 ( -- float64 ) min ( float64, float64 -- float64 ) 2 ( -- float64 ) call test ( int32, float64, float64 ) 100 ( -- int32 ) 2.22 ( -- float64 ) 5 ( -- float64 ) -55 ( -- float64 ) 0 ( -- float64 ) 17 ( -- float64 ) 40 ( -- uint32 ) alloc ( uint32 -- float64[5] ) dup2r ( float64[5] -- float64[5]¢ ) forallitems ( float64[5]¢ -- float64& ) -> L1136 L1135: poke ( float64, float64& -- ) L1136: ForAllEnd .. L1135 fromr ( -- float64[5] ) dup2r ( float64[] -- float64[]¢ ) min ( float64[]¢ -- float64 ) fromr ( -- float64[] ) dispose ( float64[] -- ) -55 ( -- float64 ) call test ( int32, float64, float64 ) 101 ( -- int32 ) 5 ( -- float64 ) 8 ( -- uint32 ) alloc ( uint32 -- float64[1] ) dup2r ( float64[1] -- float64[1]¢ ) forallitems ( float64[1]¢ -- float64& ) -> L1138 L1137: poke ( float64, float64& -- ) L1138: ForAllEnd .. L1137 fromr ( -- float64[1] ) dup2r ( float64[] -- float64[]¢ ) min ( float64[]¢ -- float64 ) fromr ( -- float64[] ) dispose ( float64[] -- ) 5 ( -- float64 ) call test ( int32, float64, float64 ) 105 ( -- int32 ) 2 ( -- float64 ) 5 ( -- float64 ) max ( float64, float64 -- float64 ) 5 ( -- float64 ) call test ( int32, float64, float64 ) 106 ( -- int32 ) 2 ( -- float64 ) 5 ( -- float64 ) -55 ( -- float64 ) 17 ( -- float64 ) 0 ( -- float64 ) 40 ( -- uint32 ) alloc ( uint32 -- float64[5] ) dup2r ( float64[5] -- float64[5]¢ ) forallitems ( float64[5]¢ -- float64& ) -> L1140 L1139: poke ( float64, float64& -- ) L1140: ForAllEnd .. L1139 fromr ( -- float64[5] ) dup2r ( float64[] -- float64[]¢ ) max ( float64[]¢ -- float64 ) fromr ( -- float64[] ) dispose ( float64[] -- ) 17 ( -- float64 ) call test ( int32, float64, float64 ) 107 ( -- int32 ) 5 ( -- float64 ) 8 ( -- uint32 ) alloc ( uint32 -- float64[1] ) dup2r ( float64[1] -- float64[1]¢ ) forallitems ( float64[1]¢ -- float64& ) -> L1142 L1141: poke ( float64, float64& -- ) L1142: ForAllEnd .. L1141 fromr ( -- float64[1] ) dup2r ( float64[] -- float64[]¢ ) max ( float64[]¢ -- float64 ) fromr ( -- float64[] ) dispose ( float64[] -- ) 5 ( -- float64 ) call test ( int32, float64, float64 ) 44 ( -- float64 ) lvar-8+48 "a" ( -- float64& ) poke ( float64, float64& -- ) 55 ( -- float64 ) lvar-16+48 "b" ( -- float64& ) poke ( float64, float64& -- ) 66 ( -- float64 ) lvar-32+48 "c" ( -- float64& ) poke ( float64, float64& -- ) 108 ( -- int32 ) lvar-8+44 "a" ( -- float64& ) peek ( float64& -- float64 ) lvar-16+52 "b" ( -- float64& ) peek ( float64& -- float64 ) lvar-32+60 "c" ( -- float64& ) peek ( float64& -- float64 ) max ( float64, float64, float64 -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 109 ( -- int32 ) lvar-8+44 "a" ( -- float64& ) peek ( float64& -- float64 ) 44 ( -- float64 ) call test ( int32, float64, float64 ) 110 ( -- int32 ) lvar-16+44 "b" ( -- float64& ) peek ( float64& -- float64 ) 55 ( -- float64 ) call test ( int32, float64, float64 ) 111 ( -- int32 ) lvar-32+44 "c" ( -- float64& ) peek ( float64& -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 44 ( -- float64 ) lvar-8+48 "a" ( -- float64& ) poke ( float64, float64& -- ) 55 ( -- float64 ) lvar-16+48 "b" ( -- float64& ) poke ( float64, float64& -- ) 66 ( -- float64 ) lvar-32+48 "c" ( -- float64& ) poke ( float64, float64& -- ) 112 ( -- int32 ) lvar-32+44 "c" ( -- float64& ) peek ( float64& -- float64 ) lvar-16+52 "b" ( -- float64& ) peek ( float64& -- float64 ) lvar-8+60 "a" ( -- float64& ) peek ( float64& -- float64 ) max ( float64, float64, float64 -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 113 ( -- int32 ) lvar-8+44 "a" ( -- float64& ) peek ( float64& -- float64 ) 44 ( -- float64 ) call test ( int32, float64, float64 ) 114 ( -- int32 ) lvar-16+44 "b" ( -- float64& ) peek ( float64& -- float64 ) 55 ( -- float64 ) call test ( int32, float64, float64 ) 115 ( -- int32 ) lvar-32+44 "c" ( -- float64& ) peek ( float64& -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 99 ( -- float64 ) lvar-40+48 "d" ( -- float64& ) poke ( float64, float64& -- ) lvar-32+40 "c" ( -- float64& ) peek ( float64& -- float64 ) lvar-16+48 "b" ( -- float64& ) peek ( float64& -- float64 ) lvar-8+56 "a" ( -- float64& ) peek ( float64& -- float64 ) max ( float64, float64, float64 -- float64 ) lvar-40+48 "d" ( -- float64& ) poke ( float64, float64& -- ) 116 ( -- int32 ) lvar-40+44 "d" ( -- float64& ) peek ( float64& -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 117 ( -- int32 ) lvar-8+44 "a" ( -- float64& ) peek ( float64& -- float64 ) 44 ( -- float64 ) call test ( int32, float64, float64 ) 118 ( -- int32 ) lvar-16+44 "b" ( -- float64& ) peek ( float64& -- float64 ) 55 ( -- float64 ) call test ( int32, float64, float64 ) 119 ( -- int32 ) lvar-32+44 "c" ( -- float64& ) peek ( float64& -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 120 ( -- int32 ) lvar-40+44 "d" ( -- float64& ) peek ( float64& -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 126.5432 ( -- float64 ) lvar-16+48 "b" ( -- float64& ) poke ( float64, float64& -- ) 129 ( -- int32 ) 0 ( -- float64 ) sin ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 130 ( -- int32 ) 3.1415926535898 ( -- float64 ) sin ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 131 ( -- int32 ) 1.5707963267949 ( -- float64 ) sin ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 132 ( -- int32 ) 4.7123889803847 ( -- float64 ) sin ( float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 133 ( -- int32 ) 6.2831853071796 ( -- float64 ) sin ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 134 ( -- int32 ) -1.5707963267949 ( -- float64 ) sin ( float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 135 ( -- int32 ) 0.5235987755983 ( -- float64 ) sin ( float64 -- float64 ) 0.5 ( -- float64 ) call test ( int32, float64, float64 ) 136 ( -- int32 ) lvar-16+44 "b" ( -- float64& ) peek ( float64& -- float64 ) 126.5432 ( -- float64 ) call test ( int32, float64, float64 ) 139 ( -- int32 ) 0 ( -- float64 ) cos ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 140 ( -- int32 ) 1.5707963267949 ( -- float64 ) cos ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 141 ( -- int32 ) -1.5707963267949 ( -- float64 ) cos ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 142 ( -- int32 ) 3.1415926535898 ( -- float64 ) cos ( float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 143 ( -- int32 ) -3.1415926535898 ( -- float64 ) cos ( float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 146 ( -- int32 ) 0 ( -- float64 ) tan ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 147 ( -- int32 ) 0.78539816339745 ( -- float64 ) tan ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 148 ( -- int32 ) -0.78539816339745 ( -- float64 ) tan ( float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 149 ( -- int32 ) 3.9269908169872 ( -- float64 ) tan ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 150 ( -- int32 ) -3.9269908169872 ( -- float64 ) tan ( float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 153 ( -- int32 ) 0 ( -- float64 ) asin ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 154 ( -- int32 ) 1 ( -- float64 ) asin ( float64 -- float64 ) 1.5707963267949 ( -- float64 ) call test ( int32, float64, float64 ) 157 ( -- int32 ) -1 ( -- float64 ) acos ( float64 -- float64 ) 3.1415926535898 ( -- float64 ) call test ( int32, float64, float64 ) 158 ( -- int32 ) 0 ( -- float64 ) acos ( float64 -- float64 ) 1.5707963267949 ( -- float64 ) call test ( int32, float64, float64 ) 161 ( -- int32 ) 0 ( -- float64 ) atan ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 162 ( -- int32 ) 1 ( -- float64 ) atan ( float64 -- float64 ) 0.78539816339745 ( -- float64 ) call test ( int32, float64, float64 ) 163 ( -- int32 ) -1 ( -- float64 ) atan ( float64 -- float64 ) -0.78539816339745 ( -- float64 ) call test ( int32, float64, float64 ) 166 ( -- int32 ) 0 ( -- float64 ) sinh ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 169 ( -- int32 ) 0 ( -- float64 ) cosh ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 172 ( -- int32 ) 0 ( -- float64 ) tanh ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 175 ( -- int32 ) 0 ( -- float64 ) exp10 ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 176 ( -- int32 ) 1 ( -- float64 ) exp10 ( float64 -- float64 ) 10 ( -- float64 ) call test ( int32, float64, float64 ) 177 ( -- int32 ) 10.1 ( -- float64 ) exp10 ( float64 -- float64 ) 12589254117.942 ( -- float64 ) call test ( int32, float64, float64 ) 178 ( -- int32 ) -10.1 ( -- float64 ) exp10 ( float64 -- float64 ) 7.9432823472428e-11 ( -- float64 ) call test ( int32, float64, float64 ) 179 ( -- int32 ) -7777777777.7 ( -- float64 ) exp10 ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 180 ( -- int32 ) 7777777777.7 ( -- float64 ) exp10 ( float64 -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 183 ( -- int32 ) 0 ( -- float64 ) exp2 ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 184 ( -- int32 ) 1 ( -- float64 ) exp2 ( float64 -- float64 ) 2 ( -- float64 ) call test ( int32, float64, float64 ) 185 ( -- int32 ) 10.1 ( -- float64 ) exp2 ( float64 -- float64 ) 1097.4960256372 ( -- float64 ) call test ( int32, float64, float64 ) 186 ( -- int32 ) -10.1 ( -- float64 ) exp2 ( float64 -- float64 ) 0.00091116503079766 ( -- float64 ) call test ( int32, float64, float64 ) 187 ( -- int32 ) -7777777777.7 ( -- float64 ) exp2 ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 188 ( -- int32 ) 7777777777.7 ( -- float64 ) exp2 ( float64 -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 191 ( -- int32 ) 0 ( -- float64 ) expe ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 192 ( -- int32 ) 1 ( -- float64 ) expe ( float64 -- float64 ) 2.718281828459 ( -- float64 ) call test ( int32, float64, float64 ) 193 ( -- int32 ) 10.1 ( -- float64 ) expe ( float64 -- float64 ) 24343.009424408 ( -- float64 ) call test ( int32, float64, float64 ) 194 ( -- int32 ) -10.1 ( -- float64 ) expe ( float64 -- float64 ) 4.1079555225301e-05 ( -- float64 ) call test ( int32, float64, float64 ) 195 ( -- int32 ) -7777777777.7 ( -- float64 ) expe ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 196 ( -- int32 ) 7777777777.7 ( -- float64 ) expe ( float64 -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 200 ( -- int32 ) 0 ( -- float64 ) 77.77 ( -- float64 ) exp ( float64, float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 201 ( -- int32 ) 0 ( -- float64 ) 7.7e+21 ( -- float64 ) exp ( float64, float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 202 ( -- int32 ) 0 ( -- float64 ) 7.7e-19 ( -- float64 ) exp ( float64, float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 203 ( -- int32 ) 0 ( -- float64 ) -77.77 ( -- float64 ) exp ( float64, float64 -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 204 ( -- int32 ) 0 ( -- float64 ) -7.7e+21 ( -- float64 ) exp ( float64, float64 -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 205 ( -- int32 ) 0 ( -- float64 ) -7.7e-19 ( -- float64 ) exp ( float64, float64 -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 206 ( -- int32 ) 7.7e-19 ( -- float64 ) 0 ( -- float64 ) exp ( float64, float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 207 ( -- int32 ) 77 ( -- float64 ) 0 ( -- float64 ) exp ( float64, float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 208 ( -- int32 ) 7.7e+21 ( -- float64 ) 0 ( -- float64 ) exp ( float64, float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 209 ( -- int32 ) 0 ( -- float64 ) 0 ( -- float64 ) exp ( float64, float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 213 ( -- int32 ) 10 ( -- float64 ) log10 ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 214 ( -- int32 ) 1 ( -- float64 ) log10 ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 215 ( -- int32 ) 0.1 ( -- float64 ) log10 ( float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 216 ( -- int32 ) 0 ( -- float64 ) log10 ( float64 -- float64 ) -inf ( -- float64 ) call test ( int32, float64, float64 ) 217 ( -- int32 ) -1 ( -- float64 ) log10 ( float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 220 ( -- int32 ) 8 ( -- float64 ) log2 ( float64 -- float64 ) 3 ( -- float64 ) call test ( int32, float64, float64 ) 221 ( -- int32 ) 1 ( -- float64 ) log2 ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 222 ( -- int32 ) 0.5 ( -- float64 ) log2 ( float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 223 ( -- int32 ) 0 ( -- float64 ) log2 ( float64 -- float64 ) -inf ( -- float64 ) call test ( int32, float64, float64 ) 224 ( -- int32 ) -1 ( -- float64 ) log2 ( float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 227 ( -- int32 ) 2.718281828459 ( -- float64 ) loge ( float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 228 ( -- int32 ) 1 ( -- float64 ) loge ( float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 229 ( -- int32 ) 0.36787944117144 ( -- float64 ) loge ( float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 230 ( -- int32 ) 0 ( -- float64 ) loge ( float64 -- float64 ) -inf ( -- float64 ) call test ( int32, float64, float64 ) 231 ( -- int32 ) -1 ( -- float64 ) loge ( float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 235 ( -- int32 ) 8 ( -- float64 ) 8 ( -- float64 ) log ( float64, float64 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 236 ( -- int32 ) 7 ( -- float64 ) 1 ( -- float64 ) log ( float64, float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 237 ( -- int32 ) 5 ( -- float64 ) 0.2 ( -- float64 ) log ( float64, float64 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 238 ( -- int32 ) 3 ( -- float64 ) 0 ( -- float64 ) log ( float64, float64 -- float64 ) -inf ( -- float64 ) call test ( int32, float64, float64 ) 239 ( -- int32 ) 1 ( -- float64 ) 1 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 240 ( -- int32 ) 1 ( -- float64 ) 0 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 241 ( -- int32 ) 0 ( -- float64 ) 81 ( -- float64 ) log ( float64, float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 242 ( -- int32 ) 0.33333333333333 ( -- float64 ) 81 ( -- float64 ) log ( float64, float64 -- float64 ) -4 ( -- float64 ) call test ( int32, float64, float64 ) 243 ( -- int32 ) 1 ( -- float64 ) 81 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 244 ( -- int32 ) 3 ( -- float64 ) 81 ( -- float64 ) log ( float64, float64 -- float64 ) 4 ( -- float64 ) call test ( int32, float64, float64 ) 245 ( -- int32 ) 0 ( -- float64 ) 81 ( -- float64 ) log ( float64, float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 246 ( -- int32 ) -0.33333333333333 ( -- float64 ) 81 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 247 ( -- int32 ) -1 ( -- float64 ) 81 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 248 ( -- int32 ) -3 ( -- float64 ) 81 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 249 ( -- int32 ) 0 ( -- float64 ) 0.012345679012346 ( -- float64 ) log ( float64, float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 250 ( -- int32 ) 0.33333333333333 ( -- float64 ) 0.012345679012346 ( -- float64 ) log ( float64, float64 -- float64 ) 4 ( -- float64 ) call test ( int32, float64, float64 ) 251 ( -- int32 ) 1 ( -- float64 ) 0.012345679012346 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 252 ( -- int32 ) 3 ( -- float64 ) 0.012345679012346 ( -- float64 ) log ( float64, float64 -- float64 ) -4 ( -- float64 ) call test ( int32, float64, float64 ) 253 ( -- int32 ) 0 ( -- float64 ) 0.012345679012346 ( -- float64 ) log ( float64, float64 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 254 ( -- int32 ) -0.33333333333333 ( -- float64 ) 0.012345679012346 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 255 ( -- int32 ) -1 ( -- float64 ) 0.012345679012346 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 256 ( -- int32 ) -3 ( -- float64 ) 0.012345679012346 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 257 ( -- int32 ) 0 ( -- float64 ) 0 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 258 ( -- int32 ) -1e-100 ( -- float64 ) 0 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 259 ( -- int32 ) 77 ( -- float64 ) -1 ( -- float64 ) log ( float64, float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 260 ( -- int32 ) 0.1 ( -- float64 ) 0 ( -- float64 ) log ( float64, float64 -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 261 ( -- int32 ) 0.9 ( -- float64 ) 0 ( -- float64 ) log ( float64, float64 -- float64 ) inf ( -- float64 ) call test ( int32, float64, float64 ) 265 ( -- int32 ) 1.5 ( -- float64 ) 2 ( -- int32 ) pow ( float64, int32 -- float64 ) 2.25 ( -- float64 ) call test ( int32, float64, float64 ) 266 ( -- int32 ) 5 ( -- float64 ) 4 ( -- int32 ) pow ( float64, int32 -- float64 ) 625 ( -- float64 ) call test ( int32, float64, float64 ) 267 ( -- int32 ) 2 ( -- float64 ) 16 ( -- int32 ) pow ( float64, int32 -- float64 ) 65536 ( -- float64 ) call test ( int32, float64, float64 ) 268 ( -- int32 ) -1.5 ( -- float64 ) 2 ( -- int32 ) pow ( float64, int32 -- float64 ) 2.25 ( -- float64 ) call test ( int32, float64, float64 ) 269 ( -- int32 ) 10 ( -- float64 ) -2 ( -- int32 ) pow ( float64, int32 -- float64 ) 0.01 ( -- float64 ) call test ( int32, float64, float64 ) 272 ( -- int32 ) 9 ( -- float64 ) sqrt ( float64 -- float64 ) 3 ( -- float64 ) call test ( int32, float64, float64 ) 273 ( -- int32 ) -9 ( -- float64 ) sqrt ( float64 -- float64 ) nan ( -- float64 ) call test ( int32, float64, float64 ) 275 ( -- int32 ) lvar-24+44 "stacktest" ( -- float64& ) peek ( float64& -- float64 ) -1.9374365e+27 ( -- float64 ) call test ( int32, float64, float64 ) drop ( float64 -- ) drop ( float64 -- ) drop ( float64 -- ) drop ( float64 -- ) drop ( float64 -- ) drop ( float64 -- ) } void test_numeric_functions ( float128 ) { var float128 ANON var float128 a var float128 b var float128 stacktest var float128 c var float128 d "\nnumeric functions(float" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) 128 ( -- uint32 ) numstr ( uint32 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "):\n" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) print ( utf8str ) 0 ( -- float128 ) 0 ( -- float128 ) -1.937436500000000131922e+27 ( -- float128 ) 0 ( -- float128 ) 0 ( -- float128 ) 21 ( -- int32 ) 3.141592653589793115998 ( -- float128 ) 3.141592653589793115998 ( -- float128 ) call test ( int32, float128, float128 ) 22 ( -- int32 ) 2.718281828459045090796 ( -- float128 ) 2.718281828459045090796 ( -- float128 ) call test ( int32, float128, float128 ) 23 ( -- int32 ) inf ( -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 24 ( -- int32 ) inf ( -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 25 ( -- int32 ) -inf ( -- float128 ) -inf ( -- float128 ) call test ( int32, float128, float128 ) 26 ( -- int32 ) nan ( -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 27 ( -- int32 ) nan ( -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 28 ( -- int32 ) nan ( -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 29 ( -- int32 ) nan ( -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 30 ( -- int32 ) nan ( -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 31 ( -- int32 ) nan ( -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 32 ( -- int32 ) inf ( -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 33 ( -- int32 ) -inf ( -- float128 ) -inf ( -- float128 ) call test ( int32, float128, float128 ) 34 ( -- int32 ) 0 ( -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 35 ( -- int32 ) -0 ( -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 39 ( -- int32 ) 3434.100000000000363798 ( -- float128 ) sign ( float128 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 40 ( -- int32 ) 0.001000000000000000020817 ( -- float128 ) sign ( float128 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 41 ( -- int32 ) 0 ( -- float128 ) sign ( float128 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 42 ( -- int32 ) -0.001000000000000000020817 ( -- float128 ) sign ( float128 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 43 ( -- int32 ) -9843.110000000000582077 ( -- float128 ) sign ( float128 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 44 ( -- int32 ) -inf ( -- float128 ) sign ( float128 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 45 ( -- int32 ) inf ( -- float128 ) sign ( float128 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 46 ( -- int32 ) nan ( -- float128 ) sign ( float128 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 47 ( -- int32 ) nan ( -- float128 ) sign ( float128 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 52 ( -- int32 ) 124.4000000000000056843 ( -- float128 ) abs ( float128 -- float128 ) 124.4000000000000056843 ( -- float128 ) call test ( int32, float128, float128 ) 53 ( -- int32 ) 0.0430000000000000034972 ( -- float128 ) abs ( float128 -- float128 ) 0.0430000000000000034972 ( -- float128 ) call test ( int32, float128, float128 ) 54 ( -- int32 ) 0 ( -- float128 ) abs ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 55 ( -- int32 ) -17.30000000000000071054 ( -- float128 ) abs ( float128 -- float128 ) 17.30000000000000071054 ( -- float128 ) call test ( int32, float128, float128 ) 56 ( -- int32 ) -0.0430000000000000034972 ( -- float128 ) abs ( float128 -- float128 ) 0.0430000000000000034972 ( -- float128 ) call test ( int32, float128, float128 ) 57 ( -- int32 ) -inf ( -- float128 ) abs ( float128 -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 58 ( -- int32 ) inf ( -- float128 ) abs ( float128 -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 59 ( -- int32 ) nan ( -- float128 ) abs ( float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 64 ( -- int32 ) 7.100000000000000532907 ( -- float128 ) round ( float128 -- float128 ) 7 ( -- float128 ) call test ( int32, float128, float128 ) 65 ( -- int32 ) 8.5 ( -- float128 ) round ( float128 -- float128 ) 9 ( -- float128 ) call test ( int32, float128, float128 ) 66 ( -- int32 ) -8.499000000000000554223 ( -- float128 ) round ( float128 -- float128 ) -8 ( -- float128 ) call test ( int32, float128, float128 ) 67 ( -- int32 ) -8.5 ( -- float128 ) round ( float128 -- float128 ) -9 ( -- float128 ) call test ( int32, float128, float128 ) 68 ( -- int32 ) 0.1000000000000000055511 ( -- float128 ) round ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 69 ( -- int32 ) 0 ( -- float128 ) round ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 70 ( -- int32 ) -0.1000000000000000055511 ( -- float128 ) round ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 71 ( -- int32 ) 0.5100000000000000088818 ( -- float128 ) round ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 72 ( -- int32 ) -0.5100000000000000088818 ( -- float128 ) round ( float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 76 ( -- int32 ) 3 ( -- float128 ) floor ( float128 -- float128 ) 3 ( -- float128 ) call test ( int32, float128, float128 ) 77 ( -- int32 ) 3.990000000000000213163 ( -- float128 ) floor ( float128 -- float128 ) 3 ( -- float128 ) call test ( int32, float128, float128 ) 78 ( -- int32 ) -3 ( -- float128 ) floor ( float128 -- float128 ) -3 ( -- float128 ) call test ( int32, float128, float128 ) 79 ( -- int32 ) -3.000100000000000211031 ( -- float128 ) floor ( float128 -- float128 ) -4 ( -- float128 ) call test ( int32, float128, float128 ) 80 ( -- int32 ) 0 ( -- float128 ) floor ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 83 ( -- int32 ) 3 ( -- float128 ) ceil ( float128 -- float128 ) 3 ( -- float128 ) call test ( int32, float128, float128 ) 84 ( -- int32 ) 3.010000000000000230926 ( -- float128 ) ceil ( float128 -- float128 ) 4 ( -- float128 ) call test ( int32, float128, float128 ) 85 ( -- int32 ) -3 ( -- float128 ) ceil ( float128 -- float128 ) -3 ( -- float128 ) call test ( int32, float128, float128 ) 86 ( -- int32 ) -3.999900000000000233058 ( -- float128 ) ceil ( float128 -- float128 ) -3 ( -- float128 ) call test ( int32, float128, float128 ) 87 ( -- int32 ) 0 ( -- float128 ) ceil ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 90 ( -- int32 ) 99.90000000000000568434 ( -- float128 ) integ ( float128 -- float128 ) 99 ( -- float128 ) call test ( int32, float128, float128 ) 91 ( -- int32 ) -99.90000000000000568434 ( -- float128 ) integ ( float128 -- float128 ) -99 ( -- float128 ) call test ( int32, float128, float128 ) 94 ( -- int32 ) 99.90000000000000568434 ( -- float128 ) fract ( float128 -- float128 ) 0.9000000000000000222045 ( -- float128 ) call test ( int32, float128, float128 ) 95 ( -- int32 ) -99.90000000000000568434 ( -- float128 ) fract ( float128 -- float128 ) -0.9000000000000000222045 ( -- float128 ) call test ( int32, float128, float128 ) 99 ( -- int32 ) 2 ( -- float128 ) 5 ( -- float128 ) min ( float128, float128 -- float128 ) 2 ( -- float128 ) call test ( int32, float128, float128 ) 100 ( -- int32 ) 2.220000000000000195399 ( -- float128 ) 5 ( -- float128 ) -55 ( -- float128 ) 0 ( -- float128 ) 17 ( -- float128 ) 80 ( -- uint32 ) alloc ( uint32 -- float128[5] ) dup2r ( float128[5] -- float128[5]¢ ) forallitems ( float128[5]¢ -- float128& ) -> L1145 L1144: poke ( float128, float128& -- ) L1145: ForAllEnd .. L1144 fromr ( -- float128[5] ) dup2r ( float128[] -- float128[]¢ ) min ( float128[]¢ -- float128 ) fromr ( -- float128[] ) dispose ( float128[] -- ) -55 ( -- float128 ) call test ( int32, float128, float128 ) 101 ( -- int32 ) 5 ( -- float128 ) 16 ( -- uint32 ) alloc ( uint32 -- float128[1] ) dup2r ( float128[1] -- float128[1]¢ ) forallitems ( float128[1]¢ -- float128& ) -> L1147 L1146: poke ( float128, float128& -- ) L1147: ForAllEnd .. L1146 fromr ( -- float128[1] ) dup2r ( float128[] -- float128[]¢ ) min ( float128[]¢ -- float128 ) fromr ( -- float128[] ) dispose ( float128[] -- ) 5 ( -- float128 ) call test ( int32, float128, float128 ) 105 ( -- int32 ) 2 ( -- float128 ) 5 ( -- float128 ) max ( float128, float128 -- float128 ) 5 ( -- float128 ) call test ( int32, float128, float128 ) 106 ( -- int32 ) 2 ( -- float128 ) 5 ( -- float128 ) -55 ( -- float128 ) 17 ( -- float128 ) 0 ( -- float128 ) 80 ( -- uint32 ) alloc ( uint32 -- float128[5] ) dup2r ( float128[5] -- float128[5]¢ ) forallitems ( float128[5]¢ -- float128& ) -> L1149 L1148: poke ( float128, float128& -- ) L1149: ForAllEnd .. L1148 fromr ( -- float128[5] ) dup2r ( float128[] -- float128[]¢ ) max ( float128[]¢ -- float128 ) fromr ( -- float128[] ) dispose ( float128[] -- ) 17 ( -- float128 ) call test ( int32, float128, float128 ) 107 ( -- int32 ) 5 ( -- float128 ) 16 ( -- uint32 ) alloc ( uint32 -- float128[1] ) dup2r ( float128[1] -- float128[1]¢ ) forallitems ( float128[1]¢ -- float128& ) -> L1151 L1150: poke ( float128, float128& -- ) L1151: ForAllEnd .. L1150 fromr ( -- float128[1] ) dup2r ( float128[] -- float128[]¢ ) max ( float128[]¢ -- float128 ) fromr ( -- float128[] ) dispose ( float128[] -- ) 5 ( -- float128 ) call test ( int32, float128, float128 ) 44 ( -- float128 ) lvar-16+96 "a" ( -- float128& ) poke ( float128, float128& -- ) 55 ( -- float128 ) lvar-32+96 "b" ( -- float128& ) poke ( float128, float128& -- ) 66 ( -- float128 ) lvar-64+96 "c" ( -- float128& ) poke ( float128, float128& -- ) 108 ( -- int32 ) lvar-16+84 "a" ( -- float128& ) peek ( float128& -- float128 ) lvar-32+100 "b" ( -- float128& ) peek ( float128& -- float128 ) lvar-64+116 "c" ( -- float128& ) peek ( float128& -- float128 ) max ( float128, float128, float128 -- float128 ) 66 ( -- float128 ) call test ( int32, float128, float128 ) 109 ( -- int32 ) lvar-16+84 "a" ( -- float128& ) peek ( float128& -- float128 ) 44 ( -- float128 ) call test ( int32, float128, float128 ) 110 ( -- int32 ) lvar-32+84 "b" ( -- float128& ) peek ( float128& -- float128 ) 55 ( -- float128 ) call test ( int32, float128, float128 ) 111 ( -- int32 ) lvar-64+84 "c" ( -- float128& ) peek ( float128& -- float128 ) 66 ( -- float128 ) call test ( int32, float128, float128 ) 44 ( -- float128 ) lvar-16+96 "a" ( -- float128& ) poke ( float128, float128& -- ) 55 ( -- float128 ) lvar-32+96 "b" ( -- float128& ) poke ( float128, float128& -- ) 66 ( -- float128 ) lvar-64+96 "c" ( -- float128& ) poke ( float128, float128& -- ) 112 ( -- int32 ) lvar-64+84 "c" ( -- float128& ) peek ( float128& -- float128 ) lvar-32+100 "b" ( -- float128& ) peek ( float128& -- float128 ) lvar-16+116 "a" ( -- float128& ) peek ( float128& -- float128 ) max ( float128, float128, float128 -- float128 ) 66 ( -- float128 ) call test ( int32, float128, float128 ) 113 ( -- int32 ) lvar-16+84 "a" ( -- float128& ) peek ( float128& -- float128 ) 44 ( -- float128 ) call test ( int32, float128, float128 ) 114 ( -- int32 ) lvar-32+84 "b" ( -- float128& ) peek ( float128& -- float128 ) 55 ( -- float128 ) call test ( int32, float128, float128 ) 115 ( -- int32 ) lvar-64+84 "c" ( -- float128& ) peek ( float128& -- float128 ) 66 ( -- float128 ) call test ( int32, float128, float128 ) 99 ( -- float128 ) lvar-80+96 "d" ( -- float128& ) poke ( float128, float128& -- ) lvar-64+80 "c" ( -- float128& ) peek ( float128& -- float128 ) lvar-32+96 "b" ( -- float128& ) peek ( float128& -- float128 ) lvar-16+112 "a" ( -- float128& ) peek ( float128& -- float128 ) max ( float128, float128, float128 -- float128 ) lvar-80+96 "d" ( -- float128& ) poke ( float128, float128& -- ) 116 ( -- int32 ) lvar-80+84 "d" ( -- float128& ) peek ( float128& -- float128 ) 66 ( -- float128 ) call test ( int32, float128, float128 ) 117 ( -- int32 ) lvar-16+84 "a" ( -- float128& ) peek ( float128& -- float128 ) 44 ( -- float128 ) call test ( int32, float128, float128 ) 118 ( -- int32 ) lvar-32+84 "b" ( -- float128& ) peek ( float128& -- float128 ) 55 ( -- float128 ) call test ( int32, float128, float128 ) 119 ( -- int32 ) lvar-64+84 "c" ( -- float128& ) peek ( float128& -- float128 ) 66 ( -- float128 ) call test ( int32, float128, float128 ) 120 ( -- int32 ) lvar-80+84 "d" ( -- float128& ) peek ( float128& -- float128 ) 66 ( -- float128 ) call test ( int32, float128, float128 ) 126.5432000000000130058 ( -- float128 ) lvar-32+96 "b" ( -- float128& ) poke ( float128, float128& -- ) 129 ( -- int32 ) 0 ( -- float128 ) sin ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 130 ( -- int32 ) 3.141592653589793115998 ( -- float128 ) sin ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 131 ( -- int32 ) 1.570796326794896557999 ( -- float128 ) sin ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 132 ( -- int32 ) 4.712388980384689673997 ( -- float128 ) sin ( float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 133 ( -- int32 ) 6.283185307179586231996 ( -- float128 ) sin ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 134 ( -- int32 ) -1.570796326794896557999 ( -- float128 ) sin ( float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 135 ( -- int32 ) 0.5235987755982988526844 ( -- float128 ) sin ( float128 -- float128 ) 0.5 ( -- float128 ) call test ( int32, float128, float128 ) 136 ( -- int32 ) lvar-32+84 "b" ( -- float128& ) peek ( float128& -- float128 ) 126.5432000000000130058 ( -- float128 ) call test ( int32, float128, float128 ) 139 ( -- int32 ) 0 ( -- float128 ) cos ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 140 ( -- int32 ) 1.570796326794896557999 ( -- float128 ) cos ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 141 ( -- int32 ) -1.570796326794896557999 ( -- float128 ) cos ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 142 ( -- int32 ) 3.141592653589793115998 ( -- float128 ) cos ( float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 143 ( -- int32 ) -3.141592653589793115998 ( -- float128 ) cos ( float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 146 ( -- int32 ) 0 ( -- float128 ) tan ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 147 ( -- int32 ) 0.7853981633974482789995 ( -- float128 ) tan ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 148 ( -- int32 ) -0.7853981633974482789995 ( -- float128 ) tan ( float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 149 ( -- int32 ) 3.926990816987241394997 ( -- float128 ) tan ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 150 ( -- int32 ) -3.926990816987241394997 ( -- float128 ) tan ( float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 153 ( -- int32 ) 0 ( -- float128 ) asin ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 154 ( -- int32 ) 1 ( -- float128 ) asin ( float128 -- float128 ) 1.570796326794896557999 ( -- float128 ) call test ( int32, float128, float128 ) 157 ( -- int32 ) -1 ( -- float128 ) acos ( float128 -- float128 ) 3.141592653589793115998 ( -- float128 ) call test ( int32, float128, float128 ) 158 ( -- int32 ) 0 ( -- float128 ) acos ( float128 -- float128 ) 1.570796326794896557999 ( -- float128 ) call test ( int32, float128, float128 ) 161 ( -- int32 ) 0 ( -- float128 ) atan ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 162 ( -- int32 ) 1 ( -- float128 ) atan ( float128 -- float128 ) 0.7853981633974482789995 ( -- float128 ) call test ( int32, float128, float128 ) 163 ( -- int32 ) -1 ( -- float128 ) atan ( float128 -- float128 ) -0.7853981633974482789995 ( -- float128 ) call test ( int32, float128, float128 ) 166 ( -- int32 ) 0 ( -- float128 ) sinh ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 169 ( -- int32 ) 0 ( -- float128 ) cosh ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 172 ( -- int32 ) 0 ( -- float128 ) tanh ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 175 ( -- int32 ) 0 ( -- float128 ) exp10 ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 176 ( -- int32 ) 1 ( -- float128 ) exp10 ( float128 -- float128 ) 10 ( -- float128 ) call test ( int32, float128, float128 ) 177 ( -- int32 ) 10.10000000000000142109 ( -- float128 ) exp10 ( float128 -- float128 ) 12589254117.94199943542 ( -- float128 ) call test ( int32, float128, float128 ) 178 ( -- int32 ) -10.10000000000000142109 ( -- float128 ) exp10 ( float128 -- float128 ) 7.943282347242799778401e-11 ( -- float128 ) call test ( int32, float128, float128 ) 179 ( -- int32 ) -7777777777.700000762939 ( -- float128 ) exp10 ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 180 ( -- int32 ) 7777777777.700000762939 ( -- float128 ) exp10 ( float128 -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 183 ( -- int32 ) 0 ( -- float128 ) exp2 ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 184 ( -- int32 ) 1 ( -- float128 ) exp2 ( float128 -- float128 ) 2 ( -- float128 ) call test ( int32, float128, float128 ) 185 ( -- int32 ) 10.10000000000000142109 ( -- float128 ) exp2 ( float128 -- float128 ) 1097.496025637200091296 ( -- float128 ) call test ( int32, float128, float128 ) 186 ( -- int32 ) -10.10000000000000142109 ( -- float128 ) exp2 ( float128 -- float128 ) 0.0009111650307976600169507 ( -- float128 ) call test ( int32, float128, float128 ) 187 ( -- int32 ) -7777777777.700000762939 ( -- float128 ) exp2 ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 188 ( -- int32 ) 7777777777.700000762939 ( -- float128 ) exp2 ( float128 -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 191 ( -- int32 ) 0 ( -- float128 ) expe ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 192 ( -- int32 ) 1 ( -- float128 ) expe ( float128 -- float128 ) 2.718281828459045090796 ( -- float128 ) call test ( int32, float128, float128 ) 193 ( -- int32 ) 10.10000000000000142109 ( -- float128 ) expe ( float128 -- float128 ) 24343.00942440800281474 ( -- float128 ) call test ( int32, float128, float128 ) 194 ( -- int32 ) -10.10000000000000142109 ( -- float128 ) expe ( float128 -- float128 ) 4.107955522530100183308e-05 ( -- float128 ) call test ( int32, float128, float128 ) 195 ( -- int32 ) -7777777777.700000762939 ( -- float128 ) expe ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 196 ( -- int32 ) 7777777777.700000762939 ( -- float128 ) expe ( float128 -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 200 ( -- int32 ) 0 ( -- float128 ) 77.76999999999999602096 ( -- float128 ) exp ( float128, float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 201 ( -- int32 ) 0 ( -- float128 ) 7700000000000000000000 ( -- float128 ) exp ( float128, float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 202 ( -- int32 ) 0 ( -- float128 ) 7.699999999999999472356e-19 ( -- float128 ) exp ( float128, float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 203 ( -- int32 ) 0 ( -- float128 ) -77.76999999999999602096 ( -- float128 ) exp ( float128, float128 -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 204 ( -- int32 ) 0 ( -- float128 ) -7700000000000000000000 ( -- float128 ) exp ( float128, float128 -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 205 ( -- int32 ) 0 ( -- float128 ) -7.699999999999999472356e-19 ( -- float128 ) exp ( float128, float128 -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 206 ( -- int32 ) 7.699999999999999472356e-19 ( -- float128 ) 0 ( -- float128 ) exp ( float128, float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 207 ( -- int32 ) 77 ( -- float128 ) 0 ( -- float128 ) exp ( float128, float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 208 ( -- int32 ) 7700000000000000000000 ( -- float128 ) 0 ( -- float128 ) exp ( float128, float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 209 ( -- int32 ) 0 ( -- float128 ) 0 ( -- float128 ) exp ( float128, float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 213 ( -- int32 ) 10 ( -- float128 ) log10 ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 214 ( -- int32 ) 1 ( -- float128 ) log10 ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 215 ( -- int32 ) 0.1000000000000000055511 ( -- float128 ) log10 ( float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 216 ( -- int32 ) 0 ( -- float128 ) log10 ( float128 -- float128 ) -inf ( -- float128 ) call test ( int32, float128, float128 ) 217 ( -- int32 ) -1 ( -- float128 ) log10 ( float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 220 ( -- int32 ) 8 ( -- float128 ) log2 ( float128 -- float128 ) 3 ( -- float128 ) call test ( int32, float128, float128 ) 221 ( -- int32 ) 1 ( -- float128 ) log2 ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 222 ( -- int32 ) 0.5 ( -- float128 ) log2 ( float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 223 ( -- int32 ) 0 ( -- float128 ) log2 ( float128 -- float128 ) -inf ( -- float128 ) call test ( int32, float128, float128 ) 224 ( -- int32 ) -1 ( -- float128 ) log2 ( float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 227 ( -- int32 ) 2.718281828459045090796 ( -- float128 ) loge ( float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 228 ( -- int32 ) 1 ( -- float128 ) loge ( float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 229 ( -- int32 ) 0.3678794411714423411529 ( -- float128 ) loge ( float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 230 ( -- int32 ) 0 ( -- float128 ) loge ( float128 -- float128 ) -inf ( -- float128 ) call test ( int32, float128, float128 ) 231 ( -- int32 ) -1 ( -- float128 ) loge ( float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 235 ( -- int32 ) 8 ( -- float128 ) 8 ( -- float128 ) log ( float128, float128 -- float128 ) 1 ( -- float128 ) call test ( int32, float128, float128 ) 236 ( -- int32 ) 7 ( -- float128 ) 1 ( -- float128 ) log ( float128, float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 237 ( -- int32 ) 5 ( -- float128 ) 0.2000000000000000111022 ( -- float128 ) log ( float128, float128 -- float128 ) -1 ( -- float128 ) call test ( int32, float128, float128 ) 238 ( -- int32 ) 3 ( -- float128 ) 0 ( -- float128 ) log ( float128, float128 -- float128 ) -inf ( -- float128 ) call test ( int32, float128, float128 ) 239 ( -- int32 ) 1 ( -- float128 ) 1 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 240 ( -- int32 ) 1 ( -- float128 ) 0 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 241 ( -- int32 ) 0 ( -- float128 ) 81 ( -- float128 ) log ( float128, float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 242 ( -- int32 ) 0.3333333333333333333424 ( -- float128 ) 81 ( -- float128 ) log ( float128, float128 -- float128 ) -4 ( -- float128 ) call test ( int32, float128, float128 ) 243 ( -- int32 ) 1 ( -- float128 ) 81 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 244 ( -- int32 ) 3 ( -- float128 ) 81 ( -- float128 ) log ( float128, float128 -- float128 ) 4 ( -- float128 ) call test ( int32, float128, float128 ) 245 ( -- int32 ) 0 ( -- float128 ) 81 ( -- float128 ) log ( float128, float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 246 ( -- int32 ) -0.3333333333333333333424 ( -- float128 ) 81 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 247 ( -- int32 ) -1 ( -- float128 ) 81 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 248 ( -- int32 ) -3 ( -- float128 ) 81 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 249 ( -- int32 ) 0 ( -- float128 ) 0.01234567901234567901227 ( -- float128 ) log ( float128, float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 250 ( -- int32 ) 0.3333333333333333333424 ( -- float128 ) 0.01234567901234567901227 ( -- float128 ) log ( float128, float128 -- float128 ) 4 ( -- float128 ) call test ( int32, float128, float128 ) 251 ( -- int32 ) 1 ( -- float128 ) 0.01234567901234567901227 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 252 ( -- int32 ) 3 ( -- float128 ) 0.01234567901234567901227 ( -- float128 ) log ( float128, float128 -- float128 ) -4 ( -- float128 ) call test ( int32, float128, float128 ) 253 ( -- int32 ) 0 ( -- float128 ) 0.01234567901234567901227 ( -- float128 ) log ( float128, float128 -- float128 ) 0 ( -- float128 ) call test ( int32, float128, float128 ) 254 ( -- int32 ) -0.3333333333333333333424 ( -- float128 ) 0.01234567901234567901227 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 255 ( -- int32 ) -1 ( -- float128 ) 0.01234567901234567901227 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 256 ( -- int32 ) -3 ( -- float128 ) 0.01234567901234567901227 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 257 ( -- int32 ) 0 ( -- float128 ) 0 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 258 ( -- int32 ) -1.000000000000000019992e-100 ( -- float128 ) 0 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 259 ( -- int32 ) 77 ( -- float128 ) -1 ( -- float128 ) log ( float128, float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 260 ( -- int32 ) 0.1000000000000000055511 ( -- float128 ) 0 ( -- float128 ) log ( float128, float128 -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 261 ( -- int32 ) 0.9000000000000000222045 ( -- float128 ) 0 ( -- float128 ) log ( float128, float128 -- float128 ) inf ( -- float128 ) call test ( int32, float128, float128 ) 265 ( -- int32 ) 1.5 ( -- float128 ) 2 ( -- int32 ) pow ( float128, int32 -- float128 ) 2.25 ( -- float128 ) call test ( int32, float128, float128 ) 266 ( -- int32 ) 5 ( -- float128 ) 4 ( -- int32 ) pow ( float128, int32 -- float128 ) 625 ( -- float128 ) call test ( int32, float128, float128 ) 267 ( -- int32 ) 2 ( -- float128 ) 16 ( -- int32 ) pow ( float128, int32 -- float128 ) 65536 ( -- float128 ) call test ( int32, float128, float128 ) 268 ( -- int32 ) -1.5 ( -- float128 ) 2 ( -- int32 ) pow ( float128, int32 -- float128 ) 2.25 ( -- float128 ) call test ( int32, float128, float128 ) 269 ( -- int32 ) 10 ( -- float128 ) -2 ( -- int32 ) pow ( float128, int32 -- float128 ) 0.01000000000000000020817 ( -- float128 ) call test ( int32, float128, float128 ) 272 ( -- int32 ) 9 ( -- float128 ) sqrt ( float128 -- float128 ) 3 ( -- float128 ) call test ( int32, float128, float128 ) 273 ( -- int32 ) -9 ( -- float128 ) sqrt ( float128 -- float128 ) nan ( -- float128 ) call test ( int32, float128, float128 ) 275 ( -- int32 ) lvar-48+84 "stacktest" ( -- float128& ) peek ( float128& -- float128 ) -1.937436500000000131922e+27 ( -- float128 ) call test ( int32, float128, float128 ) drop ( float128 -- ) drop ( float128 -- ) drop ( float128 -- ) drop ( float128 -- ) drop ( float128 -- ) drop ( float128 -- ) } void test_numeric_functions ( float32 ) { var float32 ANON var float32 a var float32 b var float32 stacktest var float32 c var float32 d "\nnumeric functions(float" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) 32 ( -- uint32 ) numstr ( uint32 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "):\n" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) print ( utf8str ) 0 ( -- float32 ) 0 ( -- float32 ) -1.9374365e+27 ( -- float32 ) 0 ( -- float32 ) 0 ( -- float32 ) 21 ( -- int32 ) 3.1415926535898 ( -- float64 ) 3.1415926535898 ( -- float64 ) call test ( int32, float64, float64 ) 22 ( -- int32 ) 2.718281828459 ( -- float64 ) 2.718281828459 ( -- float64 ) call test ( int32, float64, float64 ) 23 ( -- int32 ) inf ( -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 24 ( -- int32 ) inf ( -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 25 ( -- int32 ) -inf ( -- float32 ) -inf ( -- float32 ) call test ( int32, float32, float32 ) 26 ( -- int32 ) nan ( -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 27 ( -- int32 ) nan ( -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 28 ( -- int32 ) nan ( -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 29 ( -- int32 ) nan ( -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 30 ( -- int32 ) nan ( -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 31 ( -- int32 ) nan ( -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 32 ( -- int32 ) inf ( -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 33 ( -- int32 ) -inf ( -- float32 ) -inf ( -- float32 ) call test ( int32, float32, float32 ) 34 ( -- int32 ) 0 ( -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 35 ( -- int32 ) -0 ( -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 39 ( -- int32 ) 3434.1 ( -- float32 ) sign ( float32 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 40 ( -- int32 ) 0.001 ( -- float32 ) sign ( float32 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 41 ( -- int32 ) 0 ( -- float32 ) sign ( float32 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 42 ( -- int32 ) -0.001 ( -- float32 ) sign ( float32 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 43 ( -- int32 ) -9843.11 ( -- float32 ) sign ( float32 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 44 ( -- int32 ) -inf ( -- float32 ) sign ( float32 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 45 ( -- int32 ) inf ( -- float32 ) sign ( float32 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 46 ( -- int32 ) nan ( -- float32 ) sign ( float32 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 47 ( -- int32 ) nan ( -- float32 ) sign ( float32 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 52 ( -- int32 ) 124.4 ( -- float32 ) abs ( float32 -- float32 ) cast ( float32 -- float64 ) 124.4 ( -- float64 ) call test ( int32, float64, float64 ) 53 ( -- int32 ) 0.043 ( -- float32 ) abs ( float32 -- float32 ) cast ( float32 -- float64 ) 0.043 ( -- float64 ) call test ( int32, float64, float64 ) 54 ( -- int32 ) 0 ( -- float32 ) abs ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 55 ( -- int32 ) -17.3 ( -- float32 ) abs ( float32 -- float32 ) cast ( float32 -- float64 ) 17.3 ( -- float64 ) call test ( int32, float64, float64 ) 56 ( -- int32 ) -0.043 ( -- float32 ) abs ( float32 -- float32 ) cast ( float32 -- float64 ) 0.043 ( -- float64 ) call test ( int32, float64, float64 ) 57 ( -- int32 ) -inf ( -- float32 ) abs ( float32 -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 58 ( -- int32 ) inf ( -- float32 ) abs ( float32 -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 59 ( -- int32 ) nan ( -- float32 ) abs ( float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 64 ( -- int32 ) 7.1 ( -- float32 ) round ( float32 -- float32 ) cast ( float32 -- float64 ) 7 ( -- float64 ) call test ( int32, float64, float64 ) 65 ( -- int32 ) 8.5 ( -- float32 ) round ( float32 -- float32 ) cast ( float32 -- float64 ) 9 ( -- float64 ) call test ( int32, float64, float64 ) 66 ( -- int32 ) -8.499 ( -- float32 ) round ( float32 -- float32 ) cast ( float32 -- float64 ) -8 ( -- float64 ) call test ( int32, float64, float64 ) 67 ( -- int32 ) -8.5 ( -- float32 ) round ( float32 -- float32 ) cast ( float32 -- float64 ) -9 ( -- float64 ) call test ( int32, float64, float64 ) 68 ( -- int32 ) 0.1 ( -- float32 ) round ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 69 ( -- int32 ) 0 ( -- float32 ) round ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 70 ( -- int32 ) -0.1 ( -- float32 ) round ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 71 ( -- int32 ) 0.51 ( -- float32 ) round ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 72 ( -- int32 ) -0.51 ( -- float32 ) round ( float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 76 ( -- int32 ) 3 ( -- float32 ) floor ( float32 -- float32 ) cast ( float32 -- float64 ) 3 ( -- float64 ) call test ( int32, float64, float64 ) 77 ( -- int32 ) 3.99 ( -- float32 ) floor ( float32 -- float32 ) cast ( float32 -- float64 ) 3 ( -- float64 ) call test ( int32, float64, float64 ) 78 ( -- int32 ) -3 ( -- float32 ) floor ( float32 -- float32 ) cast ( float32 -- float64 ) -3 ( -- float64 ) call test ( int32, float64, float64 ) 79 ( -- int32 ) -3.0001 ( -- float32 ) floor ( float32 -- float32 ) cast ( float32 -- float64 ) -4 ( -- float64 ) call test ( int32, float64, float64 ) 80 ( -- int32 ) 0 ( -- float32 ) floor ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 83 ( -- int32 ) 3 ( -- float32 ) ceil ( float32 -- float32 ) cast ( float32 -- float64 ) 3 ( -- float64 ) call test ( int32, float64, float64 ) 84 ( -- int32 ) 3.01 ( -- float32 ) ceil ( float32 -- float32 ) cast ( float32 -- float64 ) 4 ( -- float64 ) call test ( int32, float64, float64 ) 85 ( -- int32 ) -3 ( -- float32 ) ceil ( float32 -- float32 ) cast ( float32 -- float64 ) -3 ( -- float64 ) call test ( int32, float64, float64 ) 86 ( -- int32 ) -3.9999 ( -- float32 ) ceil ( float32 -- float32 ) cast ( float32 -- float64 ) -3 ( -- float64 ) call test ( int32, float64, float64 ) 87 ( -- int32 ) 0 ( -- float32 ) ceil ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 90 ( -- int32 ) 99.9 ( -- float32 ) integ ( float32 -- float32 ) cast ( float32 -- float64 ) 99 ( -- float64 ) call test ( int32, float64, float64 ) 91 ( -- int32 ) -99.9 ( -- float32 ) integ ( float32 -- float32 ) cast ( float32 -- float64 ) -99 ( -- float64 ) call test ( int32, float64, float64 ) 94 ( -- int32 ) 99.9 ( -- float32 ) fract ( float32 -- float32 ) cast ( float32 -- float64 ) 0.9 ( -- float64 ) call test ( int32, float64, float64 ) 95 ( -- int32 ) -99.9 ( -- float32 ) fract ( float32 -- float32 ) cast ( float32 -- float64 ) -0.9 ( -- float64 ) call test ( int32, float64, float64 ) 99 ( -- int32 ) 2 ( -- float32 ) 5 ( -- float32 ) min ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 2 ( -- float64 ) call test ( int32, float64, float64 ) 100 ( -- int32 ) 2.22 ( -- float32 ) 5 ( -- float32 ) -55 ( -- float32 ) 0 ( -- float32 ) 17 ( -- float32 ) 20 ( -- uint32 ) alloc ( uint32 -- float32[5] ) dup2r ( float32[5] -- float32[5]¢ ) forallitems ( float32[5]¢ -- float32& ) -> L1127 L1126: poke ( float32, float32& -- ) L1127: ForAllEnd .. L1126 fromr ( -- float32[5] ) dup2r ( float32[] -- float32[]¢ ) min ( float32[]¢ -- float32 ) fromr ( -- float32[] ) dispose ( float32[] -- ) cast ( float32 -- float64 ) -55 ( -- float64 ) call test ( int32, float64, float64 ) 101 ( -- int32 ) 5 ( -- float32 ) 4 ( -- uint32 ) alloc ( uint32 -- float32[1] ) dup2r ( float32[1] -- float32[1]¢ ) forallitems ( float32[1]¢ -- float32& ) -> L1129 L1128: poke ( float32, float32& -- ) L1129: ForAllEnd .. L1128 fromr ( -- float32[1] ) dup2r ( float32[] -- float32[]¢ ) min ( float32[]¢ -- float32 ) fromr ( -- float32[] ) dispose ( float32[] -- ) cast ( float32 -- float64 ) 5 ( -- float64 ) call test ( int32, float64, float64 ) 105 ( -- int32 ) 2 ( -- float32 ) 5 ( -- float32 ) max ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 5 ( -- float64 ) call test ( int32, float64, float64 ) 106 ( -- int32 ) 2 ( -- float32 ) 5 ( -- float32 ) -55 ( -- float32 ) 17 ( -- float32 ) 0 ( -- float32 ) 20 ( -- uint32 ) alloc ( uint32 -- float32[5] ) dup2r ( float32[5] -- float32[5]¢ ) forallitems ( float32[5]¢ -- float32& ) -> L1131 L1130: poke ( float32, float32& -- ) L1131: ForAllEnd .. L1130 fromr ( -- float32[5] ) dup2r ( float32[] -- float32[]¢ ) max ( float32[]¢ -- float32 ) fromr ( -- float32[] ) dispose ( float32[] -- ) cast ( float32 -- float64 ) 17 ( -- float64 ) call test ( int32, float64, float64 ) 107 ( -- int32 ) 5 ( -- float32 ) 4 ( -- uint32 ) alloc ( uint32 -- float32[1] ) dup2r ( float32[1] -- float32[1]¢ ) forallitems ( float32[1]¢ -- float32& ) -> L1133 L1132: poke ( float32, float32& -- ) L1133: ForAllEnd .. L1132 fromr ( -- float32[1] ) dup2r ( float32[] -- float32[]¢ ) max ( float32[]¢ -- float32 ) fromr ( -- float32[] ) dispose ( float32[] -- ) cast ( float32 -- float64 ) 5 ( -- float64 ) call test ( int32, float64, float64 ) 44 ( -- float32 ) lvar-4+24 "a" ( -- float32& ) poke ( float32, float32& -- ) 55 ( -- float32 ) lvar-8+24 "b" ( -- float32& ) poke ( float32, float32& -- ) 66 ( -- float32 ) lvar-16+24 "c" ( -- float32& ) poke ( float32, float32& -- ) 108 ( -- int32 ) lvar-4+24 "a" ( -- float32& ) peek ( float32& -- float32 ) lvar-8+28 "b" ( -- float32& ) peek ( float32& -- float32 ) lvar-16+32 "c" ( -- float32& ) peek ( float32& -- float32 ) max ( float32, float32, float32 -- float32 ) cast ( float32 -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 109 ( -- int32 ) lvar-4+24 "a" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 44 ( -- float64 ) call test ( int32, float64, float64 ) 110 ( -- int32 ) lvar-8+24 "b" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 55 ( -- float64 ) call test ( int32, float64, float64 ) 111 ( -- int32 ) lvar-16+24 "c" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 44 ( -- float32 ) lvar-4+24 "a" ( -- float32& ) poke ( float32, float32& -- ) 55 ( -- float32 ) lvar-8+24 "b" ( -- float32& ) poke ( float32, float32& -- ) 66 ( -- float32 ) lvar-16+24 "c" ( -- float32& ) poke ( float32, float32& -- ) 112 ( -- int32 ) lvar-16+24 "c" ( -- float32& ) peek ( float32& -- float32 ) lvar-8+28 "b" ( -- float32& ) peek ( float32& -- float32 ) lvar-4+32 "a" ( -- float32& ) peek ( float32& -- float32 ) max ( float32, float32, float32 -- float32 ) cast ( float32 -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 113 ( -- int32 ) lvar-4+24 "a" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 44 ( -- float64 ) call test ( int32, float64, float64 ) 114 ( -- int32 ) lvar-8+24 "b" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 55 ( -- float64 ) call test ( int32, float64, float64 ) 115 ( -- int32 ) lvar-16+24 "c" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 99 ( -- float32 ) lvar-20+24 "d" ( -- float32& ) poke ( float32, float32& -- ) lvar-16+20 "c" ( -- float32& ) peek ( float32& -- float32 ) lvar-8+24 "b" ( -- float32& ) peek ( float32& -- float32 ) lvar-4+28 "a" ( -- float32& ) peek ( float32& -- float32 ) max ( float32, float32, float32 -- float32 ) lvar-20+24 "d" ( -- float32& ) poke ( float32, float32& -- ) 116 ( -- int32 ) lvar-20+24 "d" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 117 ( -- int32 ) lvar-4+24 "a" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 44 ( -- float64 ) call test ( int32, float64, float64 ) 118 ( -- int32 ) lvar-8+24 "b" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 55 ( -- float64 ) call test ( int32, float64, float64 ) 119 ( -- int32 ) lvar-16+24 "c" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 120 ( -- int32 ) lvar-20+24 "d" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 66 ( -- float64 ) call test ( int32, float64, float64 ) 126.5432 ( -- float32 ) lvar-8+24 "b" ( -- float32& ) poke ( float32, float32& -- ) 129 ( -- int32 ) 0 ( -- float32 ) sin ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 130 ( -- int32 ) 3.1415926535898 ( -- float32 ) sin ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 131 ( -- int32 ) 1.5707963267949 ( -- float32 ) sin ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 132 ( -- int32 ) 4.7123889803847 ( -- float32 ) sin ( float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 133 ( -- int32 ) 6.2831853071796 ( -- float32 ) sin ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 134 ( -- int32 ) -1.5707963267949 ( -- float32 ) sin ( float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 135 ( -- int32 ) 0.5235987755983 ( -- float32 ) sin ( float32 -- float32 ) cast ( float32 -- float64 ) 0.5 ( -- float64 ) call test ( int32, float64, float64 ) 136 ( -- int32 ) lvar-8+24 "b" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) 126.5432 ( -- float64 ) call test ( int32, float64, float64 ) 139 ( -- int32 ) 0 ( -- float32 ) cos ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 140 ( -- int32 ) 1.5707963267949 ( -- float32 ) cos ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 141 ( -- int32 ) -1.5707963267949 ( -- float32 ) cos ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 142 ( -- int32 ) 3.1415926535898 ( -- float32 ) cos ( float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 143 ( -- int32 ) -3.1415926535898 ( -- float32 ) cos ( float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 146 ( -- int32 ) 0 ( -- float32 ) tan ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 147 ( -- int32 ) 0.78539816339745 ( -- float32 ) tan ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 148 ( -- int32 ) -0.78539816339745 ( -- float32 ) tan ( float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 149 ( -- int32 ) 3.9269908169872 ( -- float32 ) tan ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 150 ( -- int32 ) -3.9269908169872 ( -- float32 ) tan ( float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 153 ( -- int32 ) 0 ( -- float32 ) asin ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 154 ( -- int32 ) 1 ( -- float32 ) asin ( float32 -- float32 ) 1.5707963267949 ( -- float32 ) call test ( int32, float32, float32 ) 157 ( -- int32 ) -1 ( -- float32 ) acos ( float32 -- float32 ) 3.1415926535898 ( -- float32 ) call test ( int32, float32, float32 ) 158 ( -- int32 ) 0 ( -- float32 ) acos ( float32 -- float32 ) 1.5707963267949 ( -- float32 ) call test ( int32, float32, float32 ) 161 ( -- int32 ) 0 ( -- float32 ) atan ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 162 ( -- int32 ) 1 ( -- float32 ) atan ( float32 -- float32 ) 0.78539816339745 ( -- float32 ) call test ( int32, float32, float32 ) 163 ( -- int32 ) -1 ( -- float32 ) atan ( float32 -- float32 ) -0.78539816339745 ( -- float32 ) call test ( int32, float32, float32 ) 166 ( -- int32 ) 0 ( -- float32 ) sinh ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 169 ( -- int32 ) 0 ( -- float32 ) cosh ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 172 ( -- int32 ) 0 ( -- float32 ) tanh ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 175 ( -- int32 ) 0 ( -- float32 ) exp10 ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 176 ( -- int32 ) 1 ( -- float32 ) exp10 ( float32 -- float32 ) cast ( float32 -- float64 ) 10 ( -- float64 ) call test ( int32, float64, float64 ) 177 ( -- int32 ) 10.1 ( -- float32 ) exp10 ( float32 -- float32 ) cast ( float32 -- float64 ) 12589254117.942 ( -- float64 ) call test ( int32, float64, float64 ) 178 ( -- int32 ) -10.1 ( -- float32 ) exp10 ( float32 -- float32 ) cast ( float32 -- float64 ) 7.9432823472428e-11 ( -- float64 ) call test ( int32, float64, float64 ) 179 ( -- int32 ) -7777777777.7 ( -- float32 ) exp10 ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 180 ( -- int32 ) 7777777777.7 ( -- float32 ) exp10 ( float32 -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 183 ( -- int32 ) 0 ( -- float32 ) exp2 ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 184 ( -- int32 ) 1 ( -- float32 ) exp2 ( float32 -- float32 ) cast ( float32 -- float64 ) 2 ( -- float64 ) call test ( int32, float64, float64 ) 185 ( -- int32 ) 10.1 ( -- float32 ) exp2 ( float32 -- float32 ) cast ( float32 -- float64 ) 1097.4960256372 ( -- float64 ) call test ( int32, float64, float64 ) 186 ( -- int32 ) -10.1 ( -- float32 ) exp2 ( float32 -- float32 ) cast ( float32 -- float64 ) 0.00091116503079766 ( -- float64 ) call test ( int32, float64, float64 ) 187 ( -- int32 ) -7777777777.7 ( -- float32 ) exp2 ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 188 ( -- int32 ) 7777777777.7 ( -- float32 ) exp2 ( float32 -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 191 ( -- int32 ) 0 ( -- float32 ) expe ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 192 ( -- int32 ) 1 ( -- float32 ) expe ( float32 -- float32 ) 2.718281828459 ( -- float32 ) call test ( int32, float32, float32 ) 193 ( -- int32 ) 10.1 ( -- float32 ) expe ( float32 -- float32 ) cast ( float32 -- float64 ) 24343.009424408 ( -- float64 ) call test ( int32, float64, float64 ) 194 ( -- int32 ) -10.1 ( -- float32 ) expe ( float32 -- float32 ) cast ( float32 -- float64 ) 4.1079555225301e-05 ( -- float64 ) call test ( int32, float64, float64 ) 195 ( -- int32 ) -7777777777.7 ( -- float32 ) expe ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 196 ( -- int32 ) 7777777777.7 ( -- float32 ) expe ( float32 -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 200 ( -- int32 ) 0 ( -- float32 ) 77.77 ( -- float32 ) exp ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 201 ( -- int32 ) 0 ( -- float32 ) 7.7e+21 ( -- float32 ) exp ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 202 ( -- int32 ) 0 ( -- float32 ) 7.7e-19 ( -- float32 ) exp ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 203 ( -- int32 ) 0 ( -- float32 ) -77.77 ( -- float32 ) exp ( float32, float32 -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 204 ( -- int32 ) 0 ( -- float32 ) -7.7e+21 ( -- float32 ) exp ( float32, float32 -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 205 ( -- int32 ) 0 ( -- float32 ) -7.7e-19 ( -- float32 ) exp ( float32, float32 -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 206 ( -- int32 ) 7.7e-19 ( -- float32 ) 0 ( -- float32 ) exp ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 207 ( -- int32 ) 77 ( -- float32 ) 0 ( -- float32 ) exp ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 208 ( -- int32 ) 7.7e+21 ( -- float32 ) 0 ( -- float32 ) exp ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 209 ( -- int32 ) 0 ( -- float32 ) 0 ( -- float32 ) exp ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 213 ( -- int32 ) 10 ( -- float32 ) log10 ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 214 ( -- int32 ) 1 ( -- float32 ) log10 ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 215 ( -- int32 ) 0.1 ( -- float32 ) log10 ( float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 216 ( -- int32 ) 0 ( -- float32 ) log10 ( float32 -- float32 ) -inf ( -- float32 ) call test ( int32, float32, float32 ) 217 ( -- int32 ) -1 ( -- float32 ) log10 ( float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 220 ( -- int32 ) 8 ( -- float32 ) log2 ( float32 -- float32 ) cast ( float32 -- float64 ) 3 ( -- float64 ) call test ( int32, float64, float64 ) 221 ( -- int32 ) 1 ( -- float32 ) log2 ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 222 ( -- int32 ) 0.5 ( -- float32 ) log2 ( float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 223 ( -- int32 ) 0 ( -- float32 ) log2 ( float32 -- float32 ) -inf ( -- float32 ) call test ( int32, float32, float32 ) 224 ( -- int32 ) -1 ( -- float32 ) log2 ( float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 227 ( -- int32 ) 2.718281828459 ( -- float32 ) loge ( float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 228 ( -- int32 ) 1 ( -- float32 ) loge ( float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 229 ( -- int32 ) 0.36787944117144 ( -- float32 ) loge ( float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 230 ( -- int32 ) 0 ( -- float32 ) loge ( float32 -- float32 ) -inf ( -- float32 ) call test ( int32, float32, float32 ) 231 ( -- int32 ) -1 ( -- float32 ) loge ( float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 235 ( -- int32 ) 8 ( -- float32 ) 8 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 1 ( -- float64 ) call test ( int32, float64, float64 ) 236 ( -- int32 ) 7 ( -- float32 ) 1 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 237 ( -- int32 ) 5 ( -- float32 ) 0.2 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) -1 ( -- float64 ) call test ( int32, float64, float64 ) 238 ( -- int32 ) 3 ( -- float32 ) 0 ( -- float32 ) log ( float32, float32 -- float32 ) -inf ( -- float32 ) call test ( int32, float32, float32 ) 239 ( -- int32 ) 1 ( -- float32 ) 1 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 240 ( -- int32 ) 1 ( -- float32 ) 0 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 241 ( -- int32 ) 0 ( -- float32 ) 81 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 242 ( -- int32 ) 0.33333333333333 ( -- float32 ) 81 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) -4 ( -- float64 ) call test ( int32, float64, float64 ) 243 ( -- int32 ) 1 ( -- float32 ) 81 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 244 ( -- int32 ) 3 ( -- float32 ) 81 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 4 ( -- float64 ) call test ( int32, float64, float64 ) 245 ( -- int32 ) 0 ( -- float32 ) 81 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 246 ( -- int32 ) -0.33333333333333 ( -- float32 ) 81 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 247 ( -- int32 ) -1 ( -- float32 ) 81 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 248 ( -- int32 ) -3 ( -- float32 ) 81 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 249 ( -- int32 ) 0 ( -- float32 ) 0.012345679012346 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 250 ( -- int32 ) 0.33333333333333 ( -- float32 ) 0.012345679012346 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 4 ( -- float64 ) call test ( int32, float64, float64 ) 251 ( -- int32 ) 1 ( -- float32 ) 0.012345679012346 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 252 ( -- int32 ) 3 ( -- float32 ) 0.012345679012346 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) -4 ( -- float64 ) call test ( int32, float64, float64 ) 253 ( -- int32 ) 0 ( -- float32 ) 0.012345679012346 ( -- float32 ) log ( float32, float32 -- float32 ) cast ( float32 -- float64 ) 0 ( -- float64 ) call test ( int32, float64, float64 ) 254 ( -- int32 ) -0.33333333333333 ( -- float32 ) 0.012345679012346 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 255 ( -- int32 ) -1 ( -- float32 ) 0.012345679012346 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 256 ( -- int32 ) -3 ( -- float32 ) 0.012345679012346 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 257 ( -- int32 ) 0 ( -- float32 ) 0 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 258 ( -- int32 ) -1e-100 ( -- float32 ) 0 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 259 ( -- int32 ) 77 ( -- float32 ) -1 ( -- float32 ) log ( float32, float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 260 ( -- int32 ) 0.1 ( -- float32 ) 0 ( -- float32 ) log ( float32, float32 -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 261 ( -- int32 ) 0.9 ( -- float32 ) 0 ( -- float32 ) log ( float32, float32 -- float32 ) inf ( -- float32 ) call test ( int32, float32, float32 ) 265 ( -- int32 ) 1.5 ( -- float32 ) 2 ( -- int32 ) pow ( float32, int32 -- float32 ) cast ( float32 -- float64 ) 2.25 ( -- float64 ) call test ( int32, float64, float64 ) 266 ( -- int32 ) 5 ( -- float32 ) 4 ( -- int32 ) pow ( float32, int32 -- float32 ) cast ( float32 -- float64 ) 625 ( -- float64 ) call test ( int32, float64, float64 ) 267 ( -- int32 ) 2 ( -- float32 ) 16 ( -- int32 ) pow ( float32, int32 -- float32 ) cast ( float32 -- float64 ) 65536 ( -- float64 ) call test ( int32, float64, float64 ) 268 ( -- int32 ) -1.5 ( -- float32 ) 2 ( -- int32 ) pow ( float32, int32 -- float32 ) cast ( float32 -- float64 ) 2.25 ( -- float64 ) call test ( int32, float64, float64 ) 269 ( -- int32 ) 10 ( -- float32 ) -2 ( -- int32 ) pow ( float32, int32 -- float32 ) cast ( float32 -- float64 ) 0.01 ( -- float64 ) call test ( int32, float64, float64 ) 272 ( -- int32 ) 9 ( -- float32 ) sqrt ( float32 -- float32 ) cast ( float32 -- float64 ) 3 ( -- float64 ) call test ( int32, float64, float64 ) 273 ( -- int32 ) -9 ( -- float32 ) sqrt ( float32 -- float32 ) nan ( -- float32 ) call test ( int32, float32, float32 ) 275 ( -- int32 ) lvar-12+24 "stacktest" ( -- float32& ) peek ( float32& -- float32 ) cast ( float32 -- float64 ) -1.9374365e+27 ( -- float64 ) call test ( int32, float64, float64 ) drop ( float32 -- ) drop ( float32 -- ) drop ( float32 -- ) drop ( float32 -- ) drop ( float32 -- ) drop ( float32 -- ) } void test_numeric_functions ( int32 ) { var int32 ANON var int32 a var int32 b var int32 stacktest var int32 c var int32 d local scope ANON var uint8 a var uint8 b local scope ANON var uint16 a var uint16 b local scope ANON var uint32 a var uint32 b local scope ANON var uint64 a var uint64 b uint32 achterbahn ( uint16 x ) var uint32 n uint32 achterbahn ( uint32 x ) var uint32 n uint32 achterbahn ( uint64 x ) var uint32 n uint32 ackermann ( uint32 x, uint32 y ) uint16 ackermann ( uint16 x, uint16 y ) uint32[][] hanoi ( uint32 von, uint32 nach, uint32 höhe ) var int32 z void test ( int32 line, uint32[][]¢ a, uint32[][]¢ b ) var uint32 i "\nnumeric functions(int):\n" ( -- utf8str¢ ) print ( utf8str¢ ) 0 ( -- int32 ) 0 ( -- int32 ) -19374 ( -- int32 ) 0 ( -- int32 ) 0 ( -- int32 ) 19 ( -- int32 ) 0 ( -- int64 ) sign ( int64 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 20 ( -- int32 ) 0 ( -- int32 ) sign ( int32 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 21 ( -- int32 ) 1 ( -- int64 ) sign ( int64 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 22 ( -- int32 ) 128 ( -- int64 ) sign ( int64 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 23 ( -- int32 ) -1 ( -- int32 ) sign ( int32 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 24 ( -- int32 ) -128 ( -- int32 ) sign ( int32 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 25 ( -- int32 ) 32768 ( -- int32 ) sign ( int32 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 26 ( -- int32 ) 2147483648 ( -- int64 ) sign ( int64 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 27 ( -- int32 ) -9223372036854775808 ( -- int64 ) sign ( int64 -- int32 ) -1 ( -- int32 ) call test ( int32, int32, int32 ) 30 ( -- int32 ) 0 ( -- int64 ) abs ( int64 -- uint64 ) 0 ( -- uint64 ) call test ( int32, uint64, uint64 ) 31 ( -- int32 ) 1 ( -- int64 ) abs ( int64 -- uint64 ) 1 ( -- uint64 ) call test ( int32, uint64, uint64 ) 32 ( -- int32 ) -1 ( -- int32 ) abs ( int32 -- uint32 ) 1 ( -- uint32 ) call test ( int32, uint32, uint32 ) 33 ( -- int32 ) 128 ( -- int64 ) abs ( int64 -- uint64 ) 128 ( -- uint64 ) call test ( int32, uint64, uint64 ) 34 ( -- int32 ) -128 ( -- int32 ) abs ( int32 -- uint32 ) 128 ( -- uint32 ) call test ( int32, uint32, uint32 ) 35 ( -- int32 ) 256 ( -- int64 ) abs ( int64 -- uint64 ) 256 ( -- uint64 ) call test ( int32, uint64, uint64 ) 36 ( -- int32 ) 32768 ( -- int32 ) abs ( int32 -- uint32 ) 32768 ( -- uint32 ) call test ( int32, uint32, uint32 ) 37 ( -- int32 ) -32767 ( -- int16 ) abs ( int16 -- uint16 ) 32767 ( -- uint16 ) call test ( int32, uint16, uint16 ) 38 ( -- int32 ) 1234567890 ( -- int64 ) abs ( int64 -- uint64 ) 1234567890 ( -- uint64 ) call test ( int32, uint64, uint64 ) 39 ( -- int32 ) -1234567890 ( -- int32 ) abs ( int32 -- uint32 ) 1234567890 ( -- uint32 ) call test ( int32, uint32, uint32 ) 40 ( -- int32 ) -1234567890123 ( -- int64 ) abs ( int64 -- uint64 ) 1234567890123 ( -- uint64 ) call test ( int32, uint64, uint64 ) 43 ( -- int32 ) 123 ( -- int32 ) 234 ( -- int32 ) min ( int32, int32 -- int32 ) 123 ( -- int32 ) call test ( int32, int32, int32 ) 44 ( -- int32 ) -123 ( -- int32 ) -234 ( -- int32 ) min ( int32, int32 -- int32 ) -234 ( -- int32 ) call test ( int32, int32, int32 ) 45 ( -- int32 ) 123 ( -- uint32 ) 234 ( -- uint32 ) min ( uint32, uint32 -- uint32 ) 123 ( -- uint32 ) call test ( int32, uint32, uint32 ) 46 ( -- int32 ) 123 ( -- int32 ) -234 ( -- int32 ) min ( int32, int32 -- int32 ) -234 ( -- int32 ) call test ( int32, int32, int32 ) 47 ( -- int32 ) 4711 ( -- float64 ) 123 ( -- float64 ) -234 ( -- float64 ) min ( float64, float64, float64 -- float64 ) -234 ( -- float64 ) call test ( int32, float64, float64 ) 48 ( -- int32 ) 123 ( -- float64 ) -234 ( -- float64 ) 4711 ( -- float64 ) min ( float64, float64, float64 -- float64 ) -234 ( -- float64 ) call test ( int32, float64, float64 ) 49 ( -- int32 ) 123456789 ( -- int32 ) 234567890 ( -- int32 ) min ( int32, int32 -- int32 ) 123456789 ( -- int32 ) call test ( int32, int32, int32 ) 50 ( -- int32 ) 123456789 ( -- int32 ) -234567890 ( -- int32 ) min ( int32, int32 -- int32 ) -234567890 ( -- int32 ) call test ( int32, int32, int32 ) 51 ( -- int32 ) -234567890 ( -- int32 ) 123456789 ( -- int32 ) min ( int32, int32 -- int32 ) -234567890 ( -- int32 ) call test ( int32, int32, int32 ) 52 ( -- int32 ) 123456789 ( -- uint32 ) 234567890 ( -- uint32 ) min ( uint32, uint32 -- uint32 ) 123456789 ( -- uint32 ) call test ( int32, uint32, uint32 ) 53 ( -- int32 ) -234567890123 ( -- int64 ) 123456789123 ( -- int64 ) min ( int64, int64 -- int64 ) -234567890123 ( -- int64 ) call test ( int32, int64, int64 ) 54 ( -- int32 ) 123456789123 ( -- uint64 ) 234567890123 ( -- uint64 ) min ( uint64, uint64 -- uint64 ) 123456789123 ( -- uint64 ) call test ( int32, uint64, uint64 ) 55 ( -- int32 ) 5 ( -- uint8 ) 2 ( -- uint8 ) 8 ( -- uint8 ) 123 ( -- uint8 ) 2 ( -- uint8 ) 77 ( -- uint8 ) 6 ( -- uint32 ) alloc ( uint32 -- uint8[6] ) dup2r ( uint8[6] -- uint8[6]¢ ) forallitems ( uint8[6]¢ -- uint8& ) -> L993 L992: poke ( uint8, uint8& -- ) L993: ForAllEnd .. L992 fromr ( -- uint8[6] ) dup2r ( uint8[] -- uint8[]¢ ) cast ( uint8[]¢ -- uint8[to] ) min ( uint8[to] -- uint8 ) fromr ( -- uint8[] ) dispose ( uint8[] -- ) cast ( uint8 -- uint32 ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) 56 ( -- int32 ) 5 ( -- int8 ) 2 ( -- int8 ) -8 ( -- int8 ) 123 ( -- int8 ) 2 ( -- int8 ) 77 ( -- int8 ) 6 ( -- uint32 ) alloc ( uint32 -- int8[6] ) dup2r ( int8[6] -- int8[6]¢ ) forallitems ( int8[6]¢ -- int8& ) -> L995 L994: poke ( int8, int8& -- ) L995: ForAllEnd .. L994 fromr ( -- int8[6] ) dup2r ( int8[] -- int8[]¢ ) cast ( int8[]¢ -- int8[to] ) min ( int8[to] -- int8 ) fromr ( -- int8[] ) dispose ( int8[] -- ) cast ( int8 -- int32 ) -8 ( -- int32 ) call test ( int32, int32, int32 ) 57 ( -- int32 ) 5 ( -- uint16 ) 2 ( -- uint16 ) 8 ( -- uint16 ) 123 ( -- uint16 ) 2 ( -- uint16 ) 77 ( -- uint16 ) 12 ( -- uint32 ) alloc ( uint32 -- uint16[6] ) dup2r ( uint16[6] -- uint16[6]¢ ) forallitems ( uint16[6]¢ -- uint16& ) -> L997 L996: poke ( uint16, uint16& -- ) L997: ForAllEnd .. L996 fromr ( -- uint16[6] ) dup2r ( uint16[] -- uint16[]¢ ) cast ( uint16[]¢ -- uint16[to] ) min ( uint16[to] -- uint16 ) fromr ( -- uint16[] ) dispose ( uint16[] -- ) cast ( uint16 -- uint32 ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) 58 ( -- int32 ) 5 ( -- int16 ) 2 ( -- int16 ) -8 ( -- int16 ) 123 ( -- int16 ) 2 ( -- int16 ) 77 ( -- int16 ) 12 ( -- uint32 ) alloc ( uint32 -- int16[6] ) dup2r ( int16[6] -- int16[6]¢ ) forallitems ( int16[6]¢ -- int16& ) -> L999 L998: poke ( int16, int16& -- ) L999: ForAllEnd .. L998 fromr ( -- int16[6] ) dup2r ( int16[] -- int16[]¢ ) cast ( int16[]¢ -- int16[to] ) min ( int16[to] -- int16 ) fromr ( -- int16[] ) dispose ( int16[] -- ) cast ( int16 -- int32 ) -8 ( -- int32 ) call test ( int32, int32, int32 ) 59 ( -- int32 ) 5 ( -- uint32 ) 2 ( -- uint32 ) 8 ( -- uint32 ) 123 ( -- uint32 ) 2 ( -- uint32 ) 77 ( -- uint32 ) 24 ( -- uint32 ) alloc ( uint32 -- uint32[6] ) dup2r ( uint32[6] -- uint32[6]¢ ) forallitems ( uint32[6]¢ -- uint32& ) -> L1001 L1000: poke ( uint32, uint32& -- ) L1001: ForAllEnd .. L1000 fromr ( -- uint32[6] ) dup2r ( uint32[] -- uint32[]¢ ) cast ( uint32[]¢ -- uint32[to] ) min ( uint32[to] -- uint32 ) fromr ( -- uint32[] ) dispose ( uint32[] -- ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) 60 ( -- int32 ) 5 ( -- int32 ) 2 ( -- int32 ) -8 ( -- int32 ) 123 ( -- int32 ) 2 ( -- int32 ) 77 ( -- int32 ) 24 ( -- uint32 ) alloc ( uint32 -- int32[6] ) dup2r ( int32[6] -- int32[6]¢ ) forallitems ( int32[6]¢ -- int32& ) -> L1003 L1002: poke ( int32, int32& -- ) L1003: ForAllEnd .. L1002 fromr ( -- int32[6] ) dup2r ( int32[] -- int32[]¢ ) cast ( int32[]¢ -- int32[to] ) min ( int32[to] -- int32 ) fromr ( -- int32[] ) dispose ( int32[] -- ) -8 ( -- int32 ) call test ( int32, int32, int32 ) 61 ( -- int32 ) 5 ( -- uint64 ) 2 ( -- uint64 ) 8 ( -- uint64 ) 123 ( -- uint64 ) 2 ( -- uint64 ) 77 ( -- uint64 ) 48 ( -- uint32 ) alloc ( uint32 -- uint64[6] ) dup2r ( uint64[6] -- uint64[6]¢ ) forallitems ( uint64[6]¢ -- uint64& ) -> L1005 L1004: poke ( uint64, uint64& -- ) L1005: ForAllEnd .. L1004 fromr ( -- uint64[6] ) dup2r ( uint64[] -- uint64[]¢ ) cast ( uint64[]¢ -- uint64[to] ) min ( uint64[to] -- uint64 ) fromr ( -- uint64[] ) dispose ( uint64[] -- ) 2 ( -- uint64 ) call test ( int32, uint64, uint64 ) 62 ( -- int32 ) 5 ( -- int64 ) 2 ( -- int64 ) -8 ( -- int64 ) 123 ( -- int64 ) 2 ( -- int64 ) 77 ( -- int64 ) 48 ( -- uint32 ) alloc ( uint32 -- int64[6] ) dup2r ( int64[6] -- int64[6]¢ ) forallitems ( int64[6]¢ -- int64& ) -> L1007 L1006: poke ( int64, int64& -- ) L1007: ForAllEnd .. L1006 fromr ( -- int64[6] ) dup2r ( int64[] -- int64[]¢ ) cast ( int64[]¢ -- int64[to] ) min ( int64[to] -- int64 ) fromr ( -- int64[] ) dispose ( int64[] -- ) -8 ( -- int64 ) call test ( int32, int64, int64 ) 65 ( -- int32 ) 123 ( -- int32 ) 234 ( -- int32 ) max ( int32, int32 -- int32 ) 234 ( -- int32 ) call test ( int32, int32, int32 ) 66 ( -- int32 ) 123 ( -- uint32 ) 234 ( -- uint32 ) max ( uint32, uint32 -- uint32 ) 234 ( -- uint32 ) call test ( int32, uint32, uint32 ) 67 ( -- int32 ) 123 ( -- int32 ) -234 ( -- int32 ) max ( int32, int32 -- int32 ) 123 ( -- int32 ) call test ( int32, int32, int32 ) 68 ( -- int32 ) 123 ( -- float64 ) -234 ( -- float64 ) 4711 ( -- float64 ) max ( float64, float64, float64 -- float64 ) 4711 ( -- float64 ) call test ( int32, float64, float64 ) 69 ( -- int32 ) 4711 ( -- float64 ) 123 ( -- float64 ) -234 ( -- float64 ) max ( float64, float64, float64 -- float64 ) 4711 ( -- float64 ) call test ( int32, float64, float64 ) 70 ( -- int32 ) -123 ( -- int32 ) -234 ( -- int32 ) max ( int32, int32 -- int32 ) -123 ( -- int32 ) call test ( int32, int32, int32 ) 71 ( -- int32 ) 123456789 ( -- int32 ) 234567890 ( -- int32 ) max ( int32, int32 -- int32 ) 234567890 ( -- int32 ) call test ( int32, int32, int32 ) 72 ( -- int32 ) 123456789 ( -- int32 ) -234567890 ( -- int32 ) max ( int32, int32 -- int32 ) 123456789 ( -- int32 ) call test ( int32, int32, int32 ) 73 ( -- int32 ) -234567890 ( -- int32 ) 123456789 ( -- int32 ) max ( int32, int32 -- int32 ) 123456789 ( -- int32 ) call test ( int32, int32, int32 ) 74 ( -- int32 ) 123456789 ( -- uint32 ) 234567890 ( -- uint32 ) max ( uint32, uint32 -- uint32 ) 234567890 ( -- uint32 ) call test ( int32, uint32, uint32 ) 75 ( -- int32 ) -234567890123 ( -- int64 ) 123456789123 ( -- int64 ) max ( int64, int64 -- int64 ) 123456789123 ( -- int64 ) call test ( int32, int64, int64 ) 76 ( -- int32 ) 123456789123 ( -- uint64 ) 234567890123 ( -- uint64 ) max ( uint64, uint64 -- uint64 ) 234567890123 ( -- uint64 ) call test ( int32, uint64, uint64 ) 77 ( -- int32 ) 123456789123 ( -- float128 ) 18374654 ( -- float128 ) 234567890123 ( -- float128 ) max ( float128, float128, float128 -- float128 ) 234567890123 ( -- float128 ) call test ( int32, float128, float128 ) 78 ( -- int32 ) 5 ( -- uint8 ) 2 ( -- uint8 ) 8 ( -- uint8 ) 123 ( -- uint8 ) 2 ( -- uint8 ) 77 ( -- uint8 ) 6 ( -- uint32 ) alloc ( uint32 -- uint8[6] ) dup2r ( uint8[6] -- uint8[6]¢ ) forallitems ( uint8[6]¢ -- uint8& ) -> L1009 L1008: poke ( uint8, uint8& -- ) L1009: ForAllEnd .. L1008 fromr ( -- uint8[6] ) dup2r ( uint8[] -- uint8[]¢ ) cast ( uint8[]¢ -- uint8[to] ) max ( uint8[to] -- uint8 ) fromr ( -- uint8[] ) dispose ( uint8[] -- ) cast ( uint8 -- uint32 ) 123 ( -- uint32 ) call test ( int32, uint32, uint32 ) 79 ( -- int32 ) 5 ( -- int8 ) 2 ( -- int8 ) -8 ( -- int8 ) 123 ( -- int8 ) 2 ( -- int8 ) 77 ( -- int8 ) 6 ( -- uint32 ) alloc ( uint32 -- int8[6] ) dup2r ( int8[6] -- int8[6]¢ ) forallitems ( int8[6]¢ -- int8& ) -> L1011 L1010: poke ( int8, int8& -- ) L1011: ForAllEnd .. L1010 fromr ( -- int8[6] ) dup2r ( int8[] -- int8[]¢ ) cast ( int8[]¢ -- int8[to] ) max ( int8[to] -- int8 ) fromr ( -- int8[] ) dispose ( int8[] -- ) cast ( int8 -- int32 ) 123 ( -- int32 ) call test ( int32, int32, int32 ) 80 ( -- int32 ) 5 ( -- uint16 ) 2 ( -- uint16 ) 8 ( -- uint16 ) 123 ( -- uint16 ) 2 ( -- uint16 ) 77 ( -- uint16 ) 12 ( -- uint32 ) alloc ( uint32 -- uint16[6] ) dup2r ( uint16[6] -- uint16[6]¢ ) forallitems ( uint16[6]¢ -- uint16& ) -> L1013 L1012: poke ( uint16, uint16& -- ) L1013: ForAllEnd .. L1012 fromr ( -- uint16[6] ) dup2r ( uint16[] -- uint16[]¢ ) cast ( uint16[]¢ -- uint16[to] ) max ( uint16[to] -- uint16 ) fromr ( -- uint16[] ) dispose ( uint16[] -- ) cast ( uint16 -- uint32 ) 123 ( -- uint32 ) call test ( int32, uint32, uint32 ) 81 ( -- int32 ) 5 ( -- int16 ) 2 ( -- int16 ) -8 ( -- int16 ) 123 ( -- int16 ) 2 ( -- int16 ) 77 ( -- int16 ) 12 ( -- uint32 ) alloc ( uint32 -- int16[6] ) dup2r ( int16[6] -- int16[6]¢ ) forallitems ( int16[6]¢ -- int16& ) -> L1015 L1014: poke ( int16, int16& -- ) L1015: ForAllEnd .. L1014 fromr ( -- int16[6] ) dup2r ( int16[] -- int16[]¢ ) cast ( int16[]¢ -- int16[to] ) max ( int16[to] -- int16 ) fromr ( -- int16[] ) dispose ( int16[] -- ) cast ( int16 -- int32 ) 123 ( -- int32 ) call test ( int32, int32, int32 ) 82 ( -- int32 ) 5 ( -- uint32 ) 2 ( -- uint32 ) 8 ( -- uint32 ) 123 ( -- uint32 ) 2 ( -- uint32 ) 77 ( -- uint32 ) 24 ( -- uint32 ) alloc ( uint32 -- uint32[6] ) dup2r ( uint32[6] -- uint32[6]¢ ) forallitems ( uint32[6]¢ -- uint32& ) -> L1017 L1016: poke ( uint32, uint32& -- ) L1017: ForAllEnd .. L1016 fromr ( -- uint32[6] ) dup2r ( uint32[] -- uint32[]¢ ) cast ( uint32[]¢ -- uint32[to] ) max ( uint32[to] -- uint32 ) fromr ( -- uint32[] ) dispose ( uint32[] -- ) 123 ( -- uint32 ) call test ( int32, uint32, uint32 ) 83 ( -- int32 ) 5 ( -- int32 ) 2 ( -- int32 ) -8 ( -- int32 ) 123 ( -- int32 ) 2 ( -- int32 ) 77 ( -- int32 ) 24 ( -- uint32 ) alloc ( uint32 -- int32[6] ) dup2r ( int32[6] -- int32[6]¢ ) forallitems ( int32[6]¢ -- int32& ) -> L1019 L1018: poke ( int32, int32& -- ) L1019: ForAllEnd .. L1018 fromr ( -- int32[6] ) dup2r ( int32[] -- int32[]¢ ) cast ( int32[]¢ -- int32[to] ) max ( int32[to] -- int32 ) fromr ( -- int32[] ) dispose ( int32[] -- ) 123 ( -- int32 ) call test ( int32, int32, int32 ) 84 ( -- int32 ) 5 ( -- uint64 ) 2 ( -- uint64 ) 8 ( -- uint64 ) 123 ( -- uint64 ) 2 ( -- uint64 ) 77 ( -- uint64 ) 48 ( -- uint32 ) alloc ( uint32 -- uint64[6] ) dup2r ( uint64[6] -- uint64[6]¢ ) forallitems ( uint64[6]¢ -- uint64& ) -> L1021 L1020: poke ( uint64, uint64& -- ) L1021: ForAllEnd .. L1020 fromr ( -- uint64[6] ) dup2r ( uint64[] -- uint64[]¢ ) cast ( uint64[]¢ -- uint64[to] ) max ( uint64[to] -- uint64 ) fromr ( -- uint64[] ) dispose ( uint64[] -- ) 123 ( -- uint64 ) call test ( int32, uint64, uint64 ) 85 ( -- int32 ) 5 ( -- int64 ) 2 ( -- int64 ) -8 ( -- int64 ) 123 ( -- int64 ) 2 ( -- int64 ) 77 ( -- int64 ) 48 ( -- uint32 ) alloc ( uint32 -- int64[6] ) dup2r ( int64[6] -- int64[6]¢ ) forallitems ( int64[6]¢ -- int64& ) -> L1023 L1022: poke ( int64, int64& -- ) L1023: ForAllEnd .. L1022 fromr ( -- int64[6] ) dup2r ( int64[] -- int64[]¢ ) cast ( int64[]¢ -- int64[to] ) max ( int64[to] -- int64 ) fromr ( -- int64[] ) dispose ( int64[] -- ) 123 ( -- int64 ) call test ( int32, int64, int64 ) 88 ( -- int32 ) 2 ( -- int32 ) 8 ( -- int32 ) pow ( int32, int32 -- int32 ) 256 ( -- int32 ) call test ( int32, int32, int32 ) 89 ( -- int32 ) 2 ( -- uint32 ) 8 ( -- int32 ) pow ( uint32, int32 -- uint32 ) 256 ( -- uint32 ) call test ( int32, uint32, uint32 ) 90 ( -- int32 ) -2 ( -- int32 ) 8 ( -- int32 ) pow ( int32, int32 -- int32 ) 256 ( -- int32 ) call test ( int32, int32, int32 ) 91 ( -- int32 ) -2 ( -- int32 ) 9 ( -- int32 ) pow ( int32, int32 -- int32 ) -512 ( -- int32 ) call test ( int32, int32, int32 ) 92 ( -- int32 ) 10000000 ( -- uint64 ) 2 ( -- int32 ) pow ( uint64, int32 -- uint64 ) 100000000000000 ( -- uint64 ) call test ( int32, uint64, uint64 ) 93 ( -- int32 ) -10000000 ( -- int64 ) 2 ( -- int32 ) pow ( int64, int32 -- int64 ) 100000000000000 ( -- int64 ) call test ( int32, int64, int64 ) 94 ( -- int32 ) 0 ( -- int32 ) 1 ( -- int32 ) pow ( int32, int32 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 95 ( -- int32 ) 0 ( -- int32 ) 0 ( -- int32 ) pow ( int32, int32 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 96 ( -- int32 ) 1 ( -- int32 ) 0 ( -- int32 ) pow ( int32, int32 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 33 ( -- uint8 ) 44 ( -- uint8 ) lvar-24+28 "a" ( -- uint8& ) lvar-28+36 "b" ( -- uint8& ) swap ( uint8&, uint8& -- ) 103 ( -- int32 ) lvar-24+32 "a" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 44 ( -- uint32 ) call test ( int32, uint32, uint32 ) 104 ( -- int32 ) lvar-28+32 "b" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 33 ( -- uint32 ) call test ( int32, uint32, uint32 ) drop ( uint8 -- ) drop ( uint8 -- ) 33 ( -- uint16 ) 44 ( -- uint16 ) lvar-24+28 "a" ( -- uint16& ) lvar-28+36 "b" ( -- uint16& ) swap ( uint16&, uint16& -- ) 107 ( -- int32 ) lvar-24+32 "a" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 44 ( -- uint32 ) call test ( int32, uint32, uint32 ) 108 ( -- int32 ) lvar-28+32 "b" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 33 ( -- uint32 ) call test ( int32, uint32, uint32 ) drop ( uint16 -- ) drop ( uint16 -- ) 33 ( -- uint32 ) 44 ( -- uint32 ) lvar-24+28 "a" ( -- uint32& ) lvar-28+36 "b" ( -- uint32& ) swap ( uint32&, uint32& -- ) 111 ( -- int32 ) lvar-24+32 "a" ( -- uint32& ) peek ( uint32& -- uint32 ) 44 ( -- uint32 ) call test ( int32, uint32, uint32 ) 112 ( -- int32 ) lvar-28+32 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) 33 ( -- uint32 ) call test ( int32, uint32, uint32 ) drop ( uint32 -- ) drop ( uint32 -- ) 33 ( -- uint64 ) 44 ( -- uint64 ) lvar-28+36 "a" ( -- uint64& ) lvar-36+44 "b" ( -- uint64& ) swap ( uint64&, uint64& -- ) 115 ( -- int32 ) lvar-28+40 "a" ( -- uint64& ) peek ( uint64& -- uint64 ) 44 ( -- uint64 ) call test ( int32, uint64, uint64 ) 116 ( -- int32 ) lvar-36+40 "b" ( -- uint64& ) peek ( uint64& -- uint64 ) 33 ( -- uint64 ) call test ( int32, uint64, uint64 ) drop ( uint64 -- ) drop ( uint64 -- ) 123 ( -- int32 ) 18 ( -- uint16 ) call achterbahn ( uint16 -- uint32 ) 20 ( -- uint32 ) call test ( int32, uint32, uint32 ) 124 ( -- int32 ) 39 ( -- uint16 ) call achterbahn ( uint16 -- uint32 ) 34 ( -- uint32 ) call test ( int32, uint32, uint32 ) 125 ( -- int32 ) 18 ( -- uint32 ) call achterbahn ( uint32 -- uint32 ) 20 ( -- uint32 ) call test ( int32, uint32, uint32 ) 126 ( -- int32 ) 39 ( -- uint32 ) call achterbahn ( uint32 -- uint32 ) 34 ( -- uint32 ) call test ( int32, uint32, uint32 ) 127 ( -- int32 ) 18 ( -- uint64 ) call achterbahn ( uint64 -- uint32 ) 20 ( -- uint32 ) call test ( int32, uint32, uint32 ) 128 ( -- int32 ) 39 ( -- uint64 ) call achterbahn ( uint64 -- uint32 ) 34 ( -- uint32 ) call test ( int32, uint32, uint32 ) 143 ( -- int32 ) 3 ( -- uint16 ) 1 ( -- uint16 ) call ackermann ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint32 ) 13 ( -- uint32 ) call test ( int32, uint32, uint32 ) 144 ( -- int32 ) 3 ( -- uint32 ) 5 ( -- uint32 ) call ackermann ( uint32, uint32 -- uint32 ) 253 ( -- uint32 ) call test ( int32, uint32, uint32 ) 163 ( -- int32 ) 1 ( -- uint32 ) 3 ( -- uint32 ) 3 ( -- uint32 ) call hanoi ( uint32, uint32, uint32 -- uint32[][] ) dup2r ( uint32[][] -- uint32[][]¢ ) 1 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1075 L1074: poke ( uint32, uint32& -- ) L1075: ForAllEnd .. L1074 fromr ( -- uint32[2] ) 1 ( -- uint32 ) 2 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1077 L1076: poke ( uint32, uint32& -- ) L1077: ForAllEnd .. L1076 fromr ( -- uint32[2] ) 3 ( -- uint32 ) 2 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1079 L1078: poke ( uint32, uint32& -- ) L1079: ForAllEnd .. L1078 fromr ( -- uint32[2] ) 1 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1081 L1080: poke ( uint32, uint32& -- ) L1081: ForAllEnd .. L1080 fromr ( -- uint32[2] ) 2 ( -- uint32 ) 1 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1083 L1082: poke ( uint32, uint32& -- ) L1083: ForAllEnd .. L1082 fromr ( -- uint32[2] ) 2 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1085 L1084: poke ( uint32, uint32& -- ) L1085: ForAllEnd .. L1084 fromr ( -- uint32[2] ) 1 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1087 L1086: poke ( uint32, uint32& -- ) L1087: ForAllEnd .. L1086 fromr ( -- uint32[2] ) 56 ( -- uint32 ) alloc ( uint32 -- uint32[][7] ) dup2r ( uint32[][7] -- uint32[][7]¢ ) forallitems ( uint32[][7]¢ -- uint32[]& ) -> L1089 L1088: poke ( uint32[], uint32[]& -- ) L1089: ForAllEnd .. L1088 fromr ( -- uint32[][7] ) dup2r ( uint32[][] -- uint32[][]¢ ) call test ( int32, uint32[][]¢, uint32[][]¢ ) fromr ( -- uint32[][] ) call! kill ( uint32[][] -- uint32[][] ) dispose ( uint32[][] -- ) fromr ( -- uint32[][] ) call! kill ( uint32[][] -- uint32[][] ) dispose ( uint32[][] -- ) 164 ( -- int32 ) 1 ( -- uint32 ) 3 ( -- uint32 ) 4 ( -- uint32 ) call hanoi ( uint32, uint32, uint32 -- uint32[][] ) dup2r ( uint32[][] -- uint32[][]¢ ) 1 ( -- uint32 ) 2 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1094 L1093: poke ( uint32, uint32& -- ) L1094: ForAllEnd .. L1093 fromr ( -- uint32[2] ) 1 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1096 L1095: poke ( uint32, uint32& -- ) L1096: ForAllEnd .. L1095 fromr ( -- uint32[2] ) 2 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1098 L1097: poke ( uint32, uint32& -- ) L1098: ForAllEnd .. L1097 fromr ( -- uint32[2] ) 1 ( -- uint32 ) 2 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1100 L1099: poke ( uint32, uint32& -- ) L1100: ForAllEnd .. L1099 fromr ( -- uint32[2] ) 3 ( -- uint32 ) 1 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1102 L1101: poke ( uint32, uint32& -- ) L1102: ForAllEnd .. L1101 fromr ( -- uint32[2] ) 3 ( -- uint32 ) 2 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1104 L1103: poke ( uint32, uint32& -- ) L1104: ForAllEnd .. L1103 fromr ( -- uint32[2] ) 1 ( -- uint32 ) 2 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1106 L1105: poke ( uint32, uint32& -- ) L1106: ForAllEnd .. L1105 fromr ( -- uint32[2] ) 1 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1108 L1107: poke ( uint32, uint32& -- ) L1108: ForAllEnd .. L1107 fromr ( -- uint32[2] ) 2 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1110 L1109: poke ( uint32, uint32& -- ) L1110: ForAllEnd .. L1109 fromr ( -- uint32[2] ) 2 ( -- uint32 ) 1 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1112 L1111: poke ( uint32, uint32& -- ) L1112: ForAllEnd .. L1111 fromr ( -- uint32[2] ) 3 ( -- uint32 ) 1 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1114 L1113: poke ( uint32, uint32& -- ) L1114: ForAllEnd .. L1113 fromr ( -- uint32[2] ) 2 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1116 L1115: poke ( uint32, uint32& -- ) L1116: ForAllEnd .. L1115 fromr ( -- uint32[2] ) 1 ( -- uint32 ) 2 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1118 L1117: poke ( uint32, uint32& -- ) L1118: ForAllEnd .. L1117 fromr ( -- uint32[2] ) 1 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1120 L1119: poke ( uint32, uint32& -- ) L1120: ForAllEnd .. L1119 fromr ( -- uint32[2] ) 2 ( -- uint32 ) 3 ( -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1122 L1121: poke ( uint32, uint32& -- ) L1122: ForAllEnd .. L1121 fromr ( -- uint32[2] ) 120 ( -- uint32 ) alloc ( uint32 -- uint32[][15] ) dup2r ( uint32[][15] -- uint32[][15]¢ ) forallitems ( uint32[][15]¢ -- uint32[]& ) -> L1124 L1123: poke ( uint32[], uint32[]& -- ) L1124: ForAllEnd .. L1123 fromr ( -- uint32[][15] ) dup2r ( uint32[][] -- uint32[][]¢ ) call test ( int32, uint32[][]¢, uint32[][]¢ ) fromr ( -- uint32[][] ) call! kill ( uint32[][] -- uint32[][] ) dispose ( uint32[][] -- ) fromr ( -- uint32[][] ) call! kill ( uint32[][] -- uint32[][] ) dispose ( uint32[][] -- ) 166 ( -- int32 ) lvar-12+24 "stacktest" ( -- int32& ) peek ( int32& -- int32 ) -19374 ( -- int32 ) call test ( int32, int32, int32 ) drop ( int32 -- ) drop ( int32 -- ) drop ( int32 -- ) drop ( int32 -- ) drop ( int32 -- ) drop ( int32 -- ) local scope ANON { } local scope ANON { } local scope ANON { } local scope ANON { } uint32 achterbahn ( uint16 x ) { var uint16 x var uint32 n 0 ( -- uint32 ) L1026: lvar+0+4 "x" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) != ( uint16, uint16 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1027 lvar-4+4 "n" ( -- uint32& ) ++ ( uint32& -- ) lvar+0+4 "x" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 1 ( -- uint32 ) & ( uint32, uint32 -- uint32 ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1029 lvar+0+4 "x" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 3 ( -- uint32 ) * ( uint32, uint32 -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) cast ( uint32 -- uint16 ) lvar+0+8 "x" ( -- uint16& ) poke ( uint16, uint16& -- ) jp ( -- ) -> L1026 L1029: lvar+0+4 "x" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 2 ( -- uint32 ) / ( uint32, uint32 -- uint32 ) cast ( uint32 -- uint16 ) lvar+0+8 "x" ( -- uint16& ) poke ( uint16, uint16& -- ) jp ( -- ) -> L1026 L1027: lvar-4+4 "n" ( -- uint32& ) peek ( uint32& -- uint32 ) tor ( uint32 -- ) drop ( uint32 -- ) drop ( uint16 -- ) fromr ( -- uint32 ) } uint32 achterbahn ( uint32 x ) { var uint32 x var uint32 n 0 ( -- uint32 ) L1032: lvar+0+4 "x" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) != ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1033 lvar-4+4 "n" ( -- uint32& ) ++ ( uint32& -- ) lvar+0+4 "x" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) & ( uint32, uint32 -- uint32 ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1035 lvar+0+4 "x" ( -- uint32& ) peek ( uint32& -- uint32 ) 3 ( -- uint32 ) * ( uint32, uint32 -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) lvar+0+8 "x" ( -- uint32& ) poke ( uint32, uint32& -- ) jp ( -- ) -> L1032 L1035: lvar+0+4 "x" ( -- uint32& ) peek ( uint32& -- uint32 ) 2 ( -- uint32 ) / ( uint32, uint32 -- uint32 ) lvar+0+8 "x" ( -- uint32& ) poke ( uint32, uint32& -- ) jp ( -- ) -> L1032 L1033: lvar-4+4 "n" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+8 "x" ( -- uint32& ) swapwithvar ( uint32, uint32& -- uint32 ) drop ( uint32 -- ) drop ( uint32 -- ) } uint32 achterbahn ( uint64 x ) { var uint64 x var uint32 n 0 ( -- uint32 ) L1038: lvar+0+4 "x" ( -- uint64& ) peek ( uint64& -- uint64 ) 1 ( -- uint64 ) != ( uint64, uint64 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1039 lvar-4+4 "n" ( -- uint32& ) ++ ( uint32& -- ) lvar+0+4 "x" ( -- uint64& ) peek ( uint64& -- uint64 ) 1 ( -- uint64 ) & ( uint64, uint64 -- uint64 ) !! ( uint64 -- bool ) jp_z ( bool -- ) -> L1041 lvar+0+4 "x" ( -- uint64& ) peek ( uint64& -- uint64 ) 3 ( -- uint64 ) * ( uint64, uint64 -- uint64 ) 1 ( -- uint64 ) + ( uint64, uint64 -- uint64 ) lvar+0+12 "x" ( -- uint64& ) poke ( uint64, uint64& -- ) jp ( -- ) -> L1038 L1041: lvar+0+4 "x" ( -- uint64& ) peek ( uint64& -- uint64 ) 2 ( -- uint64 ) / ( uint64, uint64 -- uint64 ) lvar+0+12 "x" ( -- uint64& ) poke ( uint64, uint64& -- ) jp ( -- ) -> L1038 L1039: lvar-4+4 "n" ( -- uint32& ) peek ( uint32& -- uint32 ) tor ( uint32 -- ) drop ( uint32 -- ) drop ( uint64 -- ) fromr ( -- uint32 ) } uint32 ackermann ( uint32 x, uint32 y ) { var uint32 x var uint32 y lvar+4+0 "x" ( -- uint32& ) peek ( uint32& -- uint32 ) 0 ( -- uint32 ) == ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1044 lvar+0+0 "y" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) lvar+4+4 "x" ( -- uint32& ) swapwithvar ( uint32, uint32& -- uint32 ) drop ( uint32 -- ) jp ( -- ) -> L1043 L1044: lvar+0+0 "y" ( -- uint32& ) peek ( uint32& -- uint32 ) 0 ( -- uint32 ) == ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1046 lvar+4+0 "x" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) - ( uint32, uint32 -- uint32 ) 1 ( -- uint32 ) call ackermann ( uint32, uint32 -- uint32 ) lvar+4+4 "x" ( -- uint32& ) swapwithvar ( uint32, uint32& -- uint32 ) drop ( uint32 -- ) jp ( -- ) -> L1043 L1046: lvar+4+0 "x" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) - ( uint32, uint32 -- uint32 ) lvar+4+4 "x" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+8 "y" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) - ( uint32, uint32 -- uint32 ) call ackermann ( uint32, uint32 -- uint32 ) call ackermann ( uint32, uint32 -- uint32 ) lvar+4+4 "x" ( -- uint32& ) swapwithvar ( uint32, uint32& -- uint32 ) drop ( uint32 -- ) L1043: drop ( uint32 -- ) } uint16 ackermann ( uint16 x, uint16 y ) { var uint16 x var uint16 y lvar+4+0 "x" ( -- uint16& ) peek ( uint16& -- uint16 ) 0 ( -- uint16 ) == ( uint16, uint16 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1050 lvar+0+0 "y" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) cast ( uint32 -- uint16 ) lvar+4+4 "x" ( -- uint16& ) swapwithvar ( uint16, uint16& -- uint16 ) drop ( uint16 -- ) jp ( -- ) -> L1049 L1050: lvar+0+0 "y" ( -- uint16& ) peek ( uint16& -- uint16 ) 0 ( -- uint16 ) == ( uint16, uint16 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1052 lvar+4+0 "x" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 1 ( -- uint32 ) - ( uint32, uint32 -- uint32 ) 1 ( -- uint32 ) call ackermann ( uint32, uint32 -- uint32 ) cast ( uint32 -- uint16 ) lvar+4+4 "x" ( -- uint16& ) swapwithvar ( uint16, uint16& -- uint16 ) drop ( uint16 -- ) jp ( -- ) -> L1049 L1052: lvar+4+0 "x" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 1 ( -- uint32 ) - ( uint32, uint32 -- uint32 ) lvar+4+4 "x" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) lvar+0+8 "y" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 1 ( -- uint32 ) - ( uint32, uint32 -- uint32 ) call ackermann ( uint32, uint32 -- uint32 ) call ackermann ( uint32, uint32 -- uint32 ) cast ( uint32 -- uint16 ) lvar+4+4 "x" ( -- uint16& ) swapwithvar ( uint16, uint16& -- uint16 ) drop ( uint16 -- ) L1049: drop ( uint16 -- ) } uint32[][] hanoi ( uint32 von, uint32 nach, uint32 höhe ) { var uint32 von var uint32 nach var uint32 höhe var int32 z lvar+0+0 "höhe" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) == ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1056 lvar+8+0 "von" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+4+4 "nach" ( -- uint32& ) peek ( uint32& -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1059 L1058: poke ( uint32, uint32& -- ) L1059: ForAllEnd .. L1058 fromr ( -- uint32[2] ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[][1] ) dup2r ( uint32[][1] -- uint32[][1]¢ ) forallitems ( uint32[][1]¢ -- uint32[]& ) -> L1061 L1060: poke ( uint32[], uint32[]& -- ) L1061: ForAllEnd .. L1060 fromr ( -- uint32[][1] ) jp ( -- ) -> L1055 L1056: 6 ( -- uint32 ) lvar+8+4 "von" ( -- uint32& ) peek ( uint32& -- uint32 ) - ( uint32, uint32 -- uint32 ) lvar+4+4 "nach" ( -- uint32& ) peek ( uint32& -- uint32 ) - ( uint32, uint32 -- uint32 ) lvar+8+4 "von" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar-4+8 "z" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+12 "höhe" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) - ( uint32, uint32 -- uint32 ) call hanoi ( uint32, uint32, uint32 -- uint32[][] ) lvar+8+12 "von" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+4+16 "nach" ( -- uint32& ) peek ( uint32& -- uint32 ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[2] ) dup2r ( uint32[2] -- uint32[2]¢ ) forallitems ( uint32[2]¢ -- uint32& ) -> L1063 L1062: poke ( uint32, uint32& -- ) L1063: ForAllEnd .. L1062 fromr ( -- uint32[2] ) 8 ( -- uint32 ) alloc ( uint32 -- uint32[][1] ) dup2r ( uint32[][1] -- uint32[][1]¢ ) forallitems ( uint32[][1]¢ -- uint32[]& ) -> L1065 L1064: poke ( uint32[], uint32[]& -- ) L1065: ForAllEnd .. L1064 fromr ( -- uint32[][1] ) catstr ( uint32[][], uint32[][] -- uint32[][] ) lvar-4+12 "z" ( -- int32& ) peek ( int32& -- int32 ) lvar+4+16 "nach" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+20 "höhe" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) - ( uint32, uint32 -- uint32 ) call hanoi ( uint32, uint32, uint32 -- uint32[][] ) catstr ( uint32[][], uint32[][] -- uint32[][] ) tor ( uint32[][] -- ) drop ( int32 -- ) fromr ( -- uint32[][] ) L1055: tor ( uint32[][] -- ) drop ( uint32 -- ) drop ( uint32 -- ) drop ( uint32 -- ) fromr ( -- uint32[][] ) } void test ( int32 line, uint32[][]¢ a, uint32[][]¢ b ) { var int32 line var uint32[][]¢ a var uint32[][]¢ b var uint32 i lvar+8+0 "a" ( -- uint32[][]¢& ) peek ( uint32[][]¢& -- uint32[][]¢ ) 0 ( -- uint32 ) join ( uint32[][]¢, uint32 -- uint32[] ) dup2r ( uint32[] -- uint32[]¢ ) lvar+0+8 "b" ( -- uint32[][]¢& ) peek ( uint32[][]¢& -- uint32[][]¢ ) 0 ( -- uint32 ) join ( uint32[][]¢, uint32 -- uint32[] ) dup2r ( uint32[] -- uint32[]¢ ) eqstr ( uint32[]¢, uint32[]¢ -- bool ) fromr ( -- uint32[] ) dispose ( uint32[] -- ) fromr ( -- uint32[] ) dispose ( uint32[] -- ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1068 "." ( -- utf8str¢ ) print ( utf8str¢ ) jp ( -- ) -> L1067 L1068: gvar "errors" ( -- int32& ) ++ ( int32& -- ) "\n" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) lvar+16+8 "line" ( -- int32& ) peek ( int32& -- int32 ) numstr ( int32 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) ": failed: " ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) print ( utf8str ) lvar+8+0 "a" ( -- uint32[][]¢& ) peek ( uint32[][]¢& -- uint32[][]¢ ) count ( uint32[][]¢ -- uint32 ) L1070: lvar-4+4 "i" ( -- uint32& ) peekmm ( uint32& -- uint32 ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1071 "{" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) lvar+8+12 "a" ( -- uint32[][]¢& ) peek ( uint32[][]¢& -- uint32[][]¢ ) lvar-4+20 "i" ( -- uint32& ) peek ( uint32& -- uint32 ) atindex ( uint32[][]¢, int32 -- uint32[]& ) peek ( uint32[]& -- uint32[]¢ ) 0 ( -- int32 ) atindex ( uint32[]¢, int32 -- uint32& ) peek ( uint32& -- uint32 ) numstr ( uint32 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) lvar+8+12 "a" ( -- uint32[][]¢& ) peek ( uint32[][]¢& -- uint32[][]¢ ) lvar-4+20 "i" ( -- uint32& ) peek ( uint32& -- uint32 ) atindex ( uint32[][]¢, int32 -- uint32[]& ) peek ( uint32[]& -- uint32[]¢ ) 1 ( -- int32 ) atindex ( uint32[]¢, int32 -- uint32& ) peek ( uint32& -- uint32 ) numstr ( uint32 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "}" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) print ( utf8str ) jp ( -- ) -> L1070 L1071: "\n" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) lvar+16+12 "line" ( -- int32& ) peek ( int32& -- int32 ) numstr ( int32 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) ": " ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) print ( utf8str ) lvar+0+4 "b" ( -- uint32[][]¢& ) peek ( uint32[][]¢& -- uint32[][]¢ ) count ( uint32[][]¢ -- uint32 ) lvar-4+8 "i" ( -- uint32& ) poke ( uint32, uint32& -- ) L1072: lvar-4+4 "i" ( -- uint32& ) peekmm ( uint32& -- uint32 ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1073 "{" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) lvar+0+12 "b" ( -- uint32[][]¢& ) peek ( uint32[][]¢& -- uint32[][]¢ ) lvar-4+20 "i" ( -- uint32& ) peek ( uint32& -- uint32 ) atindex ( uint32[][]¢, int32 -- uint32[]& ) peek ( uint32[]& -- uint32[]¢ ) 0 ( -- int32 ) atindex ( uint32[]¢, int32 -- uint32& ) peek ( uint32& -- uint32 ) numstr ( uint32 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) lvar+0+12 "b" ( -- uint32[][]¢& ) peek ( uint32[][]¢& -- uint32[][]¢ ) lvar-4+20 "i" ( -- uint32& ) peek ( uint32& -- uint32 ) atindex ( uint32[][]¢, int32 -- uint32[]& ) peek ( uint32[]& -- uint32[]¢ ) 1 ( -- int32 ) atindex ( uint32[]¢, int32 -- uint32& ) peek ( uint32& -- uint32 ) numstr ( uint32 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "}" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) print ( utf8str ) jp ( -- ) -> L1072 L1073: " " ( -- utf8str¢ ) print ( utf8str¢ ) drop ( uint32 -- ) L1067: drop ( uint32[][]¢ -- ) drop ( uint32[][]¢ -- ) drop ( int32 -- ) } } }