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

// -*- rust -*-

use std;

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

fn main() {
  let @cell first = @tup(mutable @nil());
  let @cell second = @tup(mutable @link(first));
  first._0 = @link(second);
  std.sys.rustrt.gc();
  let @cell third = @tup(mutable @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);`
Switch tags to purely nominal, removing TY_iso and TY_idx. Seems to mostly work, possibly a little bumpy. Changes a lot. 2010-09-09 15:59:29 -07:00			`tag list {`
			`link(@cell);`
			`nil();`
			`}`
Populate tree. 2010-06-23 21:03:09 -07:00
			`fn main() {`
A certain incomplete quantity of wrestling with "INIT" statements that don't actually initialize. Should probably rename them to MAKE. Anyway, WIP, but two steps forward (and one back). More later. 2010-07-22 17:05:45 -07:00			`let @cell first = @tup(mutable @nil());`
			`let @cell second = @tup(mutable @link(first));`
Fix the next typo in mlist-cycle.rs; still doesn't work. 2010-07-13 14:27:23 -07:00			`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();`
A certain incomplete quantity of wrestling with "INIT" statements that don't actually initialize. Should probably rename them to MAKE. Anyway, WIP, but two steps forward (and one back). More later. 2010-07-22 17:05:45 -07:00			`let @cell third = @tup(mutable @nil());`
Populate tree. 2010-06-23 21:03:09 -07:00			`}`