Pārlūkot izejas kodu

Merged revisions 9818 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r9818 | Almindor | 2008-01-20 16:58:41 +0100 (Ne, 20 jan 2008) | 2 lines

* fix crash on aspell finalization if dynlib was used but library wasn't found

........

git-svn-id: branches/fixes_2_2@9822 -

Almindor 17 gadi atpakaļ
vecāks
revīzija
7d1ca8170b
1 mainītis faili ar 2 papildinājumiem un 1 dzēšanām
  1. 2 1
      packages/extra/aspell/aspell.pp

+ 2 - 1
packages/extra/aspell/aspell.pp

@@ -203,7 +203,8 @@ var
 procedure aspell_done;
  begin
 {$IFDEF Dynamic}
- UnloadLibrary(alib);
+ if aspellpresent then
+   UnloadLibrary(alib);
 {$ENDIF}
  end;