Skip to content

W
wine-winehq
Commit 0fb2d0f0 authored by Kevin Puetz's avatar Kevin Puetz Committed by Alexandre Julliard
Browse files
Options

vbscript: Don't abort when trying to TRACE() functions with many arguments.

__wine_dbg_output accumulates the output characters in a debug_info structure, flushing it when it encounters '\n'. If debug_info plus the new string exceed 1024 characters, append_output will print > wine_dbg_output: debugstr buffer overflow and then crash the process via abort(). wine_dbgstr_variant limits the length printed for any individual argument, but a function with multiple parameters can still plausibly exceed 1024. Fixed by formatting the TRACE for each argument on a separate line, as similar places (like oleaut32/typelib.c:dump_DispParms) do.
parent e2479126
Hide whitespace changes
Inline Side-by-side
Showing with 7 additions and 3 deletions
dlls/vbscript/interp.c
View file @ 0fb2d0f0
......@@ -2422,7 +2422,7 @@ HRESULT exec_script(script_ctx_t *ctx, BOOL extern_caller, function_t *func, vbd
heap_pool_init(&exec.heap);
TRACE("%s(", debugstr_w(func->name));
TRACE("%s args=%u\n", debugstr_w(func->name),func->arg_cnt);
if(func->arg_cnt) {
VARIANT *v;
unsigned i;
......@@ -2435,7 +2435,7 @@ HRESULT exec_script(script_ctx_t *ctx, BOOL extern_caller, function_t *func, vbd
for(i=0; i < func->arg_cnt; i++) {
v = get_arg(dp, i);
TRACE("%s%s", i ? ", " : "", debugstr_variant(v));
TRACE(" [%d] %s\n", i, debugstr_variant(v));
if(V_VT(v) == (VT_VARIANT|VT_BYREF)) {
if(func->args[i].by_ref)
exec.args[i] = *v;
......@@ -2452,7 +2452,6 @@ HRESULT exec_script(script_ctx_t *ctx, BOOL extern_caller, function_t *func, vbd
}else {
exec.args = NULL;
}
TRACE(")\n");
if(func->var_cnt) {
exec.vars = heap_alloc_zero(func->var_cnt * sizeof(VARIANT));
......
dlls/vbscript/tests/api.vbs
View file @ 0fb2d0f0
......@@ -777,6 +777,11 @@ sub testSpaceError()
end sub
call testSpaceError()
function strlength(s1, s2, s3, s4, s5)
strlength = Len(s1 & s2 & s3 & s4 & s5)
end function
Call ok(strlength(String(500, "a"), String(500, "b"), String(500, "c"), String(500, "d"), String(500, "e")) = 500*5, "strlength(...) = 500*5")
sub test_string(cnt, char, exp)
call ok(String(cnt, char) = exp, "String(" & cnt & ", """ & char & """ = """ & _
String(cnt, char) & """ expected """ & exp & """")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment