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

ole2disp.dll16: Implement SafeArrayGet[UBound|LBound]. 

Signed-off-by: Gijs Vermeulen <gijsvrm@gmail.com>
Signed-off-by: Nikolay Sivov <nsivov@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Gijs Vermeulen 2018-01-17 22:34:28 +01:00 committed by Alexandre Julliard
parent dcd96f5f7a
commit a9686b0037
2 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
dlls/ole2disp.dll16/ole2disp.c
View File

@ -116,6 +116,42 @@ USHORT WINAPI SafeArrayGetElemsize16(SAFEARRAY16 *sa)
return sa->cbElements;
}
/******************************************************************************
* SafeArrayGetUBound [OLE2DISP.19]
*/
HRESULT WINAPI SafeArrayGetUBound16(SAFEARRAY16 *sa, UINT16 dim, LONG *ubound)
{
TRACE("(%p, %u, %p)\n", sa, dim, ubound);
if (!sa)
return E_INVALIDARG16;
if (!dim || dim > sa->cDims)
return DISP_E_BADINDEX;
*ubound = sa->rgsabound[sa->cDims - dim].lLbound + sa->rgsabound[sa->cDims - dim].cElements - 1;
return S_OK;
}
/******************************************************************************
* SafeArrayGetLBound [OLE2DISP.20]
*/
HRESULT WINAPI SafeArrayGetLBound16(SAFEARRAY16 *sa, UINT16 dim, LONG *lbound)
{
TRACE("(%p, %u, %p)\n", sa, dim, lbound);
if (!sa)
return E_INVALIDARG16;
if (!dim || dim > sa->cDims)
return DISP_E_BADINDEX;
*lbound = sa->rgsabound[sa->cDims - dim].lLbound;
return S_OK;
}
/******************************************************************************
* SafeArrayLock [OLE2DISP.21]
*/

4
dlls/ole2disp.dll16/ole2disp.dll16.spec
View File

@ -16,8 +16,8 @@
16 stub SAFEARRAYDESTROY
17 pascal -ret16 SafeArrayGetDim(ptr) SafeArrayGetDim16
18 pascal -ret16 SafeArrayGetElemsize(ptr) SafeArrayGetElemsize16
19 stub SAFEARRAYGETUBOUND
20 stub SAFEARRAYGETLBOUND
19 pascal SafeArrayGetUBound(ptr word ptr) SafeArrayGetUBound16
20 pascal SafeArrayGetLBound(ptr word ptr) SafeArrayGetLBound16
21 pascal SafeArrayLock(ptr) SafeArrayLock16
22 pascal SafeArrayUnlock(ptr) SafeArrayUnlock16
23 pascal SafeArrayAccessData(ptr ptr) SafeArrayAccessData16