From 0830b5bf24a7117130e0089754cd96e51411284d Mon Sep 17 00:00:00 2001 From: Or Brostovski Date: Sat, 21 Aug 2010 02:41:43 +0300 Subject: Modified parser to handle alt type andadded a few tests ast.ml - modified arm types for easier polymorphism - fixed a bug in fmt_type_arm dead.ml - modified arm types for easier polymorphism common.ml - added 'either' - added some useful auxiliary functions item.ml - modified arm code to be more polymorphic and handle both alt-tag and alt-type, also fixed the problematic case in bad-alt.rs Makefile - added XFAIL for new alt-type test bad-alt.rs - added test for invalid alt syntax alt-type-simple.rs - added simple test for alt type --- src/boot/me/dead.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/boot/me') diff --git a/src/boot/me/dead.ml b/src/boot/me/dead.ml index 7ef4bf8e..a0b666b3 100644 --- a/src/boot/me/dead.ml +++ b/src/boot/me/dead.ml @@ -70,7 +70,7 @@ let dead_code_visitor | Ast.STMT_alt_type { Ast.alt_type_arms = arms; Ast.alt_type_else = alt_type_else } -> - let arm_ids = Array.map (fun { node = (_, _, block) } -> + let arm_ids = Array.map (fun { node = ((_, _), block) } -> block.id) arms in let else_ids = begin -- cgit v1.2.3