blob: 5e8c5fa2b64dd9ae09c9d0be16758e16f007cae6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
// TODO: check for failed calloc
calloc ::= #foreign("calloc", "libc.so.6") fn(#C size_t, #C size_t) #C &"void";
free ::= #foreign("free", "libc.so.6") fn(#C &"void");
new ::= fn(t :: Type) &t {
calloc(1, (sizeof t) as u64)
}
news ::= fn(t :: Type, n : int) []t {
s: []t;
s.data = calloc(n as u64, (sizeof t) as u64);
s.len = n;
s
}
// TODO(eventually): use type information to make this just one function
del ::= fn(t::=, x: &t) {
free(x);
}
dels ::= fn(t::=, x: []t) {
free(x.data);
}
|