Fix [8259d74a64] fix

tcltk · Oct 3, 2023 · 244bc2b · 244bc2b
2 parents 02bbd73 + 56f57b3
commit 244bc2b
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c
@@ -6236,6 +6236,10 @@ void TclZipfsFinalize(void)
      * ZipFS.fileHash and ZipFS.zipHash tables.
      */
     WriteLock();
+    if (!ZipFS.initialized) {
+	Unlock();
+	return;
+    }
 
     Tcl_HashEntry *hPtr;
     Tcl_HashSearch zipSearch;
@@ -6258,7 +6262,10 @@ void TclZipfsFinalize(void)
 	    Tcl_FSUnregister(&zipfsFilesystem);
 	    Tcl_DeleteHashTable(&ZipFS.fileHash);
 	    Tcl_DeleteHashTable(&ZipFS.zipHash);
-	    Tcl_Free(ZipFS.fallbackEntryEncoding);
+	    if (ZipFS.fallbackEntryEncoding) {
+		Tcl_Free(ZipFS.fallbackEntryEncoding);
+		ZipFS.fallbackEntryEncoding = NULL;
+	    }
 	    ZipFS.initialized = 0;
 	}
     }