From 62c224ffe4845ed3a1f651d05ea0be84d5c870ea Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Thu, 30 Sep 2010 16:10:30 -0700
Subject: Drop slots on block exits even when blocks have no statements. Part
 way to fixing bind leakage in rustc.

---
 src/boot/me/loop.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/boot/me/loop.ml')

diff --git a/src/boot/me/loop.ml b/src/boot/me/loop.ml
index 1fbb8223..b5548e2c 100644
--- a/src/boot/me/loop.ml
+++ b/src/boot/me/loop.ml
@@ -114,6 +114,8 @@ let loop_depth_visitor
   let visit_block_pre b =
     if Hashtbl.mem cx.ctxt_block_is_loop_body b.id
     then push_loop ();
+    let fcx = Stack.top fcxs in
+      htab_put cx.ctxt_block_loop_depths b.id fcx.current_depth;
     inner.Walk.visit_block_pre b
   in
 
-- 
cgit v1.2.3