paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation and bug in new aspell lib loading code

Browse Source 
git-svn-id: trunk@12004 -
This commit is contained in:
Almindor 2008-10-31 22:35:30 +00:00
parent dbe3cfba21
commit dfda298172
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/aspell/src/aspell.pp
View File

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