mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 15:09:19 +02:00
* correct dlopen flag values for Darwin (patch by lks, mantis #23979)
git-svn-id: trunk@23771 -
This commit is contained in:
parent
d51da3ad58
commit
f00d9f6f84
@ -40,6 +40,7 @@ const
|
|||||||
RTLD_LAZY = $004;
|
RTLD_LAZY = $004;
|
||||||
RTLD_NOW = $002;
|
RTLD_NOW = $002;
|
||||||
RTLD_BINDING_MASK = $006;
|
RTLD_BINDING_MASK = $006;
|
||||||
|
RTLD_LOCAL = 0;
|
||||||
RTLD_GLOBAL = $10000;
|
RTLD_GLOBAL = $10000;
|
||||||
RTLD_MEMBER = $40000;
|
RTLD_MEMBER = $40000;
|
||||||
RTLD_NEXT = pointer(-3);
|
RTLD_NEXT = pointer(-3);
|
||||||
@ -48,15 +49,28 @@ const
|
|||||||
RTLD_LAZY = $001;
|
RTLD_LAZY = $001;
|
||||||
RTLD_NOW = $002;
|
RTLD_NOW = $002;
|
||||||
RTLD_BINDING_MASK = $003;
|
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_GLOBAL = $100;
|
||||||
RTLD_NEXT = pointer(-1);
|
RTLD_NEXT = pointer(-1);
|
||||||
{$ifdef LINUX}
|
{$ifdef LINUX}
|
||||||
RTLD_DEFAULT = nil;
|
RTLD_DEFAULT = nil;
|
||||||
{$endif}
|
{$endif}
|
||||||
{$ifdef BSD}
|
{$ifdef BSD}
|
||||||
RTLD_DEFAULT = pointer(-2);
|
RTLD_DEFAULT = pointer(-2);
|
||||||
RTLD_MODEMASK = RTLD_BINDING_MASK;
|
RTLD_MODEMASK = RTLD_BINDING_MASK;
|
||||||
{$endif}
|
{$endif}
|
||||||
|
{$endif} // DARWIN
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
type
|
type
|
||||||
|
Loading…
Reference in New Issue
Block a user