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

12
src/ce_main.pas
View File

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