diff options
Diffstat (limited to 'System/Posix/DynamicLinker/Prim.hsc')
| -rw-r--r-- | System/Posix/DynamicLinker/Prim.hsc | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/System/Posix/DynamicLinker/Prim.hsc b/System/Posix/DynamicLinker/Prim.hsc index 2ab3a20..eb1985e 100644 --- a/System/Posix/DynamicLinker/Prim.hsc +++ b/System/Posix/DynamicLinker/Prim.hsc @@ -62,6 +62,10 @@ foreign import ccall unsafe "__hsunix_rtldNext" rtldNext :: Ptr a haveRtldNext = False #endif /* HAVE_RTLDNEXT */ +#ifdef HAVE_RTLDDEFAULT +foreign import ccall unsafe "__hsunix_rtldDefault" rtldDefault :: Ptr a +#endif /* HAVE_RTLDDEFAULT */ + haveRtldLocal :: Bool #ifdef HAVE_RTLDLOCAL @@ -118,5 +122,9 @@ packDL Next = rtldNext #else packDL Next = error "RTLD_NEXT not available" #endif +#ifdef HAVE_RTLDDEFAULT +packDL Default = rtldDefault +#else packDL Default = nullPtr +#endif packDL (DLHandle h) = h |