2012-03-23 16:42:39 -05:00
|
|
|
import libc, sys, unsafe;
|
|
|
|
|
|
|
|
enum arena = ();
|
|
|
|
|
2012-04-18 23:26:25 -05:00
|
|
|
type bcx& = {
|
2012-03-23 16:42:39 -05:00
|
|
|
fcx: &fcx
|
|
|
|
};
|
|
|
|
|
2012-04-18 23:26:25 -05:00
|
|
|
type fcx& = {
|
2012-03-23 16:42:39 -05:00
|
|
|
arena: &arena,
|
|
|
|
ccx: &ccx
|
|
|
|
};
|
|
|
|
|
|
|
|
type ccx = {
|
|
|
|
x: int
|
|
|
|
};
|
|
|
|
|
2012-03-23 17:17:34 -05:00
|
|
|
fn alloc(_bcx : &a.arena) -> &a.bcx unsafe {
|
2012-03-23 16:42:39 -05:00
|
|
|
ret unsafe::reinterpret_cast(libc::malloc(sys::size_of::<bcx>()));
|
|
|
|
}
|
|
|
|
|
|
|
|
fn h(bcx : &a.bcx) -> &a.bcx {
|
|
|
|
ret alloc(bcx.fcx.arena);
|
|
|
|
}
|
|
|
|
|
|
|
|
fn g(fcx : &fcx) {
|
|
|
|
let bcx = { fcx: fcx };
|
|
|
|
let bcx2 = h(&bcx);
|
2012-03-23 17:17:34 -05:00
|
|
|
unsafe {
|
|
|
|
libc::free(unsafe::reinterpret_cast(bcx2));
|
|
|
|
}
|
2012-03-23 16:42:39 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn f(ccx : &ccx) {
|
|
|
|
let a = arena(());
|
2012-03-23 17:05:39 -05:00
|
|
|
let fcx = { arena: &a, ccx: ccx };
|
2012-03-23 16:42:39 -05:00
|
|
|
ret g(&fcx);
|
|
|
|
}
|
|
|
|
|
|
|
|
fn main() {
|
|
|
|
let ccx = { x: 0 };
|
|
|
|
f(&ccx);
|
|
|
|
}
|
|
|
|
|