ole2disp: Implement SafeArrayGetDim().

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

ole2disp: Implement SafeArrayGetDim().
c33584a7 · Nikolay Sivov · Michael Stefaniuc · 84cae8c3 · c33584a7 · c33584a7
Commit c33584a7 authored Jan 13, 2016 by Nikolay Sivov Committed by Michael Stefaniuc Feb 03, 2016
Hide 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
@@ -90,6 +90,15 @@ static ULONG safearray_getcellcount(const SAFEARRAY16 *sa)
 }

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

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