coml2: Move WriteClassStg from ole32.

dlls/coml2/coml2.spec

@@ -29,5 +29,5 @@
 @ stub StgOpenStorageEx
 @ stub StgOpenStorageOnILockBytes
 @ stub StgSetTimes
-@ stub WriteClassStg
+@ stdcall WriteClassStg(ptr ptr)
 @ stdcall WriteClassStm(ptr ptr)

dlls/coml2/storage32.c

@@ -51,6 +51,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.@)
  */
 HRESULT WINAPI ReadClassStg(IStorage *pstg, CLSID *pclsid)

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.@)
  *