Fix [8259d74a64] fix

tcltk · Oct 3, 2023 · 56f57b3 · 56f57b3
2 parents ec0c60f + 378391a
commit 56f57b3
Showing 1 changed file with 8 additions and 1 deletion.
diff --git 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;
 	}
     }