2012-03-23 16:42:39 -05:00
|
|
|
import libc, sys, unsafe;
|
|
|
|
|
|
|
|
enum arena = ();
|
|
|
|
|
2012-07-11 12:28:30 -05:00
|
|
|
type bcx = {
|
2012-03-23 16:42:39 -05:00
|
|
|
fcx: &fcx
|
|
|
|
};
|
|
|
|
|
2012-07-11 12:28:30 -05:00
|
|
|
type fcx = {
|
2012-03-23 16:42:39 -05:00
|
|
|
arena: &arena,
|
|
|
|
ccx: &ccx
|
|
|
|
};
|
|
|
|
|
|
|
|
type ccx = {
|
|
|
|
x: int
|
|
|
|
};
|
|
|
|
|
2012-07-18 13:01:54 -05:00
|
|
|
fn alloc(_bcx : &arena) -> &bcx unsafe {
|
2012-06-04 19:26:17 -05:00
|
|
|
ret unsafe::reinterpret_cast(
|
|
|
|
libc::malloc(sys::size_of::<bcx/&blk>() as libc::size_t));
|
2012-03-23 16:42:39 -05:00
|
|
|
}
|
|
|
|
|
2012-07-18 13:01:54 -05:00
|
|
|
fn h(bcx : &bcx) -> &bcx {
|
2012-03-23 16:42:39 -05:00
|
|
|
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);
|
|
|
|
}
|
|
|
|
|