sinopt: various bugfixes
[urasm.git] / urflibs / tests / test-sinopt-divs-01.f
blobf01dc5b0dcfd6d8a72ae7942026a751b3649a36d
1 0 value val
3 : test-0 ( n -- n ) 9 u/ ;
4 .( 9 *\n)
5 debug:decompile test-0
7 : test-1 ( n -- n ) 8 u/ ;
8 .( 8 *\n)
9 debug:decompile test-1
11 : test-2 ( n -- n ) 7 u/ ;
12 .( 7 *\n)
13 debug:decompile test-2
15 : test-3 ( n -- n ) 6 u/ ;
16 .( 6 *\n)
17 debug:decompile test-3
19 : test-4 ( n -- n ) 5 u/ ;
20 .( 5 *\n)
21 debug:decompile test-4
23 : test-5 ( n -- n ) 4 u/ ;
24 .( 4 *\n)
25 debug:decompile test-5
27 : test-6 ( n -- n ) 3 u/ ;
28 .( 3 *\n)
29 debug:decompile test-6
31 : test-7 ( n -- n ) 2 u/ ;
32 .( 2 *\n)
33 debug:decompile test-7
35 : test-8 ( n -- n ) 1 u/ ;
36 .( 1 *\n)
37 debug:decompile test-8
39 : test-9 ( n -- n ) 0 u/ ;
40 .( 0 *\n)
41 debug:decompile test-9
43 : test-a ( n -- n ) -1 u/ ;
44 .( -1 *\n)
45 debug:decompile test-a
47 : test-b ( n -- n ) -2 u/ ;
48 .( -2 *\n)
49 debug:decompile test-b
52 debug:dump-stack