[v2 4/5] compobj.dll16: Implement CoFreeAllLibraries16().

[Zebediah Figura]

Signed-off-by: Zebediah Figura <z.figura12 at gmail.com>
---
 dlls/compobj.dll16/compobj.c          | 17 +++++++++++++++--
 dlls/compobj.dll16/compobj.dll16.spec |  2 +-
 2 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/dlls/compobj.dll16/compobj.c b/dlls/compobj.dll16/compobj.c
index fa021b5..e761f7f 100644
--- a/dlls/compobj.dll16/compobj.c
+++ b/dlls/compobj.dll16/compobj.c
@@ -341,6 +341,20 @@ void WINAPI CoFreeLibrary16(
 }
 
 /******************************************************************************
+ *           CoFreeAllLibraries [COMPOBJ.12]
+ */
+void WINAPI CoFreeAllLibraries16(void)
+{
+    struct open_dll *ptr, *next;
+
+    TRACE("()\n");
+    LIST_FOR_EACH_ENTRY_SAFE(ptr, next, &open_dll_list, struct open_dll, entry)
+    {
+        dll_list_free(ptr);
+    }
+}
+
+/******************************************************************************
  *           CoBuildVersion [COMPOBJ.1]
  */
 DWORD WINAPI CoBuildVersion16(void)
@@ -397,8 +411,7 @@ HRESULT WINAPI CoInitialize16(
  */
 void WINAPI CoUninitialize16(void)
 {
-  TRACE("()\n");
-  CoFreeAllLibraries();
+    CoFreeAllLibraries16();
 }
 
 /***********************************************************************
diff --git a/dlls/compobj.dll16/compobj.dll16.spec b/dlls/compobj.dll16/compobj.dll16.spec
index 175b957..887c3ec 100644
--- a/dlls/compobj.dll16/compobj.dll16.spec
+++ b/dlls/compobj.dll16/compobj.dll16.spec
@@ -9,7 +9,7 @@
 9 stub COUNMARSHALINTERFACE
 10 pascal CoLoadLibrary(long long) CoLoadLibrary16
 11 pascal CoFreeLibrary(long) CoFreeLibrary16
-12 stub COFREEALLLIBRARIES
+12 pascal CoFreeAllLibraries() CoFreeAllLibraries16
 13 pascal CoCreateInstance(ptr ptr long ptr ptr) CoCreateInstance16
 14 stub STRINGFROMIID
 15 pascal CoDisconnectObject(ptr long) CoDisconnectObject16
-- 
2.7.4