2012-03-26 05:54:06 -05:00
|
|
|
import syntax::ast::*;
|
|
|
|
import syntax::visit;
|
|
|
|
import driver::session::session;
|
|
|
|
|
|
|
|
type ctx = {in_loop: bool, can_ret: bool};
|
|
|
|
|
2012-03-26 09:09:27 -05:00
|
|
|
fn check_crate(tcx: ty::ctxt, crate: @crate) {
|
2012-03-26 05:54:06 -05:00
|
|
|
visit::visit_crate(*crate, {in_loop: false,can_ret: true}, visit::mk_vt(@{
|
2012-06-30 18:19:07 -05:00
|
|
|
visit_item: |i, _cx, v| {
|
2012-03-26 05:54:06 -05:00
|
|
|
visit::visit_item(i, {in_loop: false, can_ret: true}, v);
|
|
|
|
},
|
2012-06-30 18:19:07 -05:00
|
|
|
visit_expr: |e: @expr, cx: ctx, v: visit::vt<ctx>| {
|
2012-03-26 05:54:06 -05:00
|
|
|
alt e.node {
|
2012-05-09 11:17:27 -05:00
|
|
|
expr_while(e, b) {
|
2012-03-26 05:54:06 -05:00
|
|
|
v.visit_expr(e, cx, v);
|
|
|
|
v.visit_block(b, {in_loop: true with cx}, v);
|
|
|
|
}
|
|
|
|
expr_loop(b) {
|
|
|
|
v.visit_block(b, {in_loop: true with cx}, v);
|
|
|
|
}
|
|
|
|
expr_fn(_, _, _, _) {
|
|
|
|
visit::visit_expr(e, {in_loop: false, can_ret: true}, v);
|
|
|
|
}
|
2012-05-04 14:33:04 -05:00
|
|
|
expr_fn_block(_, b, _) {
|
2012-03-26 09:09:27 -05:00
|
|
|
v.visit_block(b, {in_loop: false, can_ret: false}, v);
|
|
|
|
}
|
2012-05-04 14:33:04 -05:00
|
|
|
expr_loop_body(@{node: expr_fn_block(_, b, _), _}) {
|
2012-03-27 05:33:13 -05:00
|
|
|
let blk = is_blockish(ty::ty_fn_proto(ty::expr_ty(tcx, e)));
|
|
|
|
v.visit_block(b, {in_loop: true, can_ret: blk}, v);
|
2012-03-26 05:54:06 -05:00
|
|
|
}
|
|
|
|
expr_break {
|
|
|
|
if !cx.in_loop {
|
2012-03-26 09:09:27 -05:00
|
|
|
tcx.sess.span_err(e.span, "`break` outside of loop");
|
2012-03-26 05:54:06 -05:00
|
|
|
}
|
|
|
|
}
|
2012-07-06 17:46:31 -05:00
|
|
|
expr_again {
|
2012-03-26 05:54:06 -05:00
|
|
|
if !cx.in_loop {
|
2012-07-13 10:24:07 -05:00
|
|
|
tcx.sess.span_err(e.span, "`again` outside of loop");
|
2012-03-26 05:54:06 -05:00
|
|
|
}
|
|
|
|
}
|
|
|
|
expr_ret(oe) {
|
|
|
|
if !cx.can_ret {
|
2012-03-26 09:09:27 -05:00
|
|
|
tcx.sess.span_err(e.span, "`ret` in block function");
|
2012-03-26 05:54:06 -05:00
|
|
|
}
|
|
|
|
visit::visit_expr_opt(oe, cx, v);
|
|
|
|
}
|
|
|
|
_ { visit::visit_expr(e, cx, v); }
|
|
|
|
}
|
|
|
|
}
|
|
|
|
with *visit::default_visitor()
|
|
|
|
}));
|
2012-07-13 10:24:07 -05:00
|
|
|
}
|