[PATCH v4 6/6] coml2: Move WriteClassStg from ole32

[Fabian Maurer]

From: Fabian Maurer

---
 dlls/coml2/coml2.spec  |  2 +-
 dlls/coml2/storage32.c | 14 ++++++++++++++
 dlls/ole32/ole32.spec  |  2 +-
 dlls/ole32/storage32.c | 16 ----------------
 4 files changed, 16 insertions(+), 18 deletions(-)

diff --git a/dlls/coml2/coml2.spec b/dlls/coml2/coml2.spec
index 79aaba8346c..9f20fdd525b 100644
--- a/dlls/coml2/coml2.spec
+++ b/dlls/coml2/coml2.spec
@@ -29,5 +29,5 @@
 @ stub StgOpenStorageEx
 @ stub StgOpenStorageOnILockBytes
 @ stub StgSetTimes
-@ stub WriteClassStg
+@ stdcall WriteClassStg(ptr ptr)
 @ stdcall WriteClassStm(ptr ptr)
diff --git a/dlls/coml2/storage32.c b/dlls/coml2/storage32.c
index 40fc7ff9a2e..8ce9f68524f 100644
--- a/dlls/coml2/storage32.c
+++ b/dlls/coml2/storage32.c
@@ -50,6 +50,20 @@

WINE_DEFAULT_DEBUG_CHANNEL(storage);

+/***********************************************************************
+ *              WriteClassStg        [coml2.@]
+ */
+HRESULT WINAPI WriteClassStg(IStorage *pStg, REFCLSID rclsid)
+{
+    if (!pStg)
+        return E_INVALIDARG;
+
+    if (!rclsid)
+        return STG_E_INVALIDPOINTER;
+
+    return IStorage_SetClass(pStg, rclsid);
+}
+
 /***********************************************************************
  *    ReadClassStg (coml2.@)
  */
diff --git a/dlls/ole32/ole32.spec b/dlls/ole32/ole32.spec
index 416e04832e4..4a86152baf7 100644
--- a/dlls/ole32/ole32.spec
+++ b/dlls/ole32/ole32.spec
@@ -294,7 +294,7 @@
 @ stdcall WdtpInterfacePointer_UserMarshal(ptr long ptr ptr ptr) combase.WdtpInterfacePointer_UserMarshal
 @ stdcall WdtpInterfacePointer_UserSize(ptr long long ptr ptr) combase.WdtpInterfacePointer_UserSize
 @ stdcall WdtpInterfacePointer_UserUnmarshal(ptr ptr ptr ptr) combase.WdtpInterfacePointer_UserUnmarshal
-@ stdcall WriteClassStg(ptr ptr)
+@ stdcall -import WriteClassStg(ptr ptr)
 @ stdcall -import WriteClassStm(ptr ptr)
 @ stdcall WriteFmtUserTypeStg(ptr long ptr)
 @ stub WriteOleStg
diff --git a/dlls/ole32/storage32.c b/dlls/ole32/storage32.c
index 5d1299a5797..3335186ff90 100644
--- a/dlls/ole32/storage32.c
+++ b/dlls/ole32/storage32.c
@@ -9026,22 +9026,6 @@ HRESULT WINAPI StgIsStorageILockBytes(ILockBytes *plkbyt)
   return S_FALSE;
 }

-/******************************************************************************
- *              WriteClassStg        [OLE32.@]
- *
- * This method will store the specified CLSID in the specified storage object
- */
-HRESULT WINAPI WriteClassStg(IStorage* pStg, REFCLSID rclsid)
-{
-  if(!pStg)
-    return E_INVALIDARG;
-
-  if(!rclsid)
-    return STG_E_INVALIDPOINTER;
-
-  return IStorage_SetClass(pStg, rclsid);
-}
-
 /***********************************************************************
  *    OleLoadFromStream (OLE32.@)
  *