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