gesamt: bugfix fuer 'this.ID(...)'

[uebersetzerbau-ss10.git] / gesamt / parser.y

diff --git a/gesamt/parser.y b/gesamt/parser.y
index 2d42baaaec617b9d9ccd1fc00d8869ddd8e3ea7e..f564b151b3383dd35b8d5c3075d4275206d32795 100644 (file)
--- 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@,)