From ae93adbbda9a570b040d3b00cac0c8a63e238cea Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 31 Jul 2014 09:24:28 +0200
Subject: [PATCH] fix plugin FreeLibrary

---
 src/ce_main.pas | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 81840f57..aa592354 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -352,7 +352,9 @@ begin
         (plg^.HostDispatchToPlug = nil) then
       begin
         Dispose(plg);
-        //FreeLibrary(hdl);
+        {$IFDEF RELEASE}
+        FreeLibrary(Hdl);
+        {$ENDIF}
         continue;
       end;
       fPlugList.addPlugin(plg);
@@ -496,13 +498,15 @@ end;
 procedure TCEMainForm.KillPlugs;
 var
   descr: TPlugDescriptor;
+  i: NativeInt;
 begin
   if fPlugList = nil then exit;
-  for descr in fPlugList do
+  for i := 0 to fPlugList.Count-1 do
   begin
+    descr := fPlugList.plugin[i];
     descr.HostDestroyPlug(descr.Plugin);
-    {$IFDEF WINDOWS}
-    //FreeLibrary(descr.Handle);
+    {$IFDEF RELEASE}
+    FreeLibrary(descr.Handle);
     {$ENDIF}
   end;
   while fPlugList.Count <> 0 do