From: Jacek Caban Subject: vbscript: Fixed local variable count calculation Message-Id: <4EA53E58.6030801@codeweavers.com> Date: Mon, 24 Oct 2011 12:30:48 +0200 --- dlls/vbscript/compile.c | 2 +- dlls/vbscript/tests/lang.vbs | 1 + 2 files changed, 2 insertions(+), 1 deletions(-) diff --git a/dlls/vbscript/compile.c b/dlls/vbscript/compile.c index 153e9b0..9b3f3e6 100644 --- a/dlls/vbscript/compile.c +++ b/dlls/vbscript/compile.c @@ -746,6 +746,7 @@ static HRESULT compile_dim_statement(compile_ctx_t *ctx, dim_statement_t *stat) return E_FAIL; } + ctx->func->var_cnt++; if(!dim_decl->next) break; dim_decl = dim_decl->next; @@ -753,7 +754,6 @@ static HRESULT compile_dim_statement(compile_ctx_t *ctx, dim_statement_t *stat) dim_decl->next = ctx->dim_decls; ctx->dim_decls = stat->dim_decls; - ctx->func->var_cnt++; return S_OK; } diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index ec552b1..0025d69 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -470,6 +470,7 @@ Sub TestSubLocalVal x = false Call ok(not x, "local x is not false?") Dim x + Dim a,b, c End Sub x = true