coml2: Move WriteClassStm from ole32.

dlls/coml2/coml2.spec

@@ -30,4 +30,4 @@
 @ stub StgOpenStorageOnILockBytes
 @ stub StgSetTimes
 @ stub WriteClassStg
-@ stub WriteClassStm
+@ stdcall WriteClassStm(ptr ptr)

dlls/coml2/storage32.c

@@ -75,6 +75,19 @@ HRESULT WINAPI ReadClassStg(IStorage *pstg, CLSID *pclsid)
 }
 
 /***********************************************************************
+ *              WriteClassStm (coml2.@)
+ */
+HRESULT WINAPI WriteClassStm(IStream *pStm, REFCLSID rclsid)
+{
+    TRACE("(%p,%p)\n", pStm, rclsid);
+
+    if (!pStm || !rclsid)
+        return E_INVALIDARG;
+
+    return IStream_Write(pStm, rclsid, sizeof(CLSID), NULL);
+}
+
+/***********************************************************************
  *              ReadClassStm (coml2.@)
  */
 HRESULT WINAPI ReadClassStm(IStream *pStm, CLSID *pclsid)

dlls/ole32/storage32.c

@@ -9426,29 +9426,6 @@ StgIsStorageFile(LPCOLESTR fn)
 	return S_FALSE;
 }
 
-/***********************************************************************
- *		WriteClassStm (OLE32.@)
- *
- * Writes a CLSID to a stream.
- *
- * PARAMS
- *  pStm   [I] Stream to write to.
- *  rclsid [I] CLSID to write.
- *
- * RETURNS
- *  Success: S_OK.
- *  Failure: HRESULT code.
- */
-HRESULT WINAPI WriteClassStm(IStream *pStm,REFCLSID rclsid)
-{
-    TRACE("(%p,%p)\n",pStm,rclsid);
-
-    if (!pStm || !rclsid)
-        return E_INVALIDARG;
-
-    return IStream_Write(pStm,rclsid,sizeof(CLSID),NULL);
-}
-
 /************************************************************************
  * OleConvert Functions
  ***********************************************************************/