dyncall: dynload/dynload

annotate dynload/dynload_unix.c @ 356:2f64957d6a46

- fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets)

author	Tassilo Philipp
date	Tue, 25 Feb 2020 16:07:45 +0100
parents	85c80b0c021c
children	1d03a3a4220d

rev	line source
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	1 /*
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	2
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	3 Package: dyncall
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	4 Library: dynload
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	5 File: dynload/dynload_unix.c
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	6 Description:
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	7 License:
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	8
281 f5577f6bf97a - file header cleanups for release Tassilo Philipp parents: 254 diff changeset	9 Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>,
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	10 Tassilo Philipp <tphilipp@potion-studios.com>
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	11
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	12 Permission to use, copy, modify, and distribute this software for any
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	13 purpose with or without fee is hereby granted, provided that the above
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	14 copyright notice and this permission notice appear in all copies.
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	15
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	23
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	24 */
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	25
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	26
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	27 /*
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	28
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	29 dynload_unix.c
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	30
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	31 dynload module for .so (unix) and .dylib (mach-o darwin/OS X) files
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	32
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	33 */
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	34
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	35
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	36 #include "dynload.h"
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	37 #include "../autovar/autovar_OS.h"
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	38
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	39 #include <string.h>
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	40
314 b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	41 #if defined(__GLIBC__)
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	42 /* @@@ version check glibc more precisely... dl_iterate_phdr(): glibc ver >= 2.2.4*/
356 2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	43 # if (__GLIBC__ >= 2) && (__GLIBC_MINOR__ >= 3)
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	44 # define DL_USE_GLIBC_ITER_PHDR
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	45 # endif
314 b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	46 /* to access dl_iterate_phdr(), and related w/ glibc */
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	47 # define _GNU_SOURCE
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	48 # define __USE_GNU
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	49 #endif
356 2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	50
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	51 #include <dlfcn.h>
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	52
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	53
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	54 DLLib* dlLoadLibrary(const char* libPath)
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	55 {
232 76ed51a690a6 - todo comment Tassilo Philipp parents: 171 diff changeset	56 return (DLLib*)dlopen(libPath, RTLD_NOW\|RTLD_GLOBAL); //@@@ should use RTLD_LAZY, maybe?
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	57 }
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	58
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	59
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	60 void* dlFindSymbol(DLLib* pLib, const char* pSymbolName)
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	61 {
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	62 return dlsym((void*)pLib, pSymbolName);
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	63 }
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	64
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	65
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	66 void dlFreeLibrary(DLLib* pLib)
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	67 {
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	68 /* Check for NULL for cross-platform consistency. *BSD seems to do that in
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	69 dlclose, Linux does not. POSIX states "if handle does not refer to an open
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	70 object, dlclose() returns a non-zero value", which unfortunately sounds
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	71 like it's not explicitly specified. */
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	72 if(pLib)
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	73 dlclose((void*)pLib);
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	74 }
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	75
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	76
253 5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	77
314 b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	78 /* for dlopen-based dlGetLibraryPath impls below, prefer RTLD_NOLOAD that
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	79 * merely checks lib names */
246 06a354b2e120 changes for dynload for macOS and OpenBSD: Tassilo Philipp parents: 245 diff changeset	80 #if defined(RTLD_NOLOAD)
314 b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	81 # define RTLD_LIGHTEST RTLD_LAZY\|RTLD_NOLOAD
246 06a354b2e120 changes for dynload for macOS and OpenBSD: Tassilo Philipp parents: 245 diff changeset	82 #else
06a354b2e120 changes for dynload for macOS and OpenBSD: Tassilo Philipp parents: 245 diff changeset	83 # define RTLD_LIGHTEST RTLD_LAZY
06a354b2e120 changes for dynload for macOS and OpenBSD: Tassilo Philipp parents: 245 diff changeset	84 #endif
06a354b2e120 changes for dynload for macOS and OpenBSD: Tassilo Philipp parents: 245 diff changeset	85
06a354b2e120 changes for dynload for macOS and OpenBSD: Tassilo Philipp parents: 245 diff changeset	86
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	87 /* helper copying string if buffer big enough, returning length (without \0) */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	88 static int dl_strlen_strcpy(char* dst, const char* src, int dstSize)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	89 {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	90 int l = strlen(src);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	91 if(l < dstSize) /* l+'\0' <= bufSize */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	92 strcpy(dst, src);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	93 return l;
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	94 }
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	95
314 b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	96 /* code for dlGetLibraryPath() is platform specific */
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	97
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	98 /* if dlinfo() exists use it (except on glibc, where it exists since version
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	99 * 2.3.3, but its implementation is dangerous, as no checks are done whether
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	100 * the handle is valid, thus rendering the returned values useless) check for
356 2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	101 * RTLD_DI_LINKMAP and RTLD_SELF, which are #defines used by dlinfo() on most
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	102 * supported targets, or specifically check the OS (e.g. dlinfo() is originally
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	103 * from Solaris) */
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	104 #if ((defined(RTLD_DI_LINKMAP) && defined(RTLD_SELF)) \|\| defined(OS_SunOS)) && !defined(DL_USE_GLIBC_ITER_PHDR)
253 5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	105
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	106 #include <link.h>
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	107
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	108 int dlGetLibraryPath(DLLib* pLib, char* sOut, int bufSize)
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	109 {
312 18de5758980e - stability fix: avoid sigsegv in dynload's dlGetLibraryPath() in some cases (e.g. wrong handle given or OS specific quirk) Tassilo Philipp parents: 281 diff changeset	110 struct link_map* p = NULL;
253 5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	111 int l = -1;
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	112 if(dlinfo(pLib ? pLib : RTLD_SELF, RTLD_DI_LINKMAP, &p) == 0)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	113 l = dl_strlen_strcpy(sOut, p->l_name, bufSize);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	114
253 5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	115 return l+1; /* strlen + '\0' */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	116 }
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	117
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	118
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	119 /* specific implementation needed on Darwin -----> */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	120 #elif defined(OS_Darwin)
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	121
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	122 #include <stdint.h>
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	123 #include <mach-o/dyld.h>
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	124
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	125 int dlGetLibraryPath(DLLib* pLib, char* sOut, int bufSize)
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	126 {
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	127 uint32_t i;
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	128 int l = -1;
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	129
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	130 /* request info about own process? lookup first loaded image */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	131 if(pLib == NULL) {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	132 const char* libPath = _dyld_get_image_name(0); //@@@ consider using _NSGetExecutablePath()
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	133 if(libPath)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	134 l = dl_strlen_strcpy(sOut, libPath, bufSize);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	135 }
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	136 else {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	137 /* Darwin's code doesn't come with (non-standard) dlinfo(), so use dyld(1)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	138 * code. There doesn't seem to be a direct way to query the library path,
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	139 * so "double-load" temporarily all already loaded images (just increases
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	140 * ref count) and compare handles until we found ours. Return the name. */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	141 for(i=_dyld_image_count(); i>0;) /* backwards, ours is more likely at end */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	142 {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	143 const char* libPath = _dyld_get_image_name(--i);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	144 void* lib = dlopen(libPath, RTLD_LIGHTEST);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	145 if(lib) {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	146 dlclose(lib);
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	147
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	148 /* compare handle pointers' high bits (in low 2 bits some flags might */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	149 /* be stored - should be safe b/c address needs alignment, anyways) */
320 85c80b0c021c - Darwin/macos fix for dlGetLibraryPath() to correctly fail on bogus handles Tassilo Philipp parents: 317 diff changeset	150 if(((uintptr_t)pLib ^ (uintptr_t)lib) < 4) {
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	151 l = dl_strlen_strcpy(sOut, libPath, bufSize);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	152 break;
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	153 }
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	154 }
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	155 }
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	156 }
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	157
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	158 return l+1; /* strlen + '\0' */
0 3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	159 }
3e629dc19168 initial from svn dyncall-1745 Daniel Adler parents: diff changeset	160
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	161
356 2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	162 /* - OpenBSD >= 3.7 has dl_iterate_phdr(), as well as glibc >= 2.2.4
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	163 - also some libc impls (like musl) provide dlinfo(), but not RTLD_SELF (see above), however they might come
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	164 with dl_iterate_phdr (which comes from ELF program header iteration), so base it on that
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	165 - skip and use dladdr()-based guessing (see below) if explicitly requested, e.g. by ./configure */
2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	166 #elif !defined(DL_DLADDR_TO_LIBPATH) && (defined(OS_OpenBSD) \|\| defined(DL_USE_GLIBC_ITER_PHDR) \|\| (!defined(RTLD_SELF) && defined(__ELF__)))
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	167
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	168 #include <sys/types.h>
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	169 #include <link.h>
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	170
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	171 typedef struct {
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	172 DLLib* pLib;
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	173 char* sOut;
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	174 int bufSize;
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	175 } iter_phdr_data;
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	176
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	177 static int iter_phdr_cb(struct dl_phdr_info* info, size_t size, void* data)
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	178 {
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	179 int l = -1;
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	180 iter_phdr_data* d = (iter_phdr_data*)data;
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	181 void* lib = NULL;
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	182
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	183 /* get loaded object's handle if not requesting info about process itself */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	184 if(d->pLib != NULL) {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	185 /* unable to relate info->dlpi_addr directly to our dlopen handle, let's
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	186 * do what we do on macOS above, re-dlopen the already loaded lib (just
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	187 * increases ref count) and compare handles */
356 2f64957d6a46 - fix to dynload to build with musl libc (latter has dlinfo but not RTLD_SELF, so fallback to dl_iterate_phdr if on ELF targets) Tassilo Philipp parents: 320 diff changeset	188 /* @@@ might be b/c it's the reloc addr... see below */
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	189 lib = dlopen(info->dlpi_name, RTLD_LIGHTEST);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	190 if(lib)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	191 dlclose(lib);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	192 }
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	193
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	194 /* compare handles and get name if found; if d->pLib == NULL this will
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	195 enter info on first iterated object, which is the process itself */
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	196 if(lib == (void*)d->pLib) {
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	197 l = dl_strlen_strcpy(d->sOut, info->dlpi_name, d->bufSize);
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	198
317 3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	199 /* if dlpi_name is empty, lookup name via dladdr(proc_load_addr, ...) */
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	200 if(l == 0 && d->pLib == NULL) {
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	201 /* dlpi_addr is the reloc base (0 if PIE), find real virtual load addr */
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	202 void* vladdr = (void*)info->dlpi_addr;
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	203 int i = 0;
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	204 for(; i < info->dlpi_phnum; ++i) {
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	205 if(info->dlpi_phdr[i].p_type == PT_LOAD) {
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	206 vladdr = (void*)(info->dlpi_addr + info->dlpi_phdr[i].p_vaddr);
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	207 break;
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	208 }
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	209 }
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	210 Dl_info di;
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	211 if(dladdr(vladdr, &di) != 0)
3df50603afa9 - dynload fix to get proc name when elf relocation is in use Tassilo Philipp parents: 315 diff changeset	212 l = dl_strlen_strcpy(d->sOut, di.dli_fname, d->bufSize);
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	213 }
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	214 }
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	215
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	216 return l+1; /* strlen + '\0'; is 0 if lib not found, which continues iter */
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	217 }
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	218
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	219 int dlGetLibraryPath(DLLib* pLib, char* sOut, int bufSize)
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	220 {
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	221 iter_phdr_data d = { pLib, sOut, bufSize };
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	222 return dl_iterate_phdr(iter_phdr_cb, &d);
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	223 }
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	224
248 ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	225
314 b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	226 /* glibc with neither dl_iterate_phdr() nor dlinfo() (latter introduced after former) @@@
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	227 #elif defined(__GLIBC__) && !defined(DL_USE_GLIBC_ITER_PHDR)
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	228
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	229 @@@impl */
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	230
253 5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	231 /* fallback to dladdr() hack */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	232 #else
248 ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	233
314 b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	234 #warning "Using non-optimal code for dlGetLibraryPath() b/c of platform limitations."
b2e4e23d9953 - stop using dlinfo() on glibc platforms but use dl_iterate_phdr() instead, as former's implementation is nothing more than a fancy cast and thus dangerously assuming that every provided handle is valid Tassilo Philipp parents: 312 diff changeset	235
253 5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	236 /* if nothing else is available, fall back to guessing using dladdr() - this */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	237 /* might not always work, as it's trying to getit via the _fini() symbol, */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	238 /* which is usually defined in ELF files, but not guaranteed */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	239
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	240 /* @@@Note: On some platforms this might be improved, e.g. on BeOS we have */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	241 /* lt_dlgetinfo, which requires iterating over ltdl stuff, but was unable */
5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	242 /* to get that to work (would also introduce a link dependency on libltdl) */
248 ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	243
ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	244 int dlGetLibraryPath(DLLib* pLib, char* sOut, int bufSize)
ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	245 {
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	246 /@@@ missing handler for pLib == NULL/
253 5cfe4322c500 - improved support for older OS versions for dynloads dlGetLibraryPath Tassilo Philipp parents: 248 diff changeset	247 /* cross fingers that shared object is standard ELF and look for _fini */
248 ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	248 int l = -1;
ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	249 void* s = dlsym((void*)pLib, "_fini");
ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	250 if(s) {
ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	251 Dl_info i;
315 3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	252 if(dladdr(s, &i) != 0)
3840e0188520 - allowing lookup of running executable's path by passing NULL to dynload's dlGetLibraryPath() Tassilo Philipp parents: 314 diff changeset	253 l = dl_strlen_strcpy(sOut, i.dli_fname, bufSize);
248 ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	254 }
ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	255 return l+1; /* strlen + '\0' */
ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	256 }
ab23f9f2934a - BeOS impl for dlGetLibraryPath Tassilo Philipp parents: 246 diff changeset	257
242 85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	258 #endif
85b61e8facfe dynload: Tassilo Philipp parents: 232 diff changeset	259

Mercurial > pub > dyncall > dyncall

annotate dynload/dynload_unix.c @ 356:2f64957d6a46