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