diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-18 11:57:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-18 11:57:36 (GMT) |
| commit | d29c3178051f09e66db3204230d26fa28364fdd4 (patch) | |
| tree | a5f6ebf5a533405ecd7064eb0f69ccdfd61b84eb /generic/tclZipfs.c | |
| parent | afa0f7421bb00ea52020c1118c980b7045a38ddc (diff) | |
| parent | 43d72b8d8e0d029c39b3c9abbb84f196aed496f5 (diff) | |
| download | tcl-d29c3178051f09e66db3204230d26fa28364fdd4.zip tcl-d29c3178051f09e66db3204230d26fa28364fdd4.tar.gz tcl-d29c3178051f09e66db3204230d26fa28364fdd4.tar.bz2 | |
Merge 8.7. Remove -stoponerror option
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 c1ba395..c77e8db 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); } |