blob: 55951a5dc613376a12fd0adcf7dd00e560e5e8da (
plain) (
blame)
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
|
namespace;
include rt;
// a uniquely owned free returns the block to its size class at once.
// a plain free still quarantines; that contract lives in quarantine.zc.
struct node { node* c; int n; };
unchecked fn addr(p) { return p; }
fn main() {
let base = rt.live_objects(), p, q, slot;
node* a;
node* b;
p = rt.new(4);
a = rt.new(node);
b = rt.new(node);
p[0] = 111;
a.c = b; a.n = 1; b.c = 0; b.n = 2;
slot = addr(p);
rt.free(d*p);
q = rt.new(4);
rt.free(d*a);
rt.put_n(q == slot); rt.put_c(' ');
rt.put_n(q[0]); rt.put_c(' ');
rt.put_n(rt.live_objects() - base); rt.put_c(10);
rt.free(d*q);
return 0;
}
|
