Преглед на файлове

* fix compilation and bug in new aspell lib loading code

git-svn-id: trunk@12004 -
Almindor преди 17 години
родител
ревизия
dfda298172
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      packages/aspell/src/aspell.pp

+ 3 - 0
packages/aspell/src/aspell.pp

@@ -1082,7 +1082,10 @@ begin
       str(i, s);
       libname := libn + '.' + s;
       LibHandle := LoadLibrary(libname);
+      if LibHandle <> 0 then
+        Break;
     end;
+  end;
   {$endif}
 
   if LibHandle = 0 then