Nikolay Sivov : ole2disp: Implement SafeArrayGetElemsize().

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 5f8f19299834ae03d46fc436925d8fd8fa2c0932
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=5f8f19299834ae03d46fc436925d8fd8fa2c0932

Author: Nikolay Sivov <nsivov at codeweavers.com>
Date:   Wed Jan 13 12:25:48 2016 +0300

ole2disp: Implement SafeArrayGetElemsize().

Signed-off-by: Nikolay Sivov <nsivov at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>

---

 dlls/ole2disp.dll16/ole2disp.c          | 9 +++++++++
 dlls/ole2disp.dll16/ole2disp.dll16.spec | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/dlls/ole2disp.dll16/ole2disp.c b/dlls/ole2disp.dll16/ole2disp.c
index 0c033cd..20b7b6c 100644
--- 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)
diff --git a/dlls/ole2disp.dll16/ole2disp.dll16.spec b/dlls/ole2disp.dll16/ole2disp.dll16.spec
index 1fd2b0b..ca884a0 100644
--- 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