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

* SharedSuffix moved to include files to reduce number of ifdefs

Browse Source 
git-svn-id: trunk@14902 -
This commit is contained in:
Tomas Hajny 2010-02-13 15:44:12 +00:00
parent ef4954f8d9
commit 5c31042f6a
6 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/dynlibs.pas
View File

@ -113,21 +113,6 @@ function LoadLibrarySymbols(const Lib: TLibHandle; const Symbols: PLibSymbol; co
procedure ClearLibrarySymbols(const Symbols: PLibSymbol; const Count: Integer); procedure ClearLibrarySymbols(const Symbols: PLibSymbol; const Count: Integer);
// these are for easier crossplatform construction of dll names in dynloading libs.
Const
{$ifdef Windows}
SharedSuffix = 'dll';
{$else}
{$ifdef Darwin}
SharedSuffix = 'dylib';
{$else}
{$ifdef OS2}
SharedSuffix = 'dll';
{$else}
SharedSuffix = 'so';
{$endif}
{$endif}
{$endif}
Implementation Implementation

2
rtl/netwlibc/dynlibs.inc
View File

@ -24,6 +24,8 @@ Type
Const Const
NilHandle = Nil; NilHandle = Nil;
// these are for easier crossplatform construction of dll names in dynloading libs.
SharedSuffix = 'so';
{$else} {$else}

2
rtl/os2/dynlibs.inc
View File

@ -25,6 +25,8 @@ type
const const
NilHandle = 0; NilHandle = 0;
// these are for easier crossplatform construction of dll names in dynloading libs.
SharedSuffix = 'dll';
{$else} {$else}

6
rtl/unix/dynlibs.inc
View File

@ -25,6 +25,12 @@ Type
Const Const
NilHandle = TLibHandle(0); NilHandle = TLibHandle(0);
// these are for easier crossplatform construction of dll names in dynloading libs.
{$ifdef Darwin}
SharedSuffix = 'dylib';
{$else Darwin}
SharedSuffix = 'so';
{$endif Darwin}
{$else} {$else}

2
rtl/win/dynlibs.inc
View File

@ -25,6 +25,8 @@ Type
Const Const
NilHandle = 0; NilHandle = 0;
// these are for easier crossplatform construction of dll names in dynloading libs.
SharedSuffix = 'dll';
{$else} {$else}

2
rtl/wince/dynlibs.inc
View File

@ -25,6 +25,8 @@ Type
Const Const
NilHandle = 0; NilHandle = 0;
// these are for easier crossplatform construction of dll names in dynloading libs.
SharedSuffix = 'dll';
{$else} {$else}