Просмотр исходного кода

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

git-svn-id: trunk@9818 -
Almindor 17 лет назад
Родитель
Сommit
ea2df5e0e0
1 измененных файлов с 2 добавлено и 1 удалено
  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;