From b34cb1b631d7979307bec26905a1a9298ec4f17a Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Thu, 19 Aug 2010 18:41:55 -0700 Subject: Fix a bunch of typestate bugs in handling if and while statement wirings. --- src/boot/me/resolve.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'src/boot/me/resolve.ml') diff --git a/src/boot/me/resolve.ml b/src/boot/me/resolve.ml index bf11ad23..25eb544a 100644 --- a/src/boot/me/resolve.ml +++ b/src/boot/me/resolve.ml @@ -48,6 +48,7 @@ let stmt_collecting_visitor : Walk.visitor = let block_ids = Stack.create () in let visit_block_pre (b:Ast.block) = + htab_put cx.ctxt_all_blocks b.id b.node; Stack.push b.id block_ids; inner.Walk.visit_block_pre b in -- cgit v1.2.3