ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vbscript: Copy the variable names into the script dispatch's heap. 

Signed-off-by: Gabriel Ivăncescu <gabrielopcode@gmail.com>
Signed-off-by: Jacek Caban <jacek@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Gabriel Ivăncescu 2019-12-06 13:45:35 +01:00 committed by Alexandre Julliard
parent 6c2f99c84e
commit 99af868d7c
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
dlls/vbscript/vbscript.c
View File

@ -63,6 +63,14 @@ typedef struct {
EXCEPINFO ei;
} VBScriptError;
static inline WCHAR *heap_pool_strdup(heap_pool_t *heap, const WCHAR *str)
{
size_t size = (lstrlenW(str) + 1) * sizeof(WCHAR);
WCHAR *ret = heap_pool_alloc(heap, size);
if (ret) memcpy(ret, str, size);
return ret;
}
static void change_state(VBScript *This, SCRIPTSTATE state)
{
if(This->state == state)
@ -120,7 +128,9 @@ static HRESULT exec_global_code(script_ctx_t *ctx, vbscode_t *code, VARIANT *res
if (!(var = heap_pool_alloc(&obj->heap, sizeof(*var))))
return E_OUTOFMEMORY;
var->name = code->main_code.vars[i].name;
var->name = heap_pool_strdup(&obj->heap, code->main_code.vars[i].name);
if (!var->name)
return E_OUTOFMEMORY;
V_VT(&var->v) = VT_EMPTY;
var->is_const = FALSE;
var->array = NULL;