X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=uebersetzerbau-ss10.git;a=blobdiff_plain;f=gesamt%2Fparser.y;h=f564b151b3383dd35b8d5c3075d4275206d32795;hp=2d42baaaec617b9d9ccd1fc00d8869ddd8e3ea7e;hb=44f4fb2a8cf8990a02b77d4e42aed5ac6f3e871f;hpb=3fa41a742ef73439fac40da45356f0b20ef8d8fc

diff --git a/gesamt/parser.y b/gesamt/parser.y
index 2d42baa..f564b15 100644
--- a/gesamt/parser.y
+++ b/gesamt/parser.y
@@ -182,6 +182,7 @@ Statement:
 		lblcountinout()
 
 		@i @Statement.vars_out@ = @Statement.vars_in@ + 1;
+		@i @Expr.vars_in@ = @Statement.vars_in@ - 1;
 
 		xxputsin(@Expr.s@,)