opcodes[]: global scope global { global scope implicit__test_core { } type utf8str: type ucs1str: type ucs2str: type FD: type BlockDevice: type IdeBlockDevice: type I2cBlockDevice: type SerialDevice: void test_core () { var uint16 sa var uint16 sp var uint16 se local scope ANON var uint8 a var uint8 b var uint8 c var uint8 d var uint8 e var uint8 f var uint8 g local scope ANON var int8 a var int8 b var int8 c var int8 d var int8 e var int8 f var int8 g local scope ANON var uint16 a var uint16 b var uint16 c var uint16 d var uint16 e var uint16 f var uint16 g local scope ANON var uint32 a var uint32 b var uint32 c var uint32 d var uint32 e var uint32 f var uint32 g gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 3 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) 77 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) 123456789 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) peek ( int8& -- int8 ) -3 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) peek ( int16& -- int16 ) -77 ( -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) peek ( int32& -- int32 ) -123456789 ( -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) 0 ( -- uint16 ) 32 ( -- uint16 ) 0 ( -- uint16 ) lvar-4+6 "sp" ( -- uint16& ) peek ( uint16& -- uint16 ) 32 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) 66 ( -- uint16 ) lvar-4+8 "sp" ( -- uint16& ) poke ( uint16, uint16& -- ) lvar-2+6 "sa" ( -- uint16& ) peek ( uint16& -- uint16 ) 66 ( -- uint16 ) != ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-6+6 "se" ( -- uint16& ) peek ( uint16& -- uint16 ) 66 ( -- uint16 ) != ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-4+6 "sp" ( -- uint16& ) peek ( uint16& -- uint16 ) 66 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) 77 ( -- uint16 ) lvar-6+8 "se" ( -- uint16& ) poke ( uint16, uint16& -- ) lvar-4+6 "sp" ( -- uint16& ) peek ( uint16& -- uint16 ) 66 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-6+6 "se" ( -- uint16& ) peek ( uint16& -- uint16 ) 77 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-4+6 "sp" ( -- uint16& ) lvar-4+8 "sp" ( -- uint16& ) poke ( uint16, uint16& -- ) lvar-4+6 "sp" ( -- uint16& ) lvar-4+8 "sp" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) ++ ( uint8& -- ) gvar-4 "u8" ( -- uint8& ) ++ ( uint8& -- ) gvar-4 "u8" ( -- uint8& ) ++ ( uint8& -- ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 6 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-24 "f1" ( -- bool& ) peek ( bool& -- bool ) cast ( bool -- uint8 ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L719 gvar-4 "u8" ( -- uint8& ) ++ ( uint8& -- ) jp ( -- ) -> L718 L719: gvar-24 "f1" ( -- bool& ) peek ( bool& -- bool ) cast ( bool -- uint8 ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L720 abort () jp ( -- ) -> L718 L720: abort () L718: gvar-22 "f0" ( -- bool& ) peek ( bool& -- bool ) cast ( bool -- uint8 ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L722 abort () jp ( -- ) -> L721 L722: gvar-24 "f1" ( -- bool& ) peek ( bool& -- bool ) cast ( bool -- uint8 ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L723 gvar-4 "u8" ( -- uint8& ) ++ ( uint8& -- ) jp ( -- ) -> L721 L723: abort () L721: gvar-22 "f0" ( -- bool& ) peek ( bool& -- bool ) cast ( bool -- uint8 ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L725 abort () jp ( -- ) -> L724 L725: gvar-22 "f0" ( -- bool& ) peek ( bool& -- bool ) cast ( bool -- uint8 ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L726 abort () jp ( -- ) -> L724 L726: gvar-4 "u8" ( -- uint8& ) ++ ( uint8& -- ) L724: lvar-4+6 "sp" ( -- uint16& ) lvar-4+8 "sp" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 9 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-22 "f0" ( -- bool& ) peek ( bool& -- bool ) and0 ( bool -- ) -> L727 call f11 ( -- bool ) L727: call assert0 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 9 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-24 "f1" ( -- bool& ) peek ( bool& -- bool ) and0 ( bool -- ) -> L728 call f00 ( -- bool ) L728: call assert0 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 10 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-22 "f0" ( -- bool& ) peek ( bool& -- bool ) and0 ( bool -- ) -> L729 call f00 ( -- bool ) L729: call assert0 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 10 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-24 "f1" ( -- bool& ) peek ( bool& -- bool ) and0 ( bool -- ) -> L730 call f11 ( -- bool ) L730: call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 11 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-22 "f0" ( -- bool& ) peek ( bool& -- bool ) or1 ( bool -- ) -> L731 call f11 ( -- bool ) L731: call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 12 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-24 "f1" ( -- bool& ) peek ( bool& -- bool ) or1 ( bool -- ) -> L732 call f00 ( -- bool ) L732: call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 12 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-22 "f0" ( -- bool& ) peek ( bool& -- bool ) or1 ( bool -- ) -> L733 call f00 ( -- bool ) L733: call assert0 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 13 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-24 "f1" ( -- bool& ) peek ( bool& -- bool ) or1 ( bool -- ) -> L734 call f11 ( -- bool ) L734: call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 13 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) 33 ( -- uint8 ) 4711 ( -- uint16 ) 2941309246 ( -- uint32 ) call test_gvar ( uint8, uint16, uint32 ) 255 ( -- uint8 ) 0 ( -- uint16 ) 4294967295 ( -- uint32 ) call test_gvar ( uint8, uint16, uint32 ) 0 ( -- uint8 ) 65535 ( -- uint16 ) 65535 ( -- uint32 ) call test_gvar ( uint8, uint16, uint32 ) 128 ( -- uint8 ) 32768 ( -- uint16 ) 16777215 ( -- uint32 ) call test_gvar ( uint8, uint16, uint32 ) 127 ( -- uint8 ) 32767 ( -- uint16 ) 255 ( -- uint32 ) call test_gvar ( uint8, uint16, uint32 ) 204 ( -- uint8 ) 52719 ( -- uint16 ) 0 ( -- uint32 ) call test_gvar ( uint8, uint16, uint32 ) 33 ( -- int8 ) 4711 ( -- int16 ) -1353658050 ( -- int32 ) call test_gvars ( int8, int16, int32 ) -1 ( -- int8 ) 0 ( -- int16 ) -1 ( -- int32 ) call test_gvars ( int8, int16, int32 ) 0 ( -- int8 ) -1 ( -- int16 ) 65535 ( -- int32 ) call test_gvars ( int8, int16, int32 ) -128 ( -- int8 ) -32768 ( -- int16 ) 16777215 ( -- int32 ) call test_gvars ( int8, int16, int32 ) 127 ( -- int8 ) 32767 ( -- int16 ) 255 ( -- int32 ) call test_gvars ( int8, int16, int32 ) -52 ( -- int8 ) -12817 ( -- int16 ) 0 ( -- int32 ) call test_gvars ( int8, int16, int32 ) 33 ( -- uint8 ) 44 ( -- uint8 ) 55 ( -- uint8 ) 66 ( -- uint8 ) 77 ( -- uint8 ) 88 ( -- uint8 ) 99 ( -- uint8 ) lvar-8+20 "a" ( -- uint8& ) peek ( uint8& -- uint8 ) 33 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-10+20 "b" ( -- uint8& ) peek ( uint8& -- uint8 ) 44 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-12+20 "c" ( -- uint8& ) peek ( uint8& -- uint8 ) 55 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-14+20 "d" ( -- uint8& ) peek ( uint8& -- uint8 ) 66 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-16+20 "e" ( -- uint8& ) peek ( uint8& -- uint8 ) 77 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-18+20 "f" ( -- uint8& ) peek ( uint8& -- uint8 ) 88 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-20+20 "g" ( -- uint8& ) peek ( uint8& -- uint8 ) 99 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) 3 ( -- uint8 ) lvar-8+22 "a" ( -- uint8& ) poke ( uint8, uint8& -- ) 4 ( -- uint8 ) lvar-10+22 "b" ( -- uint8& ) poke ( uint8, uint8& -- ) 5 ( -- uint8 ) lvar-12+22 "c" ( -- uint8& ) poke ( uint8, uint8& -- ) 6 ( -- uint8 ) lvar-14+22 "d" ( -- uint8& ) poke ( uint8, uint8& -- ) 7 ( -- uint8 ) lvar-16+22 "e" ( -- uint8& ) poke ( uint8, uint8& -- ) 8 ( -- uint8 ) lvar-18+22 "f" ( -- uint8& ) poke ( uint8, uint8& -- ) 255 ( -- uint8 ) lvar-20+22 "g" ( -- uint8& ) poke ( uint8, uint8& -- ) lvar-8+20 "a" ( -- uint8& ) peek ( uint8& -- uint8 ) 3 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-10+20 "b" ( -- uint8& ) peek ( uint8& -- uint8 ) 4 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-12+20 "c" ( -- uint8& ) peek ( uint8& -- uint8 ) 5 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-14+20 "d" ( -- uint8& ) peek ( uint8& -- uint8 ) 6 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-16+20 "e" ( -- uint8& ) peek ( uint8& -- uint8 ) 7 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-18+20 "f" ( -- uint8& ) peek ( uint8& -- uint8 ) 8 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-20+20 "g" ( -- uint8& ) peek ( uint8& -- uint8 ) 255 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-8+20 "a" ( -- uint8& ) ++ ( uint8& -- ) lvar-10+20 "b" ( -- uint8& ) ++ ( uint8& -- ) lvar-12+20 "c" ( -- uint8& ) ++ ( uint8& -- ) lvar-14+20 "d" ( -- uint8& ) ++ ( uint8& -- ) lvar-16+20 "e" ( -- uint8& ) ++ ( uint8& -- ) lvar-18+20 "f" ( -- uint8& ) ++ ( uint8& -- ) lvar-20+20 "g" ( -- uint8& ) ++ ( uint8& -- ) lvar-8+20 "a" ( -- uint8& ) peek ( uint8& -- uint8 ) 4 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-10+20 "b" ( -- uint8& ) peek ( uint8& -- uint8 ) 5 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-12+20 "c" ( -- uint8& ) peek ( uint8& -- uint8 ) 6 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-14+20 "d" ( -- uint8& ) peek ( uint8& -- uint8 ) 7 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-16+20 "e" ( -- uint8& ) peek ( uint8& -- uint8 ) 8 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-18+20 "f" ( -- uint8& ) peek ( uint8& -- uint8 ) 9 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-20+20 "g" ( -- uint8& ) peek ( uint8& -- uint8 ) 0 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) drop ( uint8 -- ) drop ( uint8 -- ) drop ( uint8 -- ) drop ( uint8 -- ) drop ( uint8 -- ) drop ( uint8 -- ) drop ( uint8 -- ) 33 ( -- int8 ) -44 ( -- int8 ) 55 ( -- int8 ) -66 ( -- int8 ) 77 ( -- int8 ) 88 ( -- int8 ) 99 ( -- int8 ) lvar-8+20 "a" ( -- int8& ) peek ( int8& -- int8 ) 33 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-10+20 "b" ( -- int8& ) peek ( int8& -- int8 ) -44 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-12+20 "c" ( -- int8& ) peek ( int8& -- int8 ) 55 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-14+20 "d" ( -- int8& ) peek ( int8& -- int8 ) -66 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-16+20 "e" ( -- int8& ) peek ( int8& -- int8 ) 77 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-18+20 "f" ( -- int8& ) peek ( int8& -- int8 ) 88 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-20+20 "g" ( -- int8& ) peek ( int8& -- int8 ) 99 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) -3 ( -- int8 ) lvar-8+22 "a" ( -- int8& ) poke ( int8, int8& -- ) 4 ( -- int8 ) lvar-10+22 "b" ( -- int8& ) poke ( int8, int8& -- ) 5 ( -- int8 ) lvar-12+22 "c" ( -- int8& ) poke ( int8, int8& -- ) 6 ( -- int8 ) lvar-14+22 "d" ( -- int8& ) poke ( int8, int8& -- ) -128 ( -- int8 ) lvar-16+22 "e" ( -- int8& ) poke ( int8, int8& -- ) 127 ( -- int8 ) lvar-18+22 "f" ( -- int8& ) poke ( int8, int8& -- ) -1 ( -- int8 ) lvar-20+22 "g" ( -- int8& ) poke ( int8, int8& -- ) lvar-8+20 "a" ( -- int8& ) peek ( int8& -- int8 ) -3 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-10+20 "b" ( -- int8& ) peek ( int8& -- int8 ) 4 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-12+20 "c" ( -- int8& ) peek ( int8& -- int8 ) 5 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-14+20 "d" ( -- int8& ) peek ( int8& -- int8 ) 6 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-16+20 "e" ( -- int8& ) peek ( int8& -- int8 ) -128 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-18+20 "f" ( -- int8& ) peek ( int8& -- int8 ) 127 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) 1 ( -- bool ) call assert1 ( bool ) lvar-8+20 "a" ( -- int8& ) ++ ( int8& -- ) lvar-10+20 "b" ( -- int8& ) ++ ( int8& -- ) lvar-12+20 "c" ( -- int8& ) ++ ( int8& -- ) lvar-14+20 "d" ( -- int8& ) ++ ( int8& -- ) lvar-16+20 "e" ( -- int8& ) ++ ( int8& -- ) lvar-18+20 "f" ( -- int8& ) ++ ( int8& -- ) lvar-20+20 "g" ( -- int8& ) ++ ( int8& -- ) lvar-8+20 "a" ( -- int8& ) peek ( int8& -- int8 ) -2 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-10+20 "b" ( -- int8& ) peek ( int8& -- int8 ) 5 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-12+20 "c" ( -- int8& ) peek ( int8& -- int8 ) 6 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-14+20 "d" ( -- int8& ) peek ( int8& -- int8 ) 7 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-16+20 "e" ( -- int8& ) peek ( int8& -- int8 ) -127 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-18+20 "f" ( -- int8& ) peek ( int8& -- int8 ) -128 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-20+20 "g" ( -- int8& ) peek ( int8& -- int8 ) 0 ( -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) drop ( int8 -- ) drop ( int8 -- ) drop ( int8 -- ) drop ( int8 -- ) drop ( int8 -- ) drop ( int8 -- ) drop ( int8 -- ) 9933 ( -- uint16 ) 9944 ( -- uint16 ) 9955 ( -- uint16 ) 9966 ( -- uint16 ) 9977 ( -- uint16 ) 9988 ( -- uint16 ) 9999 ( -- uint16 ) lvar-8+20 "a" ( -- uint16& ) peek ( uint16& -- uint16 ) 9933 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-10+20 "b" ( -- uint16& ) peek ( uint16& -- uint16 ) 9944 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-12+20 "c" ( -- uint16& ) peek ( uint16& -- uint16 ) 9955 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-14+20 "d" ( -- uint16& ) peek ( uint16& -- uint16 ) 9966 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-16+20 "e" ( -- uint16& ) peek ( uint16& -- uint16 ) 9977 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-18+20 "f" ( -- uint16& ) peek ( uint16& -- uint16 ) 9988 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-20+20 "g" ( -- uint16& ) peek ( uint16& -- uint16 ) 9999 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) 3 ( -- uint16 ) lvar-8+22 "a" ( -- uint16& ) poke ( uint16, uint16& -- ) 4 ( -- uint16 ) lvar-10+22 "b" ( -- uint16& ) poke ( uint16, uint16& -- ) 5 ( -- uint16 ) lvar-12+22 "c" ( -- uint16& ) poke ( uint16, uint16& -- ) 6 ( -- uint16 ) lvar-14+22 "d" ( -- uint16& ) poke ( uint16, uint16& -- ) 7 ( -- uint16 ) lvar-16+22 "e" ( -- uint16& ) poke ( uint16, uint16& -- ) 8 ( -- uint16 ) lvar-18+22 "f" ( -- uint16& ) poke ( uint16, uint16& -- ) 65535 ( -- uint16 ) lvar-20+22 "g" ( -- uint16& ) poke ( uint16, uint16& -- ) lvar-8+20 "a" ( -- uint16& ) peek ( uint16& -- uint16 ) 3 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-10+20 "b" ( -- uint16& ) peek ( uint16& -- uint16 ) 4 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-12+20 "c" ( -- uint16& ) peek ( uint16& -- uint16 ) 5 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-14+20 "d" ( -- uint16& ) peek ( uint16& -- uint16 ) 6 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-16+20 "e" ( -- uint16& ) peek ( uint16& -- uint16 ) 7 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-18+20 "f" ( -- uint16& ) peek ( uint16& -- uint16 ) 8 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-20+20 "g" ( -- uint16& ) peek ( uint16& -- uint16 ) 65535 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+20 "a" ( -- uint16& ) ++ ( uint16& -- ) lvar-10+20 "b" ( -- uint16& ) ++ ( uint16& -- ) lvar-12+20 "c" ( -- uint16& ) ++ ( uint16& -- ) lvar-14+20 "d" ( -- uint16& ) ++ ( uint16& -- ) lvar-16+20 "e" ( -- uint16& ) ++ ( uint16& -- ) lvar-18+20 "f" ( -- uint16& ) ++ ( uint16& -- ) lvar-20+20 "g" ( -- uint16& ) ++ ( uint16& -- ) lvar-8+20 "a" ( -- uint16& ) peek ( uint16& -- uint16 ) 4 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-10+20 "b" ( -- uint16& ) peek ( uint16& -- uint16 ) 5 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-12+20 "c" ( -- uint16& ) peek ( uint16& -- uint16 ) 6 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-14+20 "d" ( -- uint16& ) peek ( uint16& -- uint16 ) 7 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-16+20 "e" ( -- uint16& ) peek ( uint16& -- uint16 ) 8 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-18+20 "f" ( -- uint16& ) peek ( uint16& -- uint16 ) 9 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-20+20 "g" ( -- uint16& ) peek ( uint16& -- uint16 ) 0 ( -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) drop ( uint16 -- ) drop ( uint16 -- ) drop ( uint16 -- ) drop ( uint16 -- ) drop ( uint16 -- ) drop ( uint16 -- ) drop ( uint16 -- ) 9933 ( -- uint32 ) 559944 ( -- uint32 ) 55559955 ( -- uint32 ) 3555559966 ( -- uint32 ) 9977 ( -- uint32 ) 9988 ( -- uint32 ) 9999 ( -- uint32 ) lvar-10+34 "a" ( -- uint32& ) peek ( uint32& -- uint32 ) 9933 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-14+34 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) 559944 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-18+34 "c" ( -- uint32& ) peek ( uint32& -- uint32 ) 55559955 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-22+34 "d" ( -- uint32& ) peek ( uint32& -- uint32 ) 3555559966 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-26+34 "e" ( -- uint32& ) peek ( uint32& -- uint32 ) 9977 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-30+34 "f" ( -- uint32& ) peek ( uint32& -- uint32 ) 9988 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-34+34 "g" ( -- uint32& ) peek ( uint32& -- uint32 ) 9999 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) 333 ( -- uint32 ) lvar-10+38 "a" ( -- uint32& ) poke ( uint32, uint32& -- ) 4 ( -- uint32 ) lvar-14+38 "b" ( -- uint32& ) poke ( uint32, uint32& -- ) 555 ( -- uint32 ) lvar-18+38 "c" ( -- uint32& ) poke ( uint32, uint32& -- ) 6 ( -- uint32 ) lvar-22+38 "d" ( -- uint32& ) poke ( uint32, uint32& -- ) 7 ( -- uint32 ) lvar-26+38 "e" ( -- uint32& ) poke ( uint32, uint32& -- ) 8 ( -- uint32 ) lvar-30+38 "f" ( -- uint32& ) poke ( uint32, uint32& -- ) 4294967295 ( -- uint32 ) lvar-34+38 "g" ( -- uint32& ) poke ( uint32, uint32& -- ) lvar-10+34 "a" ( -- uint32& ) peek ( uint32& -- uint32 ) 333 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-14+34 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) 4 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-18+34 "c" ( -- uint32& ) peek ( uint32& -- uint32 ) 555 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-22+34 "d" ( -- uint32& ) peek ( uint32& -- uint32 ) 6 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-26+34 "e" ( -- uint32& ) peek ( uint32& -- uint32 ) 7 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-30+34 "f" ( -- uint32& ) peek ( uint32& -- uint32 ) 8 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-34+34 "g" ( -- uint32& ) peek ( uint32& -- uint32 ) 4294967295 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-10+34 "a" ( -- uint32& ) ++ ( uint32& -- ) lvar-14+34 "b" ( -- uint32& ) ++ ( uint32& -- ) lvar-18+34 "c" ( -- uint32& ) ++ ( uint32& -- ) lvar-22+34 "d" ( -- uint32& ) ++ ( uint32& -- ) lvar-26+34 "e" ( -- uint32& ) ++ ( uint32& -- ) lvar-30+34 "f" ( -- uint32& ) ++ ( uint32& -- ) lvar-34+34 "g" ( -- uint32& ) ++ ( uint32& -- ) lvar-10+34 "a" ( -- uint32& ) peek ( uint32& -- uint32 ) 334 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-14+34 "b" ( -- uint32& ) peek ( uint32& -- uint32 ) 5 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-18+34 "c" ( -- uint32& ) peek ( uint32& -- uint32 ) 556 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-22+34 "d" ( -- uint32& ) peek ( uint32& -- uint32 ) 7 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-26+34 "e" ( -- uint32& ) peek ( uint32& -- uint32 ) 8 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-30+34 "f" ( -- uint32& ) peek ( uint32& -- uint32 ) 9 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-34+34 "g" ( -- uint32& ) peek ( uint32& -- uint32 ) 0 ( -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) drop ( uint32 -- ) drop ( uint32 -- ) drop ( uint32 -- ) drop ( uint32 -- ) drop ( uint32 -- ) drop ( uint32 -- ) drop ( uint32 -- ) 33 ( -- uint8 ) 4711 ( -- uint16 ) 2941309246 ( -- uint32 ) call test_lvar ( uint8, uint16, uint32 ) 255 ( -- uint8 ) 0 ( -- uint16 ) 4294967295 ( -- uint32 ) call test_lvar ( uint8, uint16, uint32 ) 0 ( -- uint8 ) 65535 ( -- uint16 ) 65535 ( -- uint32 ) call test_lvar ( uint8, uint16, uint32 ) 128 ( -- uint8 ) 32768 ( -- uint16 ) 16777215 ( -- uint32 ) call test_lvar ( uint8, uint16, uint32 ) 127 ( -- uint8 ) 32767 ( -- uint16 ) 255 ( -- uint32 ) call test_lvar ( uint8, uint16, uint32 ) 204 ( -- uint8 ) 52719 ( -- uint16 ) 0 ( -- uint32 ) call test_lvar ( uint8, uint16, uint32 ) 33 ( -- int8 ) 4711 ( -- int16 ) -1353658050 ( -- int32 ) call test_lvars ( int8, int16, int32 ) -1 ( -- int8 ) 0 ( -- int16 ) -1 ( -- int32 ) call test_lvars ( int8, int16, int32 ) 0 ( -- int8 ) -1 ( -- int16 ) 65535 ( -- int32 ) call test_lvars ( int8, int16, int32 ) -128 ( -- int8 ) -32768 ( -- int16 ) 16777215 ( -- int32 ) call test_lvars ( int8, int16, int32 ) 127 ( -- int8 ) 32767 ( -- int16 ) 255 ( -- int32 ) call test_lvars ( int8, int16, int32 ) -52 ( -- int8 ) -12817 ( -- int16 ) 0 ( -- int32 ) call test_lvars ( int8, int16, int32 ) 1 ( -- uint8 ) gvar-4 "u8" ( -- uint8& ) poke ( uint8, uint8& -- ) 1 ( -- uint16 ) gvar-6 "u16" ( -- uint16& ) poke ( uint16, uint16& -- ) 1 ( -- uint32 ) gvar-10 "u32" ( -- uint32& ) poke ( uint32, uint32& -- ) L735: gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) call test_gvar ( uint8, uint16, uint32 ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) call test_gvars ( int8, int16, int32 ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) call test_lvar ( uint8, uint16, uint32 ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) call test_lvars ( int8, int16, int32 ) gvar-4 "u8" ( -- uint8& ) ++ ( uint8& -- ) 1281 ( -- uint16 ) gvar-6 "u16" ( -- uint16& ) += ( uint16, uint16& -- ) 151454977 ( -- uint32 ) gvar-10 "u32" ( -- uint32& ) += ( uint32, uint32& -- ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) 0 ( -- uint8 ) != ( uint8, uint8 -- bool ) jp_z ( bool -- ) -> L736 jp ( -- ) -> L735 L736: lvar-4+6 "sp" ( -- uint16& ) lvar-4+8 "sp" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-2 "ulim" ( -- uint8& ) peek ( uint8& -- uint8 ) 99 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-12 "olim" ( -- uint8& ) peek ( uint8& -- uint8 ) 88 ( -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) drop ( uint16 -- ) drop ( uint16 -- ) drop ( uint16 -- ) local scope ANON { } local scope ANON { } local scope ANON { } local scope ANON { } } void test_lvars ( int8 n8, int16 n16, int32 n32 ) { var int8 n8 var int16 n16 var int32 n32 var int8 i8 var int16 i16 var int32 i32 lvar+6+0 "n8" ( -- int8& ) peek ( int8& -- int8 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) lvar-2+8 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) lvar-2+8 "i8" ( -- int8& ) ++ ( int8& -- ) lvar-4+8 "i16" ( -- int16& ) ++ ( int16& -- ) lvar-8+8 "i32" ( -- int32& ) ++ ( int32& -- ) lvar-2+8 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) cast ( int16 -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) lvar-2+8 "i8" ( -- int8& ) -- ( int8& -- ) lvar-4+8 "i16" ( -- int16& ) -- ( int16& -- ) lvar-8+8 "i32" ( -- int32& ) -- ( int32& -- ) lvar-2+8 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) lvar-2+8 "i8" ( -- int8& ) pppeek ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) cast ( int16 -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) pppeek ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) pppeek ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) lvar-2+8 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) cast ( int16 -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) lvar-2+8 "i8" ( -- int8& ) mmpeek ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) mmpeek ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) mmpeek ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) lvar-2+8 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) lvar-2+8 "i8" ( -- int8& ) peekpp ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) peekpp ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) peekpp ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) lvar-2+8 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) cast ( int16 -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) lvar-2+8 "i8" ( -- int8& ) peekmm ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) cast ( int16 -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) peekmm ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) peekmm ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) lvar-2+8 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+10 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) lvar-4+8 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+10 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) lvar-8+8 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+12 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) drop ( int32 -- ) drop ( int16 -- ) drop ( int8 -- ) drop ( int32 -- ) drop ( int16 -- ) drop ( int8 -- ) } void test_lvar ( uint8 n8, uint16 n16, uint32 n32 ) { var uint8 n8 var uint16 n16 var uint32 n32 var uint8 u8 var uint16 u16 var uint32 u32 lvar+6+0 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar-2+8 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-2+8 "u8" ( -- uint8& ) ++ ( uint8& -- ) lvar-4+8 "u16" ( -- uint16& ) ++ ( uint16& -- ) lvar-8+8 "u32" ( -- uint32& ) ++ ( uint32& -- ) lvar-2+8 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-2+8 "u8" ( -- uint8& ) -- ( uint8& -- ) lvar-4+8 "u16" ( -- uint16& ) -- ( uint16& -- ) lvar-8+8 "u32" ( -- uint32& ) -- ( uint32& -- ) lvar-2+8 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-2+8 "u8" ( -- uint8& ) pppeek ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) pppeek ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) pppeek ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-2+8 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-2+8 "u8" ( -- uint8& ) mmpeek ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) mmpeek ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) mmpeek ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-2+8 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-2+8 "u8" ( -- uint8& ) peekpp ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) peekpp ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) peekpp ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-2+8 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-2+8 "u8" ( -- uint8& ) peekmm ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) peekmm ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) peekmm ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) lvar-2+8 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+10 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) lvar-4+8 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+10 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) lvar-8+8 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+12 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) drop ( uint32 -- ) drop ( uint16 -- ) drop ( uint8 -- ) drop ( uint32 -- ) drop ( uint16 -- ) drop ( uint8 -- ) } void test_gvar ( uint8 n8, uint16 n16, uint32 n32 ) { var uint8 n8 var uint16 n16 var uint32 n32 lvar+6+0 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) gvar-4 "u8" ( -- uint8& ) poke ( uint8, uint8& -- ) lvar+4+0 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) gvar-6 "u16" ( -- uint16& ) poke ( uint16, uint16& -- ) lvar+0+0 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) gvar-10 "u32" ( -- uint32& ) poke ( uint32, uint32& -- ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) ++ ( uint8& -- ) gvar-6 "u16" ( -- uint16& ) ++ ( uint16& -- ) gvar-10 "u32" ( -- uint32& ) ++ ( uint32& -- ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) -- ( uint8& -- ) gvar-6 "u16" ( -- uint16& ) -- ( uint16& -- ) gvar-10 "u32" ( -- uint32& ) -- ( uint32& -- ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) pppeek ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) pppeek ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) pppeek ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) mmpeek ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) mmpeek ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) mmpeek ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peekpp ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) peekpp ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) peekpp ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peekmm ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) cast ( uint8 -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) cast ( uint16 -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) peekmm ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) 1 ( -- uint16 ) + ( uint16, uint16 -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) peekmm ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) gvar-4 "u8" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+6+2 "n8" ( -- uint8& ) peek ( uint8& -- uint8 ) == ( uint8, uint8 -- bool ) call assert1 ( bool ) gvar-6 "u16" ( -- uint16& ) peek ( uint16& -- uint16 ) lvar+4+2 "n16" ( -- uint16& ) peek ( uint16& -- uint16 ) == ( uint16, uint16 -- bool ) call assert1 ( bool ) gvar-10 "u32" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar+0+4 "n32" ( -- uint32& ) peek ( uint32& -- uint32 ) == ( uint32, uint32 -- bool ) call assert1 ( bool ) drop ( uint32 -- ) drop ( uint16 -- ) drop ( uint8 -- ) } void test_gvars ( int8 n8, int16 n16, int32 n32 ) { var int8 n8 var int16 n16 var int32 n32 lvar+6+0 "n8" ( -- int8& ) peek ( int8& -- int8 ) gvar-14 "i8" ( -- int8& ) poke ( int8, int8& -- ) lvar+4+0 "n16" ( -- int16& ) peek ( int16& -- int16 ) gvar-16 "i16" ( -- int16& ) poke ( int16, int16& -- ) lvar+0+0 "n32" ( -- int32& ) peek ( int32& -- int32 ) gvar-20 "i32" ( -- int32& ) poke ( int32, int32& -- ) gvar-14 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) ++ ( int8& -- ) gvar-16 "i16" ( -- int16& ) ++ ( int16& -- ) gvar-20 "i32" ( -- int32& ) ++ ( int32& -- ) gvar-14 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) cast ( int16 -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) -- ( int8& -- ) gvar-16 "i16" ( -- int16& ) -- ( int16& -- ) gvar-20 "i32" ( -- int32& ) -- ( int32& -- ) gvar-14 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) pppeek ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) cast ( int16 -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) pppeek ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) pppeek ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) cast ( int16 -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) mmpeek ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) mmpeek ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) mmpeek ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) peekpp ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) peekpp ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) peekpp ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) cast ( int16 -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) peekmm ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) cast ( int8 -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) cast ( int16 -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) peekmm ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) 1 ( -- uint16 ) + ( int16, uint16 -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) peekmm ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) 1 ( -- uint32 ) + ( int32, uint32 -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) gvar-14 "i8" ( -- int8& ) peek ( int8& -- int8 ) lvar+6+2 "n8" ( -- int8& ) peek ( int8& -- int8 ) == ( int8, int8 -- bool ) call assert1 ( bool ) gvar-16 "i16" ( -- int16& ) peek ( int16& -- int16 ) lvar+4+2 "n16" ( -- int16& ) peek ( int16& -- int16 ) == ( int16, int16 -- bool ) call assert1 ( bool ) gvar-20 "i32" ( -- int32& ) peek ( int32& -- int32 ) lvar+0+4 "n32" ( -- int32& ) peek ( int32& -- int32 ) == ( int32, int32 -- bool ) call assert1 ( bool ) drop ( int32 -- ) drop ( int16 -- ) drop ( int8 -- ) } bool f00 () { gvar-4 "u8" ( -- uint8& ) ++ ( uint8& -- ) 0 ( -- bool ) } bool f11 () { gvar-4 "u8" ( -- uint8& ) ++ ( uint8& -- ) 1 ( -- bool ) } } 99 ( -- uint8 ) gsinit "ulim" 3 ( -- uint8 ) gsinit "u8" 77 ( -- uint16 ) gsinit "u16" 123456789 ( -- uint32 ) gsinit "u32" 88 ( -- uint8 ) gsinit "olim" -3 ( -- int8 ) gsinit "i8" -77 ( -- int16 ) gsinit "i16" -123456789 ( -- int32 ) gsinit "i32" 0 ( -- bool ) gsinit "f0" 1 ( -- bool ) gsinit "f1"