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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
// byte ops called from o3 stay in the region. ld8/st8 and the 16- and 32-bit
// pair are opcodes there, on the interpreter, the arm64 jit and llvm.
fn sp() { put_c(32); return 0; }
fn litw(v) { return v + v + 1; }
fn f() { put_c('A'); return 0; }
fn main() {
let buf[4], b, i, s, t, p, v, w;
i = 0;
while (i < 4) { buf[i] = 0; i++; }
b = addr_b(buf);
i = 0;
s = 0;
o3 {
while (i < 20) {
t = b + i;
st8(t, i);
s = s + ld8(t);
i++;
}
}
put_n(s); sp();
o3 { st16(b, 4660); w = ld16(b); }
put_n(w); sp();
t = b + 7;
o3 { w = ld8(t); }
put_n(w); sp();
o3 { w = ld16(t); }
put_n(w); sp();
t = b + 10;
v = 16909060;
o3 { st32(t, v); w = ld32(t); }
put_n(w); sp();
t = 0 - 1;
o3 { st8(t, v); w = ld8(t); }
put_n(w); sp();
t = addr_b(MW) - 1;
o3 { w = ld16(t); }
put_n(w);
put_c(10);
p = f;
f();
while (*p != litw('A')) p++;
t = addr_b(p);
v = litw('B') & 255;
o3 { st8(t, v); }
f();
v = litw('C') & 255;
o3 { st8(t, v); }
f();
put_c(10);
return 0;
}
|
