wine-commits November 2022

wine-commits@winehq.org

1 participants
1171 discussions

Rémi Bernon : winemac.drv: Call GlobalReAlloc with GMEM_MOVEABLE flag.
by Alexandre Julliard 22 Nov '22

22 Nov '22

Module: wine Branch: master Commit: 6299e8a54cf535602d60c835ca3bde76fddaed2f URL: https://gitlab.winehq.org/wine/wine/-/commit/6299e8a54cf535602d60c835ca3bde… Author: Rémi Bernon <rbernon(a)codeweavers.com> Date: Sat Nov 19 17:13:25 2022 +0100 winemac.drv: Call GlobalReAlloc with GMEM_MOVEABLE flag. Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=53474 --- dlls/winemac.drv/dragdrop.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dlls/winemac.drv/dragdrop.c b/dlls/winemac.drv/dragdrop.c index abb3dac2a3b..45615c68b71 100644 --- a/dlls/winemac.drv/dragdrop.c +++ b/dlls/winemac.drv/dragdrop.c @@ -105,7 +105,7 @@ static HANDLE get_pasteboard_data(UINT64 pasteboard, UINT desired_format) params.data = GlobalLock(handle); status = MACDRV_CALL(dnd_get_data, &params); GlobalUnlock(handle); - if (!status) return GlobalReAlloc(handle, params.size, 0); + if (!status) return GlobalReAlloc(handle, params.size, GMEM_MOVEABLE); GlobalFree(handle); if (status != STATUS_BUFFER_OVERFLOW) return 0; }

1 0

Rémi Bernon : riched20: Call GlobalReAlloc with GMEM_MOVEABLE flag.
by Alexandre Julliard 22 Nov '22

22 Nov '22

Module: wine Branch: master Commit: dfd44bb979ee2052eceff094083147e9879fa807 URL: https://gitlab.winehq.org/wine/wine/-/commit/dfd44bb979ee2052eceff094083147… Author: Rémi Bernon <rbernon(a)codeweavers.com> Date: Sat Nov 19 17:13:19 2022 +0100 riched20: Call GlobalReAlloc with GMEM_MOVEABLE flag. Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=53474 --- dlls/riched20/clipboard.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dlls/riched20/clipboard.c b/dlls/riched20/clipboard.c index 3a8440ffcd6..c94951b8f6f 100644 --- a/dlls/riched20/clipboard.c +++ b/dlls/riched20/clipboard.c @@ -375,7 +375,7 @@ static DWORD CALLBACK ME_AppendToHGLOBAL(DWORD_PTR dwCookie, LPBYTE lpBuff, LONG if (pData->nLength+cb+1 >= cb) { /* round up to 2^17 */ int nNewSize = (((nMaxSize+cb+1)|0x1FFFF)+1) & 0xFFFE0000; - pData->hData = GlobalReAlloc(pData->hData, nNewSize, 0); + pData->hData = GlobalReAlloc(pData->hData, nNewSize, GMEM_MOVEABLE); } pDest = GlobalLock(pData->hData); memcpy(pDest + pData->nLength, lpBuff, cb); @@ -397,7 +397,7 @@ static HGLOBAL get_rtf_text(ME_TextEditor *editor, const ME_Cursor *start, int n es.dwCookie = (DWORD_PTR)&gds; es.pfnCallback = ME_AppendToHGLOBAL; ME_StreamOutRange(editor, SF_RTF, start, nChars, &es); - GlobalReAlloc(gds.hData, gds.nLength+1, 0); + GlobalReAlloc(gds.hData, gds.nLength+1, GMEM_MOVEABLE); return gds.hData; }

1 0

Rémi Bernon : ole32: Call GlobalReAlloc with GMEM_MOVEABLE flag.
by Alexandre Julliard 22 Nov '22

22 Nov '22

