diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-09-24 14:13:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-09-24 14:13:14 (GMT) |
| commit | 9dc50cfea3577af25d9d20eb13ebdbe608294c94 (patch) | |
| tree | ddd3e3bac2724c1d572c0fb542913ddbc914ebaf /generic/tclZipfs.c | |
| parent | 05631cdda6a915139f20a913b9fd821c56ba6f0c (diff) | |
| parent | 3d43898853cb0d4550889e72c6f6452cff60fa7d (diff) | |
| download | tcl-9dc50cfea3577af25d9d20eb13ebdbe608294c94.zip tcl-9dc50cfea3577af25d9d20eb13ebdbe608294c94.tar.gz tcl-9dc50cfea3577af25d9d20eb13ebdbe608294c94.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 b0392b1..4b7aafa 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); } |