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

* clear up aspell of useless define/code (LOGGING, 64compat)

Browse Source 
* use "static" dynlinking on Linux and FreeBSD (to enable easier redistribution)

git-svn-id: trunk@9169 -
This commit is contained in:
Almindor 2007-11-09 18:27:50 +00:00
parent 33b5d4d73c
commit 39d365f7a7
1 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/extra/aspell/aspell.pp
View File

@ -15,18 +15,13 @@ uses
cTypes, DynLibs;
{$IFDEF Linux}
{$IFDEF Compat64}
{$DEFINE Static}
const aspelllib='aspell';
{$ELSE}
{$DEFINE Dynamic}
const aspelllib='/usr/lib/libaspell.so';
{$ENDIF}
{$ENDIF}
{$IFDEF FreeBSD}
{$DEFINE Dynamic}
const aspelllib='/usr/local/lib/libaspell.so';
{$DEFINE Static}
const aspelllib='aspell';
{$ENDIF}
{$IFDEF darwin}
@ -130,9 +125,12 @@ procedure delete_aspell_speller (ths:aspellspeller); cdecl; external aspelllib;
implementation
{$ifdef windows}
{$ifdef Dynamic}
uses
SysUtils;
{$ifdef windows}
SysUtils,
{$endif}
dynlibs;
{$endif}
{$IFDEF Dynamic}
@ -175,12 +173,7 @@ var
alib := LoadLibrary(mylib);
if alib = NilHandle then
begin
{$IFDEF LOG}
debuglog (' Error loading spellchecking engine...');
{$ENDIF}
exit;
end;
if loadsymbol ('new_aspell_config',@new_aspell_config)=false then exit;
if loadsymbol ('get_aspell_dict_info_list',@get_aspell_dict_info_list)=false then exit;