From b714af0405e70bba80395cddc4b02bc495d042bb Mon Sep 17 00:00:00 2001
From: Joe Soroka <gits@joesoroka.com>
Date: Fri, 8 Apr 2011 00:44:01 -0700
Subject: [PATCH] add naive workaround for VLA vstack leak

---
 tccgen.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tccgen.c b/tccgen.c
index fd7ff25d..67e9b8a3 100644
--- a/tccgen.c
+++ b/tccgen.c
@@ -4342,11 +4342,14 @@ static void block(int *bsym, int *csym, int *case_sym, int *def_sym,
         gsym_addr(b, d);
     } else if (tok == '{') {
         Sym *llabel;
+        SValue *pvtop;
         
         next();
         /* record local declaration stack position */
         s = local_stack;
         llabel = local_label_stack;
+        /* record vstack position */
+        pvtop = vtop;
         /* handle local labels declarations */
         if (tok == TOK_LABEL) {
             next();
@@ -4373,6 +4376,8 @@ static void block(int *bsym, int *csym, int *case_sym, int *def_sym,
         }
         /* pop locally defined labels */
         label_pop(&local_label_stack, llabel);
+        /* pop left-over VLA size expressions */
+        vtop = pvtop;
         /* pop locally defined symbols */
         if(is_expr) {
             /* XXX: this solution makes only valgrind happy...