Module: wine Branch: master Commit: da929946e6dea2c9c543883ec68b60c432de1112 URL: https://gitlab.winehq.org/wine/wine/-/commit/da929946e6dea2c9c543883ec68b60… Author: Rémi Bernon <rbernon(a)codeweavers.com> Date: Sat Nov 19 17:13:08 2022 +0100 ole32: Call GlobalReAlloc with GMEM_MOVEABLE flag. Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=53474 --- dlls/ole32/memlockbytes.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dlls/ole32/memlockbytes.c b/dlls/ole32/memlockbytes.c index f974e4229eb..163d25a97aa 100644 --- a/dlls/ole32/memlockbytes.c +++ b/dlls/ole32/memlockbytes.c @@ -424,7 +424,7 @@ static HRESULT WINAPI HGLOBALLockBytesImpl_SetSize( /* * Re allocate the HGlobal to fit the new size of the stream. */ - supportHandle = GlobalReAlloc(This->supportHandle, libNewSize.u.LowPart, 0); + supportHandle = GlobalReAlloc(This->supportHandle, libNewSize.u.LowPart, GMEM_MOVEABLE); if (supportHandle == 0) return STG_E_MEDIUMFULL;

1 0

Rémi Bernon : comdlg32: Call GlobalReAlloc with GMEM_MOVEABLE flag.
by Alexandre Julliard 22 Nov '22

22 Nov '22

Module: wine Branch: master Commit: 6ffef221a184f8ffc915bc26f3a2a9c6d899278c URL: https://gitlab.winehq.org/wine/wine/-/commit/6ffef221a184f8ffc915bc26f3a2a9… Author: Rémi Bernon <rbernon(a)codeweavers.com> Date: Sat Nov 19 17:12:38 2022 +0100 comdlg32: Call GlobalReAlloc with GMEM_MOVEABLE flag. Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=53474 --- dlls/comdlg32/printdlg.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dlls/comdlg32/printdlg.c b/dlls/comdlg32/printdlg.c index 5925ef64a20..bb9a9f78330 100644 --- a/dlls/comdlg32/printdlg.c +++ b/dlls/comdlg32/printdlg.c @@ -252,7 +252,7 @@ static HGLOBAL update_devmode_handleW(HGLOBAL hdm, DEVMODEW *dm) /* Increase / alloc the global memory block, when needed */ if ((dm->dmSize + dm->dmDriverExtra) > size) { if (hdm) - hdm = GlobalReAlloc(hdm, dm->dmSize + dm->dmDriverExtra, 0); + hdm = GlobalReAlloc(hdm, dm->dmSize + dm->dmDriverExtra, GMEM_MOVEABLE); else hdm = GlobalAlloc(GMEM_MOVEABLE, dm->dmSize + dm->dmDriverExtra); } @@ -280,7 +280,7 @@ static HGLOBAL update_devmode_handleA(HGLOBAL hdm, DEVMODEA *dm) /* Increase / alloc the global memory block, when needed */ if ((dm->dmSize + dm->dmDriverExtra) > size) { if (hdm) - hdm = GlobalReAlloc(hdm, dm->dmSize + dm->dmDriverExtra, 0); + hdm = GlobalReAlloc(hdm, dm->dmSize + dm->dmDriverExtra, GMEM_MOVEABLE); else hdm = GlobalAlloc(GMEM_MOVEABLE, dm->dmSize + dm->dmDriverExtra); }

1 0

Rémi Bernon : kernel32/tests: Add more (Global|Local)ReAlloc tests.
by Alexandre Julliard 22 Nov '22

22 Nov '22

Module: wine Branch: master Commit: 170e04648034f548e118625f969f09de8921024b URL: https://gitlab.winehq.org/wine/wine/-/commit/170e04648034f548e118625f969f09… Author: Rémi Bernon <rbernon(a)codeweavers.com> Date: Fri Nov 18 23:36:45 2022 +0100 kernel32/tests: Add more (Global|Local)ReAlloc tests. Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=53474 --- dlls/kernel32/tests/heap.c | 588 ++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 586 insertions(+), 2 deletions(-)

1 0

Rémi Bernon : server: Set missing error status for get_process_image_name.
by Alexandre Julliard 22 Nov '22

22 Nov '22

Module: wine Branch: master Commit: 37478a8695a291a5a95213468557b1de48de093b URL: https://gitlab.winehq.org/wine/wine/-/commit/37478a8695a291a5a95213468557b1… Author: Rémi Bernon <rbernon(a)codeweavers.com> Date: Tue Apr 13 19:15:10 2021 +0200 server: Set missing error status for get_process_image_name. --- server/process.c | 1 + 1 file changed, 1 insertion(+) diff --git a/server/process.c b/server/process.c index 9bde05dc942..8a1fcd07a7f 100644 --- a/server/process.c +++ b/server/process.c @@ -1536,6 +1536,7 @@ DECL_HANDLER(get_process_image_name) } else set_error( STATUS_BUFFER_TOO_SMALL ); } + else set_error( STATUS_INVALID_HANDLE ); release_object( process ); }

