should fix UnloadPlugin bug

matortheeternal · Nov 4, 2018 · 349e02a · 349e02a
1 parent 412265d
commit 349e02a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/xeSetup.pas b/src/xeSetup.pas
@@ -285,7 +285,7 @@ procedure LoadResources;
 function IndexOfFile(const _file: IwbFile): Integer;
 begin
   for Result := Low(xFiles) to High(xFiles) do
-    if xFiles[Result] = _file then exit;
+    if xFiles[Result].Equals(_file) then exit;
   Result := -1;
 end;
 
@@ -913,7 +913,7 @@ function UnloadPlugin(_id: Cardinal): WordBool; cdecl;
     if not Supports(Resolve(_id), IwbFile, _file)
     or not Supports(_file, IwbContainer, container) then
       raise Exception.Create('Interface must be a file.');
-    if not xFiles[High(xFiles)].Equals(_file) then
+    if IndexOfFile(_file) <> High(xFiles) then
       raise Exception.Create('Can only unload last plugin loaded.');
     ForceClose(_file);
     Result := Release(_id);