sinopt: various bugfixes
[urasm.git] / urflibs / tests / test-sinopt-shifts-03.f
blob2b5b2986d7dda17652112de5ea250aeb035cba70
1 0 value val
3 : test-0 ( n -- n ) -4 rshift ;
4 .( -4 rshift\n)
5 debug:decompile test-0
7 : test-1 ( n -- n ) -3 rshift ;
8 .( -3 rshift\n)
9 debug:decompile test-1
11 : test-2 ( n -- n ) -2 rshift ;
12 .( -2 rshift\n)
13 debug:decompile test-2
15 : test-3 ( n -- n ) -1 rshift ;
16 .( -1 rshift\n)
17 debug:decompile test-3
19 : test-4 ( n -- n ) 0 rshift ;
20 .( 0 rshift\n)
21 debug:decompile test-4
23 : test-5 ( n -- n ) 1 rshift ;
24 .( 1 rshift\n)
25 debug:decompile test-5
27 : test-6 ( n -- n ) 2 rshift ;
28 .( 2 rshift\n)
29 debug:decompile test-6
31 : test-7 ( n -- n ) 3 rshift ;
32 .( 3 rshift\n)
33 debug:decompile test-7
35 : test-8 ( n -- n ) 4 rshift ;
36 .( 4 rshift\n)
37 debug:decompile test-8
40 debug:dump-stack