From e4828b6ba6228f62b5d5f6b3f5e8ef63fca86085 Mon Sep 17 00:00:00 2001
From: Francis Beaudet <francis@macadamian.com>
Date: Wed, 10 Mar 1999 13:24:39 +0000
Subject: [PATCH] Implementation of the ReleaseStgMedium method.

---
 ole/ole2.c         | 99 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 relay32/ole32.spec |  2 +-
 2 files changed, 100 insertions(+), 1 deletion(-)

diff --git a/ole/ole2.c b/ole/ole2.c
index 1e4ad28f18b..3b76ccba461 100644
--- a/ole/ole2.c
+++ b/ole/ole2.c
@@ -500,6 +500,105 @@ HRESULT WINAPI OleSetMenuDescriptor(
   return E_FAIL;
 }
 
+/***********************************************************************
+ * ReleaseStgMedium [OLE32.140]
+ */
+void WINAPI ReleaseStgMedium(
+  STGMEDIUM* pmedium)
+{
+  switch (pmedium->tymed)
+  {
+    case TYMED_HGLOBAL:
+    {
+      if ( (pmedium->pUnkForRelease==0) && 
+	   (pmedium->u.hGlobal!=0) )
+	GlobalFree(pmedium->u.hGlobal);
+
+      pmedium->u.hGlobal = 0;
+      break;
+    }
+    case TYMED_FILE:
+    {
+      if (pmedium->u.lpszFileName!=0)
+      {
+	if (pmedium->pUnkForRelease==0)
+	{
+	  DeleteFileW(pmedium->u.lpszFileName);
+	}
+	
+	CoTaskMemFree(pmedium->u.lpszFileName);
+      }
+
+      pmedium->u.lpszFileName = 0;
+      break;
+    }
+    case TYMED_ISTREAM:
+    {
+      if (pmedium->u.pstm!=0)
+      {
+	IStream_Release(pmedium->u.pstm);
+      }
+
+      pmedium->u.pstm = 0;
+      break;
+    }
+    case TYMED_ISTORAGE:
+    {
+      if (pmedium->u.pstg!=0)
+      {
+	IStorage_Release(pmedium->u.pstg);
+      }
+
+      pmedium->u.pstg = 0;
+      break;
+    }
+    case TYMED_GDI:
+    {
+      if ( (pmedium->pUnkForRelease==0) && 
+	   (pmedium->u.hGlobal!=0) )
+	DeleteObject(pmedium->u.hGlobal);
+
+      pmedium->u.hGlobal = 0;
+      break;
+    }
+    case TYMED_MFPICT:
+    {
+      if ( (pmedium->pUnkForRelease==0) && 
+	   (pmedium->u.hMetaFilePict!=0) )
+      {
+	DeleteMetaFile(pmedium->u.hMetaFilePict);
+	GlobalFree(pmedium->u.hMetaFilePict);
+      }
+
+      pmedium->u.hMetaFilePict = 0;
+      break;
+    }
+    case TYMED_ENHMF:
+    {
+      if ( (pmedium->pUnkForRelease==0) && 
+	   (pmedium->u.hEnhMetaFile!=0) )
+      {
+	DeleteEnhMetaFile(pmedium->u.hEnhMetaFile);
+      }
+
+      pmedium->u.hEnhMetaFile = 0;
+      break;
+    }
+    case TYMED_NULL:
+    default:
+      break;
+  }
+
+  /*
+   * After cleaning up, the unknown is released
+   */
+  if (pmedium->pUnkForRelease!=0)
+  {
+    IUnknown_Release(pmedium->pUnkForRelease);
+    pmedium->pUnkForRelease = 0;
+  }
+}
+
 /***
  * OLEDD_Initialize()
  *
diff --git a/relay32/ole32.spec b/relay32/ole32.spec
index e5a4f35a203..7a0bed8ec56 100644
--- a/relay32/ole32.spec
+++ b/relay32/ole32.spec
@@ -140,7 +140,7 @@ type	win32
 137 stub ReadOleStg
 138 stub ReadStringStream
 139 stdcall RegisterDragDrop(long ptr) RegisterDragDrop
-140 stub ReleaseStgMedium
+140 stdcall ReleaseStgMedium(ptr) ReleaseStgMedium
 141 stdcall RevokeDragDrop(long) RevokeDragDrop
 142 stub SetConvertStg
 143 stub SetDocumentBitStg
-- 
2.11.4.GIT