rust/src/test/run-pass/mlist-cycle.rs

// -*- rust -*-

use std;

type cell = tup(mutable @list);
type list = tag(link(@cell), nil());

fn main() {
  let @cell first = tup(@nil());
  let @cell second = tup(@link(first));
  first._0 = link(second);
  std.sys.rustrt.gc();
  let @cell third = tup(@nil());
}
Populate tree. 2010-06-23 21:03:09 -07:00			`// -- rust --`

Add callable gc method exposed to user code, use it in mlist-cycle.rs test (still not quite working; some memory corruption in the recursive tag constructors, not the GC) 2010-06-25 23:57:30 -07:00			`use std;`

Fix bad output-slot logic in tag constructors. 2010-06-24 18:25:10 -07:00			`type cell = tup(mutable @list);`
			`type list = tag(link(@cell), nil());`
Populate tree. 2010-06-23 21:03:09 -07:00
			`fn main() {`
Fix bad output-slot logic in tag constructors. 2010-06-24 18:25:10 -07:00			`let @cell first = tup(@nil());`
			`let @cell second = tup(@link(first));`
			`first._0 = link(second);`
Add callable gc method exposed to user code, use it in mlist-cycle.rs test (still not quite working; some memory corruption in the recursive tag constructors, not the GC) 2010-06-25 23:57:30 -07:00			`std.sys.rustrt.gc();`
			`let @cell third = tup(@nil());`
Populate tree. 2010-06-23 21:03:09 -07:00			`}`