1 0

Paul Gofman : xinputuap.dll: Add new dll.
by Alexandre Julliard 22 Nov '22

22 Nov '22

Module: wine Branch: master Commit: 25c52eb7645508d213d8cb2e2019217e9a0ba89b URL: https://gitlab.winehq.org/wine/wine/-/commit/25c52eb7645508d213d8cb2e201921… Author: Paul Gofman <pgofman(a)codeweavers.com> Date: Tue Nov 2 18:20:25 2021 -0700 xinputuap.dll: Add new dll. Based on a patch by Yusuf Khan <yusisamerican(a)gmail.com>. Required for Halo Infinite. --- configure | 2 ++ configure.ac | 1 + dlls/xinputuap/Makefile.in | 8 ++++++++ dlls/xinputuap/version.rc | 27 +++++++++++++++++++++++++++ dlls/xinputuap/xinputuap.spec | 8 ++++++++ 5 files changed, 46 insertions(+) diff --git a/configure b/configure index 66519182d59..74727004efd 100755 --- a/configure +++ b/configure @@ -1543,6 +1543,7 @@ enable_xinput1_2 enable_xinput1_3 enable_xinput1_4 enable_xinput9_1_0 +enable_xinputuap enable_xmllite enable_xolehlp enable_xpsprint @@ -22020,6 +22021,7 @@ wine_fn_config_makefile dlls/xinput1_3 enable_xinput1_3 wine_fn_config_makefile dlls/xinput1_3/tests enable_tests wine_fn_config_makefile dlls/xinput1_4 enable_xinput1_4 wine_fn_config_makefile dlls/xinput9_1_0 enable_xinput9_1_0 +wine_fn_config_makefile dlls/xinputuap enable_xinputuap wine_fn_config_makefile dlls/xmllite enable_xmllite wine_fn_config_makefile dlls/xmllite/tests enable_tests wine_fn_config_makefile dlls/xolehlp enable_xolehlp diff --git a/configure.ac b/configure.ac index 32eb88129eb..7313fde9a4e 100644 --- a/configure.ac +++ b/configure.ac @@ -3304,6 +3304,7 @@ WINE_CONFIG_MAKEFILE(dlls/xinput1_3) WINE_CONFIG_MAKEFILE(dlls/xinput1_3/tests) WINE_CONFIG_MAKEFILE(dlls/xinput1_4) WINE_CONFIG_MAKEFILE(dlls/xinput9_1_0) +WINE_CONFIG_MAKEFILE(dlls/xinputuap) WINE_CONFIG_MAKEFILE(dlls/xmllite) WINE_CONFIG_MAKEFILE(dlls/xmllite/tests) WINE_CONFIG_MAKEFILE(dlls/xolehlp) diff --git a/dlls/xinputuap/Makefile.in b/dlls/xinputuap/Makefile.in new file mode 100644 index 00000000000..5d311fe7c31 --- /dev/null +++ b/dlls/xinputuap/Makefile.in @@ -0,0 +1,8 @@ +MODULE = xinputuap.dll +IMPORTS = hid setupapi advapi32 user32 +PARENTSRC = ../xinput1_3 + +C_SRCS = \ + main.c + +RC_SRCS = version.rc diff --git a/dlls/xinputuap/version.rc b/dlls/xinputuap/version.rc new file mode 100644 index 00000000000..557189b1596 --- /dev/null +++ b/dlls/xinputuap/version.rc @@ -0,0 +1,27 @@ +/* + * The Wine project - Xinput Joystick Library + * Copyright 2021 Yusuf Khan + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation; either + * version 2.1 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA + */ + +#define WINE_FILEDESCRIPTION_STR "Wine Common Controller API" +#define WINE_FILENAME_STR "xinputuap.dll" +#define WINE_FILEVERSION 10,0,19041,746 +#define WINE_FILEVERSION_STR "10.0.19041.746" +#define WINE_PRODUCTVERSION 10,0,19041,746 +#define WINE_PRODUCTVERSION_STR "10.0" + +#include "wine/wine_common_ver.rc" diff --git a/dlls/xinputuap/xinputuap.spec b/dlls/xinputuap/xinputuap.spec new file mode 100644 index 00000000000..4a5ee5c51d8 --- /dev/null +++ b/dlls/xinputuap/xinputuap.spec @@ -0,0 +1,8 @@ +1 stdcall -private DllMain(long long ptr) +2 stdcall XInputEnable(long) +3 stub XInputGetAudioDeviceIds(long ptr ptr ptr ptr) +4 stdcall XInputGetBatteryInformation(long long ptr) +5 stdcall XInputGetCapabilities(long long ptr) +6 stdcall XInputGetKeystroke(long long ptr) +7 stdcall XInputGetState(long ptr) +8 stdcall XInputSetState(long ptr)

