diff options
| author |  Thomas Miedema <thomasmiedema@gmail.com> | 2014-07-04 17:53:07 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2014-07-04 18:14:08 +0200 |
| commit | 5e7250642bfbef066daf8fe7336f0f09bea030b3 (patch) | |
| tree | e6a7ef407e7e784601492909c4ebc8c9c34cf682 /System/Posix | |
| parent | 827e67570db8cdcb0af8a2108c562b7b51fbf244 (diff) | |
Deprecate function `haveRtldLocal`
The function haveRtldLocal was introduced for compatibility with Cygwin
on Mar 28 2002 in GHC commit 4740cf56c774b92e02d31b4666158d70c2e85a8f.
According to https://cygwin.com/viewvc/src/winsup/cygwin/include/dlfcn.h
RTLD_LOCAL has been available on Cygwin since Revision 1.4 (August 9 2010).
Diffstat (limited to 'System/Posix')
| -rw-r--r-- | System/Posix/DynamicLinker/Prim.hsc | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/System/Posix/DynamicLinker/Prim.hsc b/System/Posix/DynamicLinker/Prim.hsc index 646e4fe..0bef60b 100644 --- a/System/Posix/DynamicLinker/Prim.hsc +++ b/System/Posix/DynamicLinker/Prim.hsc @@ -51,9 +51,6 @@ import Foreign.C.String ( CString ) -- -- If you fail to test the flag and use it although it is undefined, -- 'packDL' will throw an error. --- --- The same applies to RTLD_LOCAL which isn't available on --- cygwin. haveRtldNext :: Bool @@ -69,12 +66,8 @@ foreign import ccall unsafe "__hsunix_rtldDefault" rtldDefault :: Ptr a #endif /* HAVE_RTLDDEFAULT */ haveRtldLocal :: Bool - -#ifdef HAVE_RTLDLOCAL haveRtldLocal = True -#else /* HAVE_RTLDLOCAL */ -haveRtldLocal = False -#endif /* HAVE_RTLDLOCAL */ +{-# DEPRECATED haveRtldLocal "defaults to True" #-} -- |Flags for 'System.Posix.DynamicLinker.dlopen'. @@ -98,12 +91,7 @@ packRTLDFlag :: RTLDFlags -> CInt packRTLDFlag RTLD_LAZY = #const RTLD_LAZY packRTLDFlag RTLD_NOW = #const RTLD_NOW packRTLDFlag RTLD_GLOBAL = #const RTLD_GLOBAL - -#ifdef HAVE_RTLDLOCAL packRTLDFlag RTLD_LOCAL = #const RTLD_LOCAL -#else /* HAVE_RTLDLOCAL */ -packRTLDFlag RTLD_LOCAL = error "RTLD_LOCAL not available" -#endif /* HAVE_RTLDLOCAL */ -- |Flags for 'System.Posix.DynamicLinker.dlsym'. Notice that 'Next' |