2012-06-02 19:42:48 -05:00
|
|
|
// xfail-win32
|
|
|
|
|
|
|
|
use std;
|
|
|
|
|
|
|
|
import tuple::{first, second};
|
|
|
|
import std::list::{list, cons, nil};
|
|
|
|
import std::time::precise_time_s;
|
|
|
|
|
|
|
|
fn main() {
|
|
|
|
let (repeat, depth) = if os::getenv("RUST_BENCH").is_some() {
|
|
|
|
(50, 1000)
|
|
|
|
} else {
|
|
|
|
(10, 10)
|
|
|
|
};
|
|
|
|
|
|
|
|
run(repeat, depth);
|
|
|
|
}
|
|
|
|
|
|
|
|
fn run(repeat: int, depth: int) {
|
|
|
|
iter::repeat(repeat as uint) { ||
|
|
|
|
#debug("starting %.4f", precise_time_s());
|
|
|
|
task::try { ||
|
|
|
|
recurse_or_fail(depth, none)
|
|
|
|
};
|
|
|
|
#debug("stopping %.4f", precise_time_s());
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
type nillist = list<()>;
|
|
|
|
|
|
|
|
// Filled with things that have to be unwound
|
|
|
|
enum st {
|
|
|
|
st_({
|
|
|
|
box: @nillist,
|
|
|
|
unique: ~nillist,
|
|
|
|
fn_box: fn@() -> @nillist,
|
|
|
|
fn_unique: fn~() -> ~nillist,
|
|
|
|
tuple: (@nillist, ~nillist),
|
2012-06-29 18:26:56 -05:00
|
|
|
vec: ~[@nillist],
|
2012-06-02 19:42:48 -05:00
|
|
|
res: r
|
|
|
|
})
|
|
|
|
}
|
|
|
|
|
2012-06-22 15:11:29 -05:00
|
|
|
class r {
|
|
|
|
let _l: @nillist;
|
|
|
|
new(l: @nillist) { self._l = l; }
|
|
|
|
drop {}
|
2012-06-02 19:42:48 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn recurse_or_fail(depth: int, st: option<st>) {
|
|
|
|
if depth == 0 {
|
|
|
|
#debug("unwinding %.4f", precise_time_s());
|
|
|
|
fail;
|
|
|
|
} else {
|
|
|
|
let depth = depth - 1;
|
|
|
|
|
|
|
|
let st = alt st {
|
|
|
|
none {
|
|
|
|
st_({
|
|
|
|
box: @nil,
|
|
|
|
unique: ~nil,
|
|
|
|
fn_box: fn@() -> @nillist { @nil::<()> },
|
|
|
|
fn_unique: fn~() -> ~nillist { ~nil::<()> },
|
|
|
|
tuple: (@nil, ~nil),
|
2012-06-29 18:26:56 -05:00
|
|
|
vec: ~[@nil],
|
2012-06-02 19:42:48 -05:00
|
|
|
res: r(@nil)
|
|
|
|
})
|
|
|
|
}
|
|
|
|
some(st) {
|
|
|
|
let fn_box = st.fn_box;
|
|
|
|
let fn_unique = st.fn_unique;
|
|
|
|
|
|
|
|
st_({
|
|
|
|
box: @cons((), st.box),
|
|
|
|
unique: ~cons((), @*st.unique),
|
|
|
|
fn_box: fn@() -> @nillist { @cons((), fn_box()) },
|
|
|
|
fn_unique: fn~() -> ~nillist { ~cons((), @*fn_unique()) },
|
|
|
|
tuple: (@cons((), first(st.tuple)),
|
|
|
|
~cons((), @*second(st.tuple))),
|
2012-06-29 18:26:56 -05:00
|
|
|
vec: st.vec + ~[@cons((), st.vec.last())],
|
2012-06-25 14:20:51 -05:00
|
|
|
res: r(@cons((), st.res._l))
|
2012-06-02 19:42:48 -05:00
|
|
|
})
|
|
|
|
}
|
|
|
|
};
|
|
|
|
|
|
|
|
recurse_or_fail(depth, some(st));
|
|
|
|
}
|
|
|
|
}
|