1 0

Nikolay Sivov : ntdll: Use system language as preferred, if user language is custom-unspecified.
by Alexandre Julliard 22 Nov '22

22 Nov '22

Module: wine Branch: master Commit: 29cbec5e6c262239edbfafd5ccd94d8ade44cddf URL: https://gitlab.winehq.org/wine/wine/-/commit/29cbec5e6c262239edbfafd5ccd94d… Author: Nikolay Sivov <nsivov(a)codeweavers.com> Date: Tue Nov 22 17:14:11 2022 +0300 ntdll: Use system language as preferred, if user language is custom-unspecified. Signed-off-by: Nikolay Sivov <nsivov(a)codeweavers.com> --- dlls/ntdll/locale.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/dlls/ntdll/locale.c b/dlls/ntdll/locale.c index 7e1a2c96eaa..26302cfb376 100644 --- a/dlls/ntdll/locale.c +++ b/dlls/ntdll/locale.c @@ -193,13 +193,16 @@ static NTSTATUS get_dummy_preferred_ui_language( DWORD flags, LANGID lang, ULONG NTSTATUS status; ULONG len; - FIXME("(0x%lx %p %p %p) returning a dummy value (current locale)\n", flags, count, buffer, size); + FIXME("(0x%lx %#x %p %p %p) returning a dummy value (current locale)\n", flags, lang, count, buffer, size); if (flags & MUI_LANGUAGE_ID) swprintf( name, ARRAY_SIZE(name), L"%04lX", lang ); else { UNICODE_STRING str; + if (lang == LOCALE_CUSTOM_UNSPECIFIED) + NtQueryInstallUILanguage( &lang ); + str.Buffer = name; str.MaximumLength = sizeof(name); status = RtlLcidToLocaleName( lang, &str, 0, FALSE );

1 0

Nikolay Sivov : vbscript: Handle CP_UTF8 in Chr()/Asc().
by Alexandre Julliard 22 Nov '22

22 Nov '22

