diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-08-16 12:13:18 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-08-16 12:13:18 (GMT) |
commit | f12f244fdc6e7d99b7cc26b8c7284627b689950b (patch) | |
tree | 0c80e89c50d32f276626bf0e7fcaf80ea6bc2a28 /generic/tclZipfs.c | |
parent | 4f8ac7dabbffd142c3e82de5c17ca8722e70a738 (diff) | |
parent | 58502bda0b655dcb2b8e619c1cce4ba99f294aad (diff) | |
download | tcl-f12f244fdc6e7d99b7cc26b8c7284627b689950b.zip tcl-f12f244fdc6e7d99b7cc26b8c7284627b689950b.tar.gz tcl-f12f244fdc6e7d99b7cc26b8c7284627b689950b.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclZipfs.c')
-rw-r--r-- | generic/tclZipfs.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index bef7417..1ac5578 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -3913,7 +3913,7 @@ TclZipfs_TclLibrary(void) } #elif !defined(NO_DLFCN_H) Dl_info dlinfo; - if (dladdr(TclZipfs_TclLibrary, &dlinfo) && (dlinfo.dli_fname != NULL) + if (dladdr((const void *)TclZipfs_TclLibrary, &dlinfo) && (dlinfo.dli_fname != NULL) && (ZipfsAppHookFindTclInit(dlinfo.dli_fname) == TCL_OK)) { return Tcl_NewStringObj(zipfs_literal_tcl_library, -1); } |