new-array-direct « .traces « arc - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

blob: 5af14e9c23e8bab0ba234f6cdcda756b64c3946c (plain) (tree)

b96af395 ^

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; paddic{0: 0 (((1 integer)) <- ((copy)) ((5 literal))) -- nil
c{0: 1 (((2 type-array-address)) <- ((new)) ((type-array literal)) ((1 integer))) -- nil
c{1: 0 ✓ (((1 integer)) <- ((copy)) ((5 literal)))
c{1: 1 ✓ (((2 type-array-address)) <- ((new)) ((type-array literal)) ((1 integer)))
cn0: convert-names in main
cn0: (((1 integer)) <- ((copy)) ((5 literal))) nil nil
cn0: checking arg ((5 literal))
cn0: checking oarg ((1 integer))
maybe-add: ((1 integer))
cn0: (((2 type-array-address)) <- ((new)) ((type-array literal)) ((1 integer))) nil nil
cn0: checking arg ((type-array literal))
cn0: checking arg ((1 integer))
maybe-add: ((1 integer))
cn0: checking oarg ((2 type-array-address))
maybe-add: ((2 type-array-address))
cn1: (((1 integer)) <- ((copy)) ((5 literal)))
cn1: (((2 type-array-address)) <- ((new)) ((type-array literal)) ((1 integer)))
schedule: main
run: main 0: (((1 integer)) <- ((copy)) ((5 literal)))
run: main 0: 5 => ((1 integer))
mem: ((1 integer)): 1 <= 5
run: main 1: (((2 type-array-address)) <- ((new)) ((type-array literal)) ((1 integer)))
mem: ((1 integer)) => 5
run: main 1: 1000 => ((2 type-array-address))
mem: ((2 type-array-address)): 2 <= 1000
schedule: done with routine nil