ole2disp: Implement SafeArrayGetElemsize().

Signed-off-by: Nikolay Sivov <nsivov@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org> (cherry picked from commit 5f8f1929) Signed-off-by: Michael Stefaniuc <mstefani@winehq.org>

ole2disp: Implement SafeArrayGetElemsize().
f3ad9396 · Nikolay Sivov · Michael Stefaniuc · c33584a7 · f3ad9396 · f3ad9396
Commit f3ad9396 authored Jan 13, 2016 by Nikolay Sivov Committed by Michael Stefaniuc Feb 03, 2016
Show whitespace changes
Inline Side-by-side

Showing with 10 additions and 1 deletion

ole2disp.c dlls/ole2disp.dll16/ole2disp.c +9 -0

ole2disp.dll16.spec dlls/ole2disp.dll16/ole2disp.dll16.spec +1 -1

No files found.
--- a/dlls/ole2disp.dll16/ole2disp.c
+++ b/dlls/ole2disp.dll16/ole2disp.c
@@ -99,6 +99,15 @@ USHORT WINAPI SafeArrayGetDim16(SAFEARRAY16 *sa)
 }

 /******************************************************************************
+ *    SafeArrayGetElemsize [OLE2DISP.18]
+ */
+USHORT WINAPI SafeArrayGetElemsize16(SAFEARRAY16 *sa)
+{
+    TRACE("(%p)\n", sa);
+    return sa->cbElements;
+}
+
+/******************************************************************************
 *    SafeArrayAllocDescriptor [OLE2DISP.38]
 */
 HRESULT WINAPI SafeArrayAllocDescriptor16(UINT16 dims, SEGPTR *ret)

--- a/dlls/ole2disp.dll16/ole2disp.dll16.spec
+++ b/dlls/ole2disp.dll16/ole2disp.dll16.spec
@@ -15,7 +15,7 @@
 15 stub SAFEARRAYCREATE
 16 stub SAFEARRAYDESTROY
 17 pascal -ret16 SafeArrayGetDim(ptr) SafeArrayGetDim16
-18 stub SAFEARRAYGETELEMSIZE
+18 pascal -ret16 SafeArrayGetElemsize(ptr) SafeArrayGetElemsize16
 19 stub SAFEARRAYGETUBOUND
 20 stub SAFEARRAYGETLBOUND
 21 stub SAFEARRAYLOCK