Module: wine Branch: master Commit: beb9e1137087ed822656cdd1b299130f9ee3c575 URL: https://gitlab.winehq.org/wine/wine/-/commit/beb9e1137087ed822656cdd1b29913… Author: Nikolay Sivov <nsivov(a)codeweavers.com> Date: Fri Nov 18 20:15:07 2022 +0300 vbscript: Handle CP_UTF8 in Chr()/Asc(). --- dlls/vbscript/global.c | 30 ++++++++++++++++++------------ dlls/vbscript/vbscript.c | 11 +++++++---- dlls/vbscript/vbscript.h | 1 + 3 files changed, 26 insertions(+), 16 deletions(-) diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c index d60374f9e87..d07d46415e6 100644 --- a/dlls/vbscript/global.c +++ b/dlls/vbscript/global.c @@ -1842,10 +1842,12 @@ static HRESULT Global_Asc(BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VA if(!SysStringLen(str)) hres = MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL); + else if (This->ctx->codepage == CP_UTF8) + hres = return_short(res, *str); else { unsigned char buf[2]; short val = 0; - int n = WideCharToMultiByte(CP_ACP, 0, str, 1, (char*)buf, sizeof(buf), NULL, NULL); + int n = WideCharToMultiByte(This->ctx->codepage, 0, str, 1, (char*)buf, sizeof(buf), NULL, NULL); switch(n) { case 1: val = buf[0]; @@ -1865,9 +1867,6 @@ static HRESULT Global_Asc(BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VA return hres; } -/* The function supports only single-byte and double-byte character sets. It - * ignores language specified by IActiveScriptSite::GetLCID. The argument needs - * to be in range of short or unsigned short. */ static HRESULT Global_Chr(BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VARIANT *res) { int cp, c, len = 0; @@ -1882,7 +1881,7 @@ static HRESULT Global_Chr(BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VA if(FAILED(hres)) return hres; - cp = GetACP(); + cp = This->ctx->codepage; if(!GetCPInfo(cp, &cpi)) cpi.MaxCharSize = 1; @@ -1892,13 +1891,20 @@ static HRESULT Global_Chr(BuiltinDisp *This, VARIANT *arg, unsigned args_cnt, VA return MAKE_VBSERROR(VBSE_ILLEGAL_FUNC_CALL); } - if(c>>8) - buf[len++] = c>>8; - if(!len || IsDBCSLeadByteEx(cp, buf[0])) - buf[len++] = c; - if(!MultiByteToWideChar(CP_ACP, 0, buf, len, &ch, 1)) { - WARN("invalid arg %d, cp %d\n", c, cp); - return E_FAIL; + if (cp == CP_UTF8) + { + ch = c; + } + else + { + if(c>>8) + buf[len++] = c>>8; + if(!len || IsDBCSLeadByteEx(cp, buf[0])) + buf[len++] = c; + if(!MultiByteToWideChar(cp, 0, buf, len, &ch, 1)) { + WARN("invalid arg %d, cp %d\n", c, cp); + return E_FAIL; + } } if(res) { diff --git a/dlls/vbscript/vbscript.c b/dlls/vbscript/vbscript.c index 428149d7132..b6364410931 100644 --- a/dlls/vbscript/vbscript.c +++ b/dlls/vbscript/vbscript.c @@ -555,8 +555,8 @@ static ULONG WINAPI VBScript_Release(IActiveScript *iface) static HRESULT WINAPI VBScript_SetScriptSite(IActiveScript *iface, IActiveScriptSite *pass) { VBScript *This = impl_from_IActiveScript(iface); + LCID lcid = LOCALE_USER_DEFAULT; named_item_t *item; - LCID lcid; HRESULT hres; TRACE("(%p)->(%p)\n", This, pass); @@ -590,9 +590,12 @@ static HRESULT WINAPI VBScript_SetScriptSite(IActiveScript *iface, IActiveScript This->ctx->site = pass; IActiveScriptSite_AddRef(This->ctx->site); - hres = IActiveScriptSite_GetLCID(This->ctx->site, &lcid); - if(hres == S_OK) - This->ctx->lcid = lcid; + IActiveScriptSite_GetLCID(This->ctx->site, &lcid); + This->ctx->lcid = IsValidLocale(lcid, 0) ? lcid : GetUserDefaultLCID(); + GetLocaleInfoW(lcid, LOCALE_IDEFAULTANSICODEPAGE | LOCALE_RETURN_NUMBER, (WCHAR *)&This->ctx->codepage, + sizeof(This->ctx->codepage)/sizeof(WCHAR)); + if (!This->ctx->codepage) + This->ctx->codepage = CP_UTF8; if(This->is_initialized) change_state(This, SCRIPTSTATE_INITIALIZED); diff --git a/dlls/vbscript/vbscript.h b/dlls/vbscript/vbscript.h index 3690fc4f0e2..8286b37bbab 100644 --- a/dlls/vbscript/vbscript.h +++ b/dlls/vbscript/vbscript.h @@ -183,6 +183,7 @@ static inline VARIANT *get_arg(DISPPARAMS *dp, DWORD i) struct _script_ctx_t { IActiveScriptSite *site; LCID lcid; + UINT codepage; IInternetHostSecurityManager *secmgr; DWORD safeopt;

1 0

Jason Millard : vbscript: Add support for redim byref.
by Alexandre Julliard 22 Nov '22

22 Nov '22

