vbscript: Use correct integral type.

Signed-off-by: Eric Pouech <eric.pouech@gmail.com> Signed-off-by: Jacek Caban <jacek@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>

vbscript: Use correct integral type.
32deecbc · Eric Pouech · Alexandre Julliard · 98c0f3da · 32deecbc · 32deecbc
Commit 32deecbc authored Feb 02, 2022 by Eric Pouech Committed by Alexandre Julliard Feb 03, 2022
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

interp.c dlls/vbscript/interp.c +1 -1

vbdisp.c dlls/vbscript/vbdisp.c +1 -1

No files found.
--- a/dlls/vbscript/interp.c
+++ b/dlls/vbscript/interp.c
@@ -563,7 +563,7 @@ static HRESULT array_access(exec_ctx_t *ctx, SAFEARRAY *array, DISPPARAMS *dp, V
    }

    for(i=0; i<argc; i++) {
-        hres = to_int(get_arg(dp, i), indices+i);
+        hres = to_int(get_arg(dp, i), (int *)(indices+i));
        if(FAILED(hres)) {
            heap_free(indices);
            SafeArrayUnlock(array);

--- a/dlls/vbscript/vbdisp.c
+++ b/dlls/vbscript/vbdisp.c
@@ -1683,7 +1683,7 @@ HRESULT disp_propput(script_ctx_t *ctx, IDispatch *disp, DISPID id, WORD flags, 
        hres = IDispatchEx_InvokeEx(dispex, id, ctx->lcid, flags, dp, NULL, &ei, NULL /* FIXME! */);
        IDispatchEx_Release(dispex);
    }else {
-        ULONG err = 0;
+        UINT err = 0;

        TRACE("using IDispatch\n");
        hres = IDispatch_Invoke(disp, id, &IID_NULL, ctx->lcid, flags, dp, NULL, &ei, &err);