add a thp-based huge page alloc fallback
[pcsx_rearmed.git] / deps / lightning / check / factorial.tst
1 .data   32
2 str:
3 .c      "%.0lf\n"
4 .code
5         jmpi main
6 /*
7  *      double factorial(unsigned long n) {
8  *              double r = 1;
9  *              while (n > 1) {
10  *                      r *= n;
11  *                      --n;
12  *              }
13  *              return r;
14  *      }
15  */
16 factorial:
17         prolog
18         arg $n
19         getarg %r0 $n
20         movi_d %f0 1.0
21         extr_d %f1 %r0
22         movr_d %f2 %f0
23 loop:
24         bltr_d done %f1 %f2
25         mulr_d %f0 %f0 %f1
26         subr_d %f1 %f1 %f2
27         jmpi loop
28 done:
29         retr_d %f0
30         epilog
31
32 /*
33  *      int main(int argc, char *argv[]) {
34  *              unsigned long v;
35  *              double d;
36  *              if (argc == 2)
37  *                      v = strtoul(argv[1], NULL, 0);
38  *              else
39  *                      v = 32;
40  *              d = factorial(v);
41  *              printf("%.0lf\n", d);
42  *              return 0;
43  *      }
44  */
45 main:
46         prolog
47         arg $argc
48         arg $argv
49         getarg %r0 $argc
50         bnei default %r0 2
51         getarg %v0 $argv
52         ldxi %r0 %v0 $(__WORDSIZE >> 3)
53         prepare
54                 pushargr %r0
55                 pushargi 0
56                 pushargi 0
57         finishi @strtoul
58         retval %v0
59         jmpi call
60 default:
61     movi %v0 32
62 call:
63         prepare
64                 pushargr %v0
65         finishi factorial
66         retval_d %f0
67         prepare
68                 pushargi str
69                 ellipsis
70                 pushargr_d %f0
71         finishi @printf
72         reti 0
73         epilog