Module: wine Branch: master Commit: 393f740bb70b90171511e067520a674fc63de19d URL: https://gitlab.winehq.org/wine/wine/-/commit/393f740bb70b90171511e067520a67… Author: Jason Millard <jsm174(a)gmail.com> Date: Tue Nov 22 08:41:24 2022 -0500 vbscript: Add support for redim byref. --- dlls/vbscript/interp.c | 33 ++++++++++++++++++++++++--------- dlls/vbscript/tests/lang.vbs | 22 ++++++++++++++++++++++ 2 files changed, 46 insertions(+), 9 deletions(-) diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c index 77875ee7f44..2d33982839e 100644 --- a/dlls/vbscript/interp.c +++ b/dlls/vbscript/interp.c @@ -1283,6 +1283,7 @@ static HRESULT interp_redim(exec_ctx_t *ctx) { BSTR identifier = ctx->instr->arg1.bstr; const unsigned dim_cnt = ctx->instr->arg2.uint; + VARIANT *v; SAFEARRAYBOUND *bounds; SAFEARRAY *array; ref_t ref; @@ -1312,9 +1313,16 @@ static HRESULT interp_redim(exec_ctx_t *ctx) /* FIXME: We should check if we're not modifying an existing static array here */ - VariantClear(ref.u.v); - V_VT(ref.u.v) = VT_ARRAY|VT_VARIANT; - V_ARRAY(ref.u.v) = array; + v = ref.u.v; + + if(V_VT(v) == (VT_VARIANT|VT_BYREF)) { + v = V_VARIANTREF(v); + } + + VariantClear(v); + V_VT(v) = VT_ARRAY|VT_VARIANT; + V_ARRAY(v) = array; + return S_OK; } @@ -1323,6 +1331,7 @@ static HRESULT interp_redim_preserve(exec_ctx_t *ctx) BSTR identifier = ctx->instr->arg1.bstr; const unsigned dim_cnt = ctx->instr->arg2.uint; unsigned i; + VARIANT *v; SAFEARRAYBOUND *bounds; SAFEARRAY *array; ref_t ref; @@ -1341,12 +1350,18 @@ static HRESULT interp_redim_preserve(exec_ctx_t *ctx) return E_FAIL; } - if(!(V_VT(ref.u.v) & VT_ARRAY)) { - FIXME("ReDim Preserve not valid on type %d\n", V_VT(ref.u.v)); + v = ref.u.v; + + if(V_VT(v) == (VT_VARIANT|VT_BYREF)) { + v = V_VARIANTREF(v); + } + + if(!(V_VT(v) & VT_ARRAY)) { + FIXME("ReDim Preserve not valid on type %d\n", V_VT(v)); return E_FAIL; } - array = V_ARRAY(ref.u.v); + array = V_ARRAY(v); hres = array_bounds_from_stack(ctx, dim_cnt, &bounds); if(FAILED(hres)) @@ -1355,9 +1370,9 @@ static HRESULT interp_redim_preserve(exec_ctx_t *ctx) if(array == NULL || array->cDims == 0) { /* can initially allocate the array */ array = SafeArrayCreate(VT_VARIANT, dim_cnt, bounds); - VariantClear(ref.u.v); - V_VT(ref.u.v) = VT_ARRAY|VT_VARIANT; - V_ARRAY(ref.u.v) = array; + VariantClear(v); + V_VT(v) = VT_ARRAY|VT_VARIANT; + V_ARRAY(v) = array; return S_OK; } else if(array->cDims != dim_cnt) { /* can't otherwise change the number of dimensions */ diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index beb7c7e86c9..990d830234d 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -1562,6 +1562,28 @@ sub TestReDimList end sub call TestReDimList +dim rx(4) +sub TestReDimByRef(byref x) + ok ubound(x) = 4, "ubound(x) = " & ubound(x) + redim x(6) + ok ubound(x) = 6, "ubound(x) = " & ubound(x) +end sub +call TestReDimByRef(rx) +ok ubound(rx) = 6, "ubound(rx) = " & ubound(rx) + +redim rx(5) +rx(3)=2 +sub TestReDimPreserveByRef(byref x) + ok ubound(x) = 5, "ubound(x) = " & ubound(x) + ok x(3) = 2, "x(3) = " & x(3) + redim preserve x(7) + ok ubound(x) = 7, "ubound(x) = " & ubound(x) + ok x(3) = 2, "x(3) = " & x(3) +end sub +call TestReDimPreserveByRef(rx) +ok ubound(rx) = 7, "ubound(rx) = " & ubound(rx) +ok rx(3) = 2, "rx(3) = " & rx(3) + Class ArrClass Dim classarr(3) Dim classnoarr()

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

wine-commits November 2022