Fabian Maurer : coml2: Move WriteClassStg from ole32.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: c241468f165ad6208fe96ffbe78fdb77b482872a
URL:    https://gitlab.winehq.org/wine/wine/-/commit/c241468f165ad6208fe96ffbe78fdb7...

Author: Fabian Maurer 
Date:   Thu Nov 16 05:15:35 2023 +0100

coml2: Move WriteClassStg from ole32.

---

dlls/coml2/coml2.spec  |  2 +-
 dlls/coml2/storage32.c | 14 ++++++++++++++
 dlls/ole32/storage32.c | 16 ----------------
 3 files changed, 15 insertions(+), 17 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/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.@)
  *