paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 00:39:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Add dlvsym under ifdef ELF, defined ELF for the OSes I could check

Browse Source 
(FreeBSD, OpenBSD, Linux) Mantis #18892

git-svn-id: trunk@20134 -
This commit is contained in:
marco 2012-01-21 11:56:40 +00:00
parent 925024a915
commit a0b200db76
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/unix/dl.pp
View File

@ -27,6 +27,10 @@ const
{$endif} {$endif}
{$endif} {$endif}
{$if defined(linux) or defined(freebsd) or defined(openbsd)}
{$define ELF} // ELF symbol versioning.
{$endif}
{$if defined(linux) and defined(cpuarm)} {$if defined(linux) and defined(cpuarm)}
{ arm-linux seems to require this } { arm-linux seems to require this }
{$linklib c} {$linklib c}
@ -56,6 +60,9 @@ type
function dlopen(Name : PChar; Flags : longint) : Pointer; cdecl; external libdl; function dlopen(Name : PChar; Flags : longint) : Pointer; cdecl; external libdl;
function dlsym(Lib : Pointer; Name : Pchar) : Pointer; cdecl; external Libdl; function dlsym(Lib : Pointer; Name : Pchar) : Pointer; cdecl; external Libdl;
{$ifdef ELF}
function dlvsym(Lib : Pointer; Name : Pchar; Version: Pchar) : Pointer; cdecl; external Libdl;
{$endif}
function dlclose(Lib : Pointer) : Longint; cdecl; external libdl; function dlclose(Lib : Pointer) : Longint; cdecl; external libdl;
function dlerror() : Pchar; cdecl; external libdl; function dlerror() : Pchar; cdecl; external libdl;
{ overloaded for compatibility with hmodule } { overloaded for compatibility with hmodule }