paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 15:20:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* SharedSuffix

Browse Source 
git-svn-id: trunk@10825 -
This commit is contained in:
marco 2008-04-27 20:33:33 +00:00
parent 971e54c113
commit 03c02a17e9
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/dynlibs.pas
View File

@ -45,7 +45,23 @@ Function GetProcAddress(Lib : TlibHandle; ProcName : AnsiString) : Pointer;
Type
HModule = TLibHandle;
// 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
{ ---------------------------------------------------------------------