2012-03-23 17:28:47 -05:00
|
|
|
import libc, sys, unsafe;
|
|
|
|
|
|
|
|
enum arena = ();
|
|
|
|
|
2012-04-19 22:05:50 -05:00
|
|
|
type bcx/& = {
|
2012-03-23 17:28:47 -05:00
|
|
|
fcx: &fcx
|
|
|
|
};
|
|
|
|
|
2012-04-19 22:05:50 -05:00
|
|
|
type fcx/& = {
|
2012-03-23 17:28:47 -05:00
|
|
|
arena: &arena,
|
|
|
|
ccx: &ccx
|
|
|
|
};
|
|
|
|
|
|
|
|
type ccx = {
|
|
|
|
x: int
|
|
|
|
};
|
|
|
|
|
|
|
|
impl arena for arena {
|
|
|
|
fn alloc(sz: uint, _align: uint) -> *() unsafe {
|
2012-06-04 19:26:17 -05:00
|
|
|
ret unsafe::reinterpret_cast(libc::malloc(sz as libc::size_t));
|
2012-03-23 17:28:47 -05:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
fn h(bcx : &bcx) -> &bcx {
|
2012-03-23 17:44:37 -05:00
|
|
|
ret new(*bcx.fcx.arena) { fcx: bcx.fcx };
|
2012-03-23 17:28:47 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn g(fcx : &fcx) {
|
|
|
|
let bcx = { fcx: fcx };
|
|
|
|
let bcx2 = h(&bcx);
|
|
|
|
unsafe {
|
|
|
|
libc::free(unsafe::reinterpret_cast(bcx2));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
fn f(ccx : &ccx) {
|
|
|
|
let a = arena(());
|
|
|
|
let fcx = { arena: &a, ccx: ccx };
|
|
|
|
ret g(&fcx);
|
|
|
|
}
|
|
|
|
|
|
|
|
fn main() {
|
|
|
|
let ccx = { x: 0 };
|
|
|
|
f(&ccx);
|
|
|
|
}
|
|
|
|
|