summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorapnadkarni <apnmbx-wits@yahoo.com>2023-10-03 05:00:41 (GMT)
committerapnadkarni <apnmbx-wits@yahoo.com>2023-10-03 05:00:41 (GMT)
commit56f57b382a880a2b3d6e4acd7202431f5e7e65cc (patch)
tree1e281d574ef66344e9f38acdafaaf4aec646c20e
parentec0c60f4713cafe1cf1ba58dbd2a1a562339f9e0 (diff)
parent378391ae59eec7ab4b82def4d0f317da7577eb6a (diff)
downloadtcl-56f57b382a880a2b3d6e4acd7202431f5e7e65cc.zip
tcl-56f57b382a880a2b3d6e4acd7202431f5e7e65cc.tar.gz
tcl-56f57b382a880a2b3d6e4acd7202431f5e7e65cc.tar.bz2
Fix [8259d74a64] fix
-rw-r--r--generic/tclZipfs.c9
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c
index 0f4d268..1aec819 100644
--- a/generic/tclZipfs.c
+++ b/generic/tclZipfs.c
@@ -6263,6 +6263,10 @@ void TclZipfsFinalize(void)
* ZipFS.fileHash and ZipFS.zipHash tables.
*/
WriteLock();
+ if (!ZipFS.initialized) {
+ Unlock();
+ return;
+ }
Tcl_HashEntry *hPtr;
Tcl_HashSearch zipSearch;
@@ -6285,7 +6289,10 @@ void TclZipfsFinalize(void)
Tcl_FSUnregister(&zipfsFilesystem);
Tcl_DeleteHashTable(&ZipFS.fileHash);
Tcl_DeleteHashTable(&ZipFS.zipHash);
- ckfree(ZipFS.fallbackEntryEncoding);
+ if (ZipFS.fallbackEntryEncoding) {
+ ckfree(ZipFS.fallbackEntryEncoding);
+ ZipFS.fallbackEntryEncoding = NULL;
+ }
ZipFS.initialized = 0;
}
}