opcodes[]: global scope global { global scope implicit__minimum_functionality { test_minimum_functionality.ANON.S kill ( S ) { var test_minimum_functionality.ANON.S ANON dup ( -- S¢ ) item+14 "t" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) dispose ( utf8str -- ) } test_minimum_functionality.ANON.Z kill ( Z ) { var test_minimum_functionality.ANON.Z ANON dup ( -- Z¢ ) item+0 "p" ( -- Y& ) peek ( Y& -- Y¢ ) call! kill ( Y -- Y ) dispose ( Y -- ) dup ( -- Z¢ ) item+8 "n" ( -- Y& ) peek ( Y& -- Y¢ ) call! kill ( Y -- Y ) dispose ( Y -- ) } test_minimum_functionality.ANON.Y kill ( Y ) { var test_minimum_functionality.ANON.Y ANON dup ( -- Y¢ ) item+0 "p" ( -- X& ) peek ( X& -- X¢ ) dispose ( X -- ) dup ( -- Y¢ ) item+8 "n" ( -- X& ) peek ( X& -- X¢ ) dispose ( X -- ) } } type utf8str: type ucs1str: type ucs2str: type ucs4str: global scope vt100 { } void test_minimum_functionality () { local scope ANON var float64 a var float64 b var int32 z var uint8 c var utf8str s local scope ANON var int32 a var int32 b var int32 c local scope ANON var uint32 a var uint32 b var uint32 c local scope ANON var int16 a var int16 b var int16 c local scope ANON var uint16 a var uint16 b var uint16 c local scope ANON var int64 a var int64 b var int64 c local scope ANON var uint64 a var uint64 b var uint64 c local scope ANON var int8 a var int8 b var int8 c local scope ANON var uint8 a var uint8 b var uint8 c local scope ANON type TYP = enum uint32 const test_minimum_functionality.ANON.TYP INT = 0 const test_minimum_functionality.ANON.TYP UINT = 1 const test_minimum_functionality.ANON.TYP LONG = 2 const test_minimum_functionality.ANON.TYP ULONG = 3 const test_minimum_functionality.ANON.TYP F = 4 const test_minimum_functionality.ANON.TYP SF = 5 const test_minimum_functionality.ANON.TYP LF = 6 test_minimum_functionality.ANON.TYP test ( int32 a, int32 b ) test_minimum_functionality.ANON.TYP test ( uint32 a, uint32 b ) test_minimum_functionality.ANON.TYP test ( float64 a, float64 b ) test_minimum_functionality.ANON.TYP test ( float128, float128 ) test_minimum_functionality.ANON.TYP test ( float32, float32 ) var int8 i8 var uint8 u8 var int16 i16 var uint16 u16 var int32 i32 var uint32 u32 var int64 i64 var uint64 u64 test_minimum_functionality.ANON.TYP test ( int64 a, int64 b ) test_minimum_functionality.ANON.TYP test ( uint64 a, uint64 b ) local scope ANON var int32[10] a local scope ANON type S = { int32 i4, float64 f, int16 i2, utf8str t } var int32 i4 var float64 f var int16 i2 var utf8str t var test_minimum_functionality.ANON.S s local scope ANON var uint32 a var uint32 b uint32 f ( int32 a ) int32 f0 () int32 f1 ( int32 c ) var int32 z var int32 d var int32 e var int32 f int32 f2 ( int32 c ) local scope ANON var float64 a type S = { int32 c, float64 a, float64 b, t64 prod ( S¢ s ), 2 foo ( S¢ ), myfoo ( S& ) } var int32 c var float64 a var float64 b float64 prod ( S¢ s ) int32 foo ( S¢ ) void myfoo ( S& ) var test_minimum_functionality.ANON.S s type X = { test_minimum_functionality.ANON.X* p, test_minimum_functionality.ANON.X* n, int32 a } var test_minimum_functionality.ANON.X* p var test_minimum_functionality.ANON.X* n var int32 a type Y = { test_minimum_functionality.ANON.X p, test_minimum_functionality.ANON.X n, int32 a } var test_minimum_functionality.ANON.X p var test_minimum_functionality.ANON.X n var int32 a type Z = { test_minimum_functionality.ANON.Y p, test_minimum_functionality.ANON.Y n, int32 a } var test_minimum_functionality.ANON.Y p var test_minimum_functionality.ANON.Y n var int32 a local scope ANON var test_minimum_functionality.ANON.Z z local scope ANON int32 inc ( int32 a ) int32 dec ( int32 a ) var int32(int32)* p var float64 a var float64* pa push_context0 ( -- ) "\nmi" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) "n" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "im" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "um functionality \n" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) print ( utf8str ) 22 ( -- int32 ) 0 ( -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 23 ( -- int32 ) 1 ( -- uint32 ) 1 ( -- uint32 ) call test ( int32, uint32, uint32 ) 4 ( -- float64 ) 26 ( -- int32 ) lvar-8+12 "a" ( -- float64& ) peek ( float64& -- float64 ) 4 ( -- float64 ) call test ( int32, float64, float64 ) lvar-8+8 "a" ( -- float64& ) ++ ( float64& -- ) 28 ( -- int32 ) lvar-8+12 "a" ( -- float64& ) peek ( float64& -- float64 ) 5 ( -- float64 ) call test ( int32, float64, float64 ) lvar-8+8 "a" ( -- float64& ) -- ( float64& -- ) 30 ( -- int32 ) lvar-8+12 "a" ( -- float64& ) peek ( float64& -- float64 ) 4 ( -- float64 ) call test ( int32, float64, float64 ) 2 ( -- float64 ) lvar-16+16 "b" ( -- float64& ) peek ( float64& -- float64 ) lvar-8+24 "a" ( -- float64& ) poke ( float64, float64& -- ) 34 ( -- int32 ) lvar-8+20 "a" ( -- float64& ) peek ( float64& -- float64 ) 2 ( -- float64 ) call test ( int32, float64, float64 ) 35 ( -- int32 ) lvar-8+20 "a" ( -- float64& ) peek ( float64& -- float64 ) lvar-16+28 "b" ( -- float64& ) peek ( float64& -- float64 ) call test ( int32, float64, float64 ) 3 ( -- float64 ) lvar-8+24 "a" ( -- float64& ) poke ( float64, float64& -- ) lvar-8+16 "a" ( -- float64& ) peek ( float64& -- float64 ) cast ( float64 -- int32 ) 39 ( -- int32 ) lvar-8+24 "a" ( -- float64& ) peek ( float64& -- float64 ) lvar-20+32 "z" ( -- int32& ) peek ( int32& -- int32 ) cast ( int32 -- float64 ) call test ( int32, float64, float64 ) gvar-4 "gint" ( -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) == ( int32, int32 -- bool ) !! ( uint32 -- bool ) jp_nz ( bool -- ) -> L1004 "minimum_functionality.cpp, line 46: assert(gint==0)" ( -- utf8str¢ ) abort ( utf8str¢ -- ) L1004: gvar-4 "gint" ( -- int32& ) ++ ( int32& -- ) 48 ( -- int32 ) gvar-4 "gint" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) gvar-4 "gint" ( -- int32& ) -- ( int32& -- ) 50 ( -- int32 ) gvar-4 "gint" ( -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 0 ( -- uint8 ) lvar-24+24 "c" ( -- uint8& ) peek ( uint8& -- uint8 ) 0 ( -- uint8 ) < ( uint8, uint8 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L1005 jp ( -- ) -> L1005 L1005: NULL ( -- utf8str ) NULL ( -- void* ) lvar-32+40 "s" ( -- utf8str& ) swapwithvar ( utf8str, utf8str& -- utf8str ) dispose ( utf8str -- ) dispose ( utf8str -- ) drop ( uint8 -- ) drop ( int32 -- ) drop ( float64 -- ) drop ( float64 -- ) 0 ( -- int32 ) 12345 ( -- int32 ) 0 ( -- int32 ) 61 ( -- int32 ) lvar-8+16 "b" ( -- int32& ) peek ( int32& -- int32 ) 12345 ( -- int32 ) call test ( int32, int32, int32 ) 62 ( -- int32 ) lvar-4+16 "a" ( -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 63 ( -- int32 ) lvar-12+16 "c" ( -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) lvar-8+12 "b" ( -- int32& ) ++ ( int32& -- ) 65 ( -- int32 ) lvar-8+16 "b" ( -- int32& ) peek ( int32& -- int32 ) 12346 ( -- int32 ) call test ( int32, int32, int32 ) 66 ( -- int32 ) lvar-4+16 "a" ( -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 67 ( -- int32 ) lvar-12+16 "c" ( -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 100000 ( -- int32 ) lvar-8+16 "b" ( -- int32& ) += ( int32, int32& -- ) 69 ( -- int32 ) lvar-8+16 "b" ( -- int32& ) peek ( int32& -- int32 ) 112346 ( -- int32 ) call test ( int32, int32, int32 ) 70 ( -- int32 ) lvar-4+16 "a" ( -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 71 ( -- int32 ) lvar-12+16 "c" ( -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 1 ( -- int32 ) lvar-4+16 "a" ( -- int32& ) poke ( int32, int32& -- ) 73 ( -- int32 ) lvar-8+16 "b" ( -- int32& ) peek ( int32& -- int32 ) 112346 ( -- int32 ) call test ( int32, int32, int32 ) 74 ( -- int32 ) lvar-4+16 "a" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 2 ( -- int32 ) lvar-12+16 "c" ( -- int32& ) poke ( int32, int32& -- ) 76 ( -- int32 ) lvar-8+16 "b" ( -- int32& ) peek ( int32& -- int32 ) 112346 ( -- int32 ) call test ( int32, int32, int32 ) 77 ( -- int32 ) lvar-12+16 "c" ( -- int32& ) peek ( int32& -- int32 ) 2 ( -- int32 ) call test ( int32, int32, int32 ) drop ( int32 -- ) drop ( int32 -- ) drop ( int32 -- ) 0 ( -- uint32 ) 42345 ( -- uint32 ) 0 ( -- uint32 ) 83 ( -- int32 ) lvar-8+16 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) 42345 ( -- uint32 ) call test ( int32, uint32, uint32 ) 84 ( -- int32 ) lvar-4+16 "a" ( -- uint32& ) peek ( uint32& -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 85 ( -- int32 ) lvar-12+16 "c" ( -- uint32& ) peek ( uint32& -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) lvar-8+12 "b" ( -- uint32& ) ++ ( uint32& -- ) 87 ( -- int32 ) lvar-8+16 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) 42346 ( -- uint32 ) call test ( int32, uint32, uint32 ) 88 ( -- int32 ) lvar-4+16 "a" ( -- uint32& ) peek ( uint32& -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 89 ( -- int32 ) lvar-12+16 "c" ( -- uint32& ) peek ( uint32& -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 100000 ( -- uint32 ) lvar-8+16 "b" ( -- uint32& ) += ( uint32, uint32& -- ) 91 ( -- int32 ) lvar-8+16 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) 142346 ( -- uint32 ) call test ( int32, uint32, uint32 ) 92 ( -- int32 ) lvar-4+16 "a" ( -- uint32& ) peek ( uint32& -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 93 ( -- int32 ) lvar-12+16 "c" ( -- uint32& ) peek ( uint32& -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 1 ( -- uint32 ) lvar-4+16 "a" ( -- uint32& ) poke ( uint32, uint32& -- ) 95 ( -- int32 ) lvar-8+16 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) 142346 ( -- uint32 ) call test ( int32, uint32, uint32 ) 96 ( -- int32 ) lvar-4+16 "a" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) call test ( int32, uint32, uint32 ) 2 ( -- uint32 ) lvar-12+16 "c" ( -- uint32& ) poke ( uint32, uint32& -- ) 98 ( -- int32 ) lvar-8+16 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) 142346 ( -- uint32 ) call test ( int32, uint32, uint32 ) 99 ( -- int32 ) lvar-12+16 "c" ( -- uint32& ) peek ( uint32& -- uint32 ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) drop ( uint32 -- ) drop ( uint32 -- ) drop ( uint32 -- ) 0 ( -- int16 ) 12345 ( -- int16 ) 0 ( -- int16 ) 105 ( -- int32 ) lvar-8+16 "b" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 12345 ( -- int32 ) call test ( int32, int32, int32 ) 106 ( -- int32 ) lvar-4+16 "a" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 107 ( -- int32 ) lvar-12+16 "c" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) lvar-8+12 "b" ( -- int16& ) ++ ( int16& -- ) 109 ( -- int32 ) lvar-8+16 "b" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 12346 ( -- int32 ) call test ( int32, int32, int32 ) 110 ( -- int32 ) lvar-4+16 "a" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 111 ( -- int32 ) lvar-12+16 "c" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) -31072 ( -- int16 ) lvar-8+16 "b" ( -- int16& ) += ( int16, int16& -- ) 113 ( -- int32 ) lvar-8+16 "b" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) -18726 ( -- int32 ) call test ( int32, int32, int32 ) 114 ( -- int32 ) lvar-4+16 "a" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 115 ( -- int32 ) lvar-12+16 "c" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 1 ( -- int16 ) lvar-4+16 "a" ( -- int16& ) poke ( int16, int16& -- ) 117 ( -- int32 ) lvar-8+16 "b" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) -18726 ( -- int32 ) call test ( int32, int32, int32 ) 118 ( -- int32 ) lvar-4+16 "a" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 2 ( -- int16 ) lvar-12+16 "c" ( -- int16& ) poke ( int16, int16& -- ) 120 ( -- int32 ) lvar-8+16 "b" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) -18726 ( -- int32 ) call test ( int32, int32, int32 ) 121 ( -- int32 ) lvar-12+16 "c" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 2 ( -- int32 ) call test ( int32, int32, int32 ) drop ( int16 -- ) drop ( int16 -- ) drop ( int16 -- ) 0 ( -- uint16 ) 42345 ( -- uint16 ) 0 ( -- uint16 ) 127 ( -- int32 ) lvar-8+16 "b" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 42345 ( -- uint32 ) call test ( int32, uint32, uint32 ) 128 ( -- int32 ) lvar-4+16 "a" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 129 ( -- int32 ) lvar-12+16 "c" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) lvar-8+12 "b" ( -- uint16& ) ++ ( uint16& -- ) 131 ( -- int32 ) lvar-8+16 "b" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 42346 ( -- uint32 ) call test ( int32, uint32, uint32 ) 132 ( -- int32 ) lvar-4+16 "a" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 133 ( -- int32 ) lvar-12+16 "c" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 34464 ( -- uint16 ) lvar-8+16 "b" ( -- uint16& ) += ( uint16, uint16& -- ) 135 ( -- int32 ) lvar-8+16 "b" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 11274 ( -- uint32 ) call test ( int32, uint32, uint32 ) 136 ( -- int32 ) lvar-4+16 "a" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 137 ( -- int32 ) lvar-12+16 "c" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 1 ( -- uint16 ) lvar-4+16 "a" ( -- uint16& ) poke ( uint16, uint16& -- ) 139 ( -- int32 ) lvar-8+16 "b" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 11274 ( -- uint32 ) call test ( int32, uint32, uint32 ) 140 ( -- int32 ) lvar-4+16 "a" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 1 ( -- uint32 ) call test ( int32, uint32, uint32 ) 2 ( -- uint16 ) lvar-12+16 "c" ( -- uint16& ) poke ( uint16, uint16& -- ) 142 ( -- int32 ) lvar-8+16 "b" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 11274 ( -- uint32 ) call test ( int32, uint32, uint32 ) 143 ( -- int32 ) lvar-12+16 "c" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) drop ( uint16 -- ) drop ( uint16 -- ) drop ( uint16 -- ) 0 ( -- int64 ) 123456789 ( -- int64 ) 0 ( -- int64 ) 150 ( -- int32 ) lvar-16+28 "b" ( -- int64& ) peek ( int64& -- int64 ) 123456789 ( -- int64 ) call test ( int32, int64, int64 ) lvar-16+24 "b" ( -- int64& ) peek ( int64& -- int64 ) - ( int64 -- int64 ) lvar-8+32 "a" ( -- int64& ) poke ( int64, int64& -- ) 152 ( -- int32 ) lvar-8+28 "a" ( -- int64& ) peek ( int64& -- int64 ) -123456789 ( -- int64 ) call test ( int32, int64, int64 ) 153 ( -- int32 ) lvar-16+28 "b" ( -- int64& ) peek ( int64& -- int64 ) 123456789 ( -- int64 ) call test ( int32, int64, int64 ) 19088743 ( -- int64 ) lvar-24+32 "c" ( -- int64& ) poke ( int64, int64& -- ) 155 ( -- int32 ) lvar-16+28 "b" ( -- int64& ) peek ( int64& -- int64 ) 123456789 ( -- int64 ) call test ( int32, int64, int64 ) 156 ( -- int32 ) lvar-24+28 "c" ( -- int64& ) peek ( int64& -- int64 ) 19088743 ( -- int64 ) call test ( int32, int64, int64 ) drop ( int64 -- ) drop ( int64 -- ) drop ( int64 -- ) 0 ( -- uint64 ) 123456789 ( -- uint64 ) 0 ( -- uint64 ) 162 ( -- int32 ) lvar-16+28 "b" ( -- uint64& ) peek ( uint64& -- uint64 ) 123456789 ( -- uint64 ) call test ( int32, uint64, uint64 ) lvar-16+24 "b" ( -- uint64& ) peek ( uint64& -- uint64 ) - ( int64 -- int64 ) lvar-8+32 "a" ( -- uint64& ) poke ( uint64, uint64& -- ) 164 ( -- int32 ) lvar-8+28 "a" ( -- uint64& ) peek ( uint64& -- uint64 ) cast ( uint64 -- float128 ) 18446744073586094827 ( -- float128 ) call test ( int32, float128, float128 ) 165 ( -- int32 ) lvar-16+28 "b" ( -- uint64& ) peek ( uint64& -- uint64 ) 123456789 ( -- uint64 ) call test ( int32, uint64, uint64 ) 81985529216486895 ( -- uint64 ) lvar-24+32 "c" ( -- uint64& ) poke ( uint64, uint64& -- ) 167 ( -- int32 ) lvar-16+28 "b" ( -- uint64& ) peek ( uint64& -- uint64 ) 123456789 ( -- uint64 ) call test ( int32, uint64, uint64 ) 168 ( -- int32 ) lvar-24+28 "c" ( -- uint64& ) peek ( uint64& -- uint64 ) cast ( uint64 -- float128 ) 81985529216486896 ( -- float128 ) call test ( int32, float128, float128 ) drop ( uint64 -- ) drop ( uint64 -- ) drop ( uint64 -- ) 0 ( -- int8 ) 123 ( -- int8 ) 0 ( -- int8 ) 176 ( -- int32 ) lvar-8+16 "b" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) 123 ( -- int32 ) call test ( int32, int32, int32 ) 177 ( -- int32 ) lvar-4+16 "a" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 178 ( -- int32 ) lvar-12+16 "c" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) lvar-8+12 "b" ( -- int8& ) ++ ( int8& -- ) 180 ( -- int32 ) lvar-8+16 "b" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) 124 ( -- int32 ) call test ( int32, int32, int32 ) 181 ( -- int32 ) lvar-4+16 "a" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 182 ( -- int32 ) lvar-12+16 "c" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) -56 ( -- int8 ) lvar-8+16 "b" ( -- int8& ) -= ( int8, int8& -- ) 184 ( -- int32 ) lvar-8+16 "b" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) -76 ( -- int32 ) call test ( int32, int32, int32 ) 185 ( -- int32 ) lvar-4+16 "a" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 186 ( -- int32 ) lvar-12+16 "c" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 1 ( -- int8 ) lvar-4+16 "a" ( -- int8& ) poke ( int8, int8& -- ) 188 ( -- int32 ) lvar-8+16 "b" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) -76 ( -- int32 ) call test ( int32, int32, int32 ) 189 ( -- int32 ) lvar-4+16 "a" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) 1 ( -- int32 ) call test ( int32, int32, int32 ) 2 ( -- int8 ) lvar-12+16 "c" ( -- int8& ) poke ( int8, int8& -- ) 191 ( -- int32 ) lvar-8+16 "b" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) -76 ( -- int32 ) call test ( int32, int32, int32 ) 192 ( -- int32 ) lvar-12+16 "c" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) 2 ( -- int32 ) call test ( int32, int32, int32 ) drop ( int8 -- ) drop ( int8 -- ) drop ( int8 -- ) 0 ( -- uint8 ) 123 ( -- uint8 ) 0 ( -- uint8 ) 198 ( -- int32 ) lvar-8+16 "b" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 123 ( -- uint32 ) call test ( int32, uint32, uint32 ) 199 ( -- int32 ) lvar-4+16 "a" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 200 ( -- int32 ) lvar-12+16 "c" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) lvar-8+12 "b" ( -- uint8& ) ++ ( uint8& -- ) 202 ( -- int32 ) lvar-8+16 "b" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 124 ( -- uint32 ) call test ( int32, uint32, uint32 ) 203 ( -- int32 ) lvar-4+16 "a" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 204 ( -- int32 ) lvar-12+16 "c" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 100 ( -- uint8 ) lvar-8+16 "b" ( -- uint8& ) += ( uint8, uint8& -- ) 206 ( -- int32 ) lvar-8+16 "b" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 224 ( -- uint32 ) call test ( int32, uint32, uint32 ) 207 ( -- int32 ) lvar-4+16 "a" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 208 ( -- int32 ) lvar-12+16 "c" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 1 ( -- uint8 ) lvar-4+16 "a" ( -- uint8& ) poke ( uint8, uint8& -- ) 210 ( -- int32 ) lvar-8+16 "b" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 224 ( -- uint32 ) call test ( int32, uint32, uint32 ) 211 ( -- int32 ) lvar-4+16 "a" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 1 ( -- uint32 ) call test ( int32, uint32, uint32 ) 2 ( -- uint8 ) lvar-12+16 "c" ( -- uint8& ) poke ( uint8, uint8& -- ) 213 ( -- int32 ) lvar-8+16 "b" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 224 ( -- uint32 ) call test ( int32, uint32, uint32 ) 214 ( -- int32 ) lvar-12+16 "c" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) drop ( uint8 -- ) drop ( uint8 -- ) drop ( uint8 -- ) 0 ( -- int8 ) 0 ( -- uint8 ) 0 ( -- int16 ) 0 ( -- uint16 ) 0 ( -- int32 ) 0 ( -- uint32 ) 0 ( -- int64 ) 0 ( -- uint64 ) 245 ( -- int32 ) lvar-4+44 "i8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) lvar-4+48 "i8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 246 ( -- int32 ) lvar-8+44 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) lvar-8+48 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint32 ) call test ( uint32, uint32 -- TYP ) 1 ( -- uint32 ) call test ( int32, uint32, uint32 ) 247 ( -- int32 ) lvar-8+44 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- int32 ) lvar-4+48 "i8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 248 ( -- int32 ) lvar-4+44 "i8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int32 ) lvar-8+48 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- int32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 250 ( -- int32 ) lvar-12+44 "i16" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) lvar-12+48 "i16" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 251 ( -- int32 ) lvar-16+44 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) lvar-16+48 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- uint32 ) call test ( uint32, uint32 -- TYP ) 1 ( -- uint32 ) call test ( int32, uint32, uint32 ) 252 ( -- int32 ) lvar-16+44 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- int32 ) lvar-12+48 "i16" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 253 ( -- int32 ) lvar-12+44 "i16" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) lvar-16+48 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- int32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 255 ( -- int32 ) lvar-20+44 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar-20+48 "i32" ( -- int32& ) peek ( int32& -- int32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 256 ( -- int32 ) lvar-24+44 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar-24+48 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) call test ( uint32, uint32 -- TYP ) 1 ( -- uint32 ) call test ( int32, uint32, uint32 ) 257 ( -- int32 ) lvar-24+44 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar-20+48 "i32" ( -- int32& ) peek ( int32& -- int32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 258 ( -- int32 ) lvar-20+44 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar-24+48 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 260 ( -- int32 ) lvar-40+44 "u64" ( -- uint64& ) peek ( uint64& -- uint64 ) cast ( uint64 -- float128 ) lvar-40+60 "u64" ( -- uint64& ) peek ( uint64& -- uint64 ) cast ( uint64 -- float128 ) call test ( float128, float128 -- TYP ) 6 ( -- uint32 ) call test ( int32, uint32, uint32 ) 261 ( -- int32 ) lvar-32+44 "i64" ( -- int64& ) peek ( int64& -- int64 ) cast ( int64 -- float128 ) lvar-32+60 "i64" ( -- int64& ) peek ( int64& -- int64 ) cast ( int64 -- float128 ) call test ( float128, float128 -- TYP ) 6 ( -- uint32 ) call test ( int32, uint32, uint32 ) 267 ( -- int32 ) lvar-40+44 "u64" ( -- uint64& ) peek ( uint64& -- uint64 ) lvar-40+52 "u64" ( -- uint64& ) peek ( uint64& -- uint64 ) call test ( uint64, uint64 -- TYP ) 3 ( -- uint32 ) call test ( int32, uint32, uint32 ) 268 ( -- int32 ) lvar-32+44 "i64" ( -- int64& ) peek ( int64& -- int64 ) lvar-32+52 "i64" ( -- int64& ) peek ( int64& -- int64 ) call test ( int64, int64 -- TYP ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) 269 ( -- int32 ) lvar-32+44 "i64" ( -- int64& ) peek ( int64& -- int64 ) lvar-40+52 "u64" ( -- uint64& ) peek ( uint64& -- uint64 ) call test ( int64, int64 -- TYP ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) 270 ( -- int32 ) lvar-40+44 "u64" ( -- uint64& ) peek ( uint64& -- uint64 ) lvar-32+52 "i64" ( -- int64& ) peek ( int64& -- int64 ) call test ( int64, int64 -- TYP ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) 272 ( -- int32 ) lvar-40+44 "u64" ( -- uint64& ) peek ( uint64& -- uint64 ) lvar-24+52 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) cast ( uint32 -- uint64 ) call test ( uint64, uint64 -- TYP ) 3 ( -- uint32 ) call test ( int32, uint32, uint32 ) 273 ( -- int32 ) lvar-32+44 "i64" ( -- int64& ) peek ( int64& -- int64 ) lvar-20+52 "i32" ( -- int32& ) peek ( int32& -- int32 ) cast ( int32 -- int64 ) call test ( int64, int64 -- TYP ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) 274 ( -- int32 ) lvar-32+44 "i64" ( -- int64& ) peek ( int64& -- int64 ) lvar-24+52 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) cast ( uint32 -- int64 ) call test ( int64, int64 -- TYP ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) 275 ( -- int32 ) lvar-40+44 "u64" ( -- uint64& ) peek ( uint64& -- uint64 ) lvar-20+52 "i32" ( -- int32& ) peek ( int32& -- int32 ) cast ( int32 -- int64 ) call test ( int64, int64 -- TYP ) 2 ( -- uint32 ) call test ( int32, uint32, uint32 ) 278 ( -- int32 ) lvar-20+44 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar-16+48 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) cast ( uint16 -- int32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 279 ( -- int32 ) lvar-20+44 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar-8+48 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- int32 ) call test ( int32, int32 -- TYP ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) drop ( uint64 -- ) drop ( int64 -- ) drop ( uint32 -- ) drop ( int32 -- ) drop ( uint16 -- ) drop ( int16 -- ) drop ( uint8 -- ) drop ( int8 -- ) 40 ( -- uint32 ) alloc ( uint32 -- int32[10] ) 286 ( -- int32 ) lvar-8+12 "a" ( -- int32[10]& ) peek ( int32[10]& -- int32[10]¢ ) count ( int32[10]¢ -- uint32 ) 10 ( -- uint32 ) call test ( int32, uint32, uint32 ) 287 ( -- int32 ) lvar-8+12 "a" ( -- int32[10]& ) peek ( int32[10]& -- int32[10]¢ ) sizeof ( int32[10]¢ -- uint32 ) 40 ( -- uint32 ) call test ( int32, uint32, uint32 ) 288 ( -- int32 ) lvar-8+12 "a" ( -- int32[10]& ) peek ( int32[10]& -- int32[10]¢ ) 0 ( -- int32 ) atindex ( int32[10]¢, int32 -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 289 ( -- int32 ) lvar-8+12 "a" ( -- int32[10]& ) peek ( int32[10]& -- int32[10]¢ ) 9 ( -- int32 ) atindex ( int32[10]¢, int32 -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 99 ( -- int32 ) lvar-8+12 "a" ( -- int32[10]& ) peek ( int32[10]& -- int32[10]¢ ) 5 ( -- int32 ) atindex ( int32[10]¢, int32 -- int32& ) poke ( int32, int32& -- ) 291 ( -- int32 ) lvar-8+12 "a" ( -- int32[10]& ) peek ( int32[10]& -- int32[10]¢ ) 5 ( -- int32 ) atindex ( int32[10]¢, int32 -- int32& ) peek ( int32& -- int32 ) 99 ( -- int32 ) call test ( int32, int32, int32 ) 292 ( -- int32 ) lvar-8+12 "a" ( -- int32[10]& ) peek ( int32[10]& -- int32[10]¢ ) 4 ( -- int32 ) atindex ( int32[10]¢, int32 -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) 293 ( -- int32 ) lvar-8+12 "a" ( -- int32[10]& ) peek ( int32[10]& -- int32[10]¢ ) 6 ( -- int32 ) atindex ( int32[10]¢, int32 -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) call test ( int32, int32, int32 ) dispose ( int32[10] -- ) 22 ( -- uint32 ) alloc ( uint32 -- S ) tor ( S -- ) 4 ( -- int32 ) peekr ( -- S¢ ) item+0 "i4" ( -- int32& ) poke ( int32, int32& -- ) 16 ( -- int16 ) peekr ( -- S¢ ) item+12 "i2" ( -- int16& ) poke ( int16, int16& -- ) 5.5 ( -- float64 ) peekr ( -- S¢ ) item+4 "f" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- S ) 307 ( -- int32 ) lvar-8+12 "s" ( -- S& ) peek ( S& -- S¢ ) item+14 "t" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) count ( utf8str¢ -- uint32 ) 0 ( -- uint32 ) call test ( int32, uint32, uint32 ) 308 ( -- int32 ) lvar-8+12 "s" ( -- S& ) peek ( S& -- S¢ ) item+0 "i4" ( -- int32& ) peek ( int32& -- int32 ) 4 ( -- int32 ) call test ( int32, int32, int32 ) 309 ( -- int32 ) lvar-8+12 "s" ( -- S& ) peek ( S& -- S¢ ) item+12 "i2" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 16 ( -- int32 ) call test ( int32, int32, int32 ) 310 ( -- int32 ) lvar-8+12 "s" ( -- S& ) peek ( S& -- S¢ ) item+4 "f" ( -- float64& ) peek ( float64& -- float64 ) 5.5 ( -- float64 ) call test ( int32, float64, float64 ) 5555 ( -- int32 ) lvar-8+12 "s" ( -- S& ) peek ( S& -- S¢ ) item+0 "i4" ( -- int32& ) poke ( int32, int32& -- ) 666.6 ( -- float64 ) lvar-8+16 "s" ( -- S& ) peek ( S& -- S¢ ) item+4 "f" ( -- float64& ) poke ( float64, float64& -- ) 777 ( -- int16 ) lvar-8+12 "s" ( -- S& ) peek ( S& -- S¢ ) item+12 "i2" ( -- int16& ) poke ( int16, int16& -- ) "test" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) lvar-8+16 "s" ( -- S& ) peek ( S& -- S¢ ) item+14 "t" ( -- utf8str& ) swapwithvar ( utf8str, utf8str& -- utf8str ) dispose ( utf8str -- ) 315 ( -- int32 ) lvar-8+12 "s" ( -- S& ) peek ( S& -- S¢ ) item+14 "t" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) "test" ( -- utf8str¢ ) call test ( int32, utf8str¢, utf8str¢ ) 316 ( -- int32 ) lvar-8+12 "s" ( -- S& ) peek ( S& -- S¢ ) item+0 "i4" ( -- int32& ) peek ( int32& -- int32 ) 5555 ( -- int32 ) call test ( int32, int32, int32 ) 317 ( -- int32 ) lvar-8+12 "s" ( -- S& ) peek ( S& -- S¢ ) item+12 "i2" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- int32 ) 777 ( -- int32 ) call test ( int32, int32, int32 ) 318 ( -- int32 ) lvar-8+12 "s" ( -- S& ) peek ( S& -- S¢ ) item+4 "f" ( -- float64& ) peek ( float64& -- float64 ) 666.6 ( -- float64 ) call test ( int32, float64, float64 ) call! kill ( S -- S ) dispose ( S -- ) 7 ( -- uint32 ) 9 ( -- uint32 ) 342 ( -- int32 ) 0 ( -- int32 ) call f ( int32 -- uint32 ) 5 ( -- uint32 ) call test ( int32, uint32, uint32 ) 343 ( -- int32 ) 1 ( -- int32 ) call f ( int32 -- uint32 ) 13 ( -- uint32 ) call test ( int32, uint32, uint32 ) 344 ( -- int32 ) 2 ( -- int32 ) call f ( int32 -- uint32 ) 92 ( -- uint32 ) call test ( int32, uint32, uint32 ) 345 ( -- int32 ) 5 ( -- int32 ) call f ( int32 -- uint32 ) 95 ( -- uint32 ) call test ( int32, uint32, uint32 ) 346 ( -- int32 ) lvar-4+12 "a" ( -- uint32& ) peek ( uint32& -- uint32 ) 7 ( -- uint32 ) call test ( int32, uint32, uint32 ) drop ( uint32 -- ) drop ( uint32 -- ) 350 ( -- int32 ) -47 ( -- int32 ) abs ( int32 -- uint32 ) 47 ( -- uint32 ) call test ( int32, uint32, uint32 ) 351 ( -- int32 ) 47 ( -- int32 ) abs ( int32 -- uint32 ) 47 ( -- uint32 ) call test ( int32, uint32, uint32 ) 1.23 ( -- float64 ) 20 ( -- uint32 ) alloc ( uint32 -- S ) 1 ( -- float64 ) lvar-16+24 "s" ( -- S& ) peek ( S& -- S¢ ) item+4 "a" ( -- float64& ) poke ( float64, float64& -- ) 20 ( -- uint32 ) alloc ( uint32 -- S ) tor ( S -- ) 3 ( -- float64 ) peekr ( -- S¢ ) item+4 "a" ( -- float64& ) poke ( float64, float64& -- ) 2 ( -- float64 ) peekr ( -- S¢ ) item+12 "b" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- S ) lvar-16+24 "s" ( -- S& ) swapwithvar ( S, S& -- S ) dispose ( S -- ) 368 ( -- int32 ) lvar-16+20 "s" ( -- S& ) peek ( S& -- S¢ ) call prod ( S¢ -- float64 ) 6 ( -- float64 ) call test ( int32, float64, float64 ) NULL ( -- Z ) call! kill ( Z -- Z ) dispose ( Z -- ) dispose ( S -- ) drop ( float64 -- ) NULL ( -- int32(int32)* ) 0 ( -- float64 ) NULL ( -- float64* ) lvar-16+24 "a" ( -- float64& ) lvar-24+32 "pa" ( -- float64*& ) poke ( float64*, float64*& -- ) drop ( float64* -- ) drop ( float64 -- ) drop ( int32(int32)* -- ) pop_context0 ( -- ) local scope ANON { } local scope ANON { } local scope ANON { } local scope ANON { } local scope ANON { } local scope ANON { } local scope ANON { } local scope ANON { } local scope ANON { } local scope ANON { test_minimum_functionality.ANON.TYP test ( int32 a, int32 b ) { var int32 a var int32 b 0 ( -- TYP ) tor ( TYP -- ) drop ( int32 -- ) drop ( int32 -- ) fromr ( -- TYP ) } test_minimum_functionality.ANON.TYP test ( uint32 a, uint32 b ) { var uint32 a var uint32 b 1 ( -- TYP ) tor ( TYP -- ) drop ( uint32 -- ) drop ( uint32 -- ) fromr ( -- TYP ) } test_minimum_functionality.ANON.TYP test ( float64 a, float64 b ) { var float64 a var float64 b 4 ( -- TYP ) tor ( TYP -- ) drop ( float64 -- ) drop ( float64 -- ) fromr ( -- TYP ) } test_minimum_functionality.ANON.TYP test ( float128, float128 ) { var float128 ANON var float128 ANON 6 ( -- TYP ) tor ( TYP -- ) drop ( float128 -- ) drop ( float128 -- ) fromr ( -- TYP ) } test_minimum_functionality.ANON.TYP test ( float32, float32 ) { var float32 ANON var float32 ANON 5 ( -- TYP ) tor ( TYP -- ) drop ( float32 -- ) drop ( float32 -- ) fromr ( -- TYP ) } test_minimum_functionality.ANON.TYP test ( int64 a, int64 b ) { var int64 a var int64 b 2 ( -- TYP ) tor ( TYP -- ) drop ( int64 -- ) drop ( int64 -- ) fromr ( -- TYP ) } test_minimum_functionality.ANON.TYP test ( uint64 a, uint64 b ) { var uint64 a var uint64 b 3 ( -- TYP ) tor ( TYP -- ) drop ( uint64 -- ) drop ( uint64 -- ) fromr ( -- TYP ) } } local scope ANON { } local scope ANON { } local scope ANON { uint32 f ( int32 a ) { var int32 a int32 f0 () int32 f1 ( int32 c ) var int32 z var int32 d var int32 e var int32 f int32 f2 ( int32 c ) push_context1 ( -- ) 13 ( -- int32 ) 10 ( -- int32 ) 15 ( -- int32 ) lvar+0+12 "a" ( -- int32& ) peek ( int32& -- int32 ) switch ( int32 -- ) { 0:L1031, 1:L1032, dflt:L1033, join:L1029 } L1031: call f0 ( -- int32 ) jp ( -- ) -> L1029 L1032: 3 ( -- int32 ) call f1 ( int32 -- int32 ) jp ( -- ) -> L1029 L1033: lvar+0+12 "a" ( -- int32& ) peek ( int32& -- int32 ) call f2 ( int32 -- int32 ) jp ( -- ) -> L1029 L1029: tor ( uint32 -- ) drop ( int32 -- ) drop ( int32 -- ) drop ( int32 -- ) drop ( int32 -- ) fromr ( -- uint32 ) pop_context1 ( -- ) int32 f0 () { xxlvar+0 "a" ( -- int32& ) peek ( int32& -- int32 ) 5 ( -- uint32 ) + ( int32, uint32 -- int32 ) } int32 f1 ( int32 c ) { var int32 c var int32 z xxlvar+0 "a" ( -- int32& ) peek ( int32& -- int32 ) xlvar-8 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) + ( int32, uint32 -- int32 ) lvar+0+4 "c" ( -- int32& ) peek ( int32& -- int32 ) + ( int32, int32 -- int32 ) xxlvar+0 "a" ( -- int32& ) peek ( int32& -- int32 ) xlvar-8 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) + ( int32, uint32 -- int32 ) lvar+0+8 "c" ( -- int32& ) peek ( int32& -- int32 ) + ( int32, int32 -- int32 ) lvar+0+8 "c" ( -- int32& ) swapwithvar ( int32, int32& -- int32 ) drop ( int32 -- ) drop ( int32 -- ) } int32 f2 ( int32 c ) { var int32 c lvar+0+0 "c" ( -- int32& ) peek ( int32& -- int32 ) xxlvar-8 "e" ( -- int32& ) peek ( int32& -- int32 ) xlvar-8 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) * ( int32, uint32 -- int32 ) + ( int32, int32 -- int32 ) lvar+0+4 "c" ( -- int32& ) swapwithvar ( int32, int32& -- int32 ) drop ( int32 -- ) } } } local scope ANON { type S: float64 prod ( S¢ s ) { var test_minimum_functionality.ANON.S¢ s lvar+0+0 "s" ( -- S¢& ) peek ( S¢& -- S¢ ) item+4 "a" ( -- float64& ) peek ( float64& -- float64 ) lvar+0+8 "s" ( -- S¢& ) peek ( S¢& -- S¢ ) item+12 "b" ( -- float64& ) peek ( float64& -- float64 ) * ( float64, float64 -- float64 ) tor ( float64 -- ) drop ( S¢ -- ) fromr ( -- float64 ) } void myfoo ( S& ) { var test_minimum_functionality.ANON.S& ANON " myfoo " ( -- utf8str¢ ) print ( utf8str¢ ) drop ( S& -- ) } local scope ANON { } } local scope ANON { int32 inc ( int32 a ) { var int32 a lvar+0+0 "a" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) lvar+0+4 "a" ( -- int32& ) swapwithvar ( int32, int32& -- int32 ) drop ( int32 -- ) } int32 dec ( int32 a ) { var int32 a lvar+0+0 "a" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) - ( int32, uint32 -- int32 ) lvar+0+4 "a" ( -- int32& ) swapwithvar ( int32, int32& -- int32 ) drop ( int32 -- ) } } } } 0 ( -- int32 )