mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 23:19:24 +02:00
+ Clear handle in ReleaseIBase60
git-svn-id: trunk@3395 -
This commit is contained in:
parent
5fc6e81f55
commit
dc0aef1c78
@ -2677,6 +2677,7 @@ begin
|
||||
else if UnloadLibrary(IBaseLibraryHandle) then
|
||||
begin
|
||||
Dec(RefCount);
|
||||
IBaseLibraryHandle := NilHandle;
|
||||
LoadedLibrary:='';
|
||||
end;
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user