forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix plugin FreeLibrary

This commit is contained in:
Basile Burg 2014-07-31 09:24:28 +02:00
parent fff3797348
commit ae93adbbda
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_main.pas
View File

@ -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