paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 00:42:06 +02: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}
{$if defined(linux) or defined(freebsd) or defined(openbsd)}
{$define ELF} // ELF symbol versioning.
{$endif}
{$if defined(linux) and defined(cpuarm)}
{ arm-linux seems to require this }
{$linklib c}
@ -56,6 +60,9 @@ type
function dlopen(Name : PChar; Flags : longint) : 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 dlerror() : Pchar; cdecl; external libdl;
{ overloaded for compatibility with hmodule }