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

* correct dlopen flag values for Darwin (patch by lks, mantis #23979)

Browse Source 
git-svn-id: trunk@23771 -
This commit is contained in:
Jonas Maebe 2013-03-10 10:22:43 +00:00
parent d51da3ad58
commit f00d9f6f84
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/unix/dl.pp
View File

@ -40,6 +40,7 @@ const
RTLD_LAZY = $004;
RTLD_NOW = $002;
RTLD_BINDING_MASK = $006;
RTLD_LOCAL = 0;
RTLD_GLOBAL = $10000;
RTLD_MEMBER = $40000;
RTLD_NEXT = pointer(-3);
@ -48,15 +49,28 @@ const
RTLD_LAZY = $001;
RTLD_NOW = $002;
RTLD_BINDING_MASK = $003;
{$ifdef DARWIN}
RTLD_LOCAL = $004;
RTLD_GLOBAL = $008;
RTLD_NOLOAD = $010;
RTLD_NODELETE = $080;
RTLD_FIRST = $100;
RTLD_NEXT = pointer(-1);
RTLD_DEFAULT = pointer(-2);
RTLD_SELF = pointer(-3);
RTLD_MAIN_ONLY = pointer(-5);
{$else}
RTLD_LOCAL = 0;
RTLD_GLOBAL = $100;
RTLD_NEXT = pointer(-1);
{$ifdef LINUX}
{$ifdef LINUX}
RTLD_DEFAULT = nil;
{$endif}
{$ifdef BSD}
{$endif}
{$ifdef BSD}
RTLD_DEFAULT = pointer(-2);
RTLD_MODEMASK = RTLD_BINDING_MASK;
{$endif}
{$endif}
{$endif} // DARWIN
{$endif}
type