test_treeshake_translate « tools - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

blob: 1aa6f068f0280d3e949e1c8040ce514c0789a5f6 (plain) (tree)

c1d596f5 ^

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-07-07 06:43:33 +0000

class="o">-state fs, filename render fs exit-status <- copy 0 } fn render fs: (addr file-state) { render-normal fs } fn render-normal fs: (addr file-state) { { var c/eax: byte <- next-char fs # if (c == EOF) break compare c, 0xffffffff # EOF marker break-if-= # print-byte c # loop } } fn first-arg args-on-stack: (addr array (addr array byte)) -> out/eax: (addr array byte) { var args/eax: (addr array (addr array byte)) <- copy args-on-stack var result/eax: (addr addr array byte) <- index args, 1 out <- copy *result }