From 6aa2bc6d5c78c18a1562bdae776914890037f24f Mon Sep 17 00:00:00 2001 From: apnadkarni Date: Fri, 20 Oct 2023 16:53:14 +0000 Subject: Add test to trigger bug 33b2486199 --- tests/zipfs.test | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/tests/zipfs.test b/tests/zipfs.test index c1cde5e..d8817f8 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -19,6 +19,7 @@ if {"::tcltest" ni [namespace children]} { source [file join [file dirname [info script]] tcltests.tcl] testConstraint zipfs [expr {[llength [info commands zipfs]]}] +testConstraint thread [expr {0 == [catch {package require Thread 2.8-}]}] set ziproot [zipfs root] @@ -1923,6 +1924,14 @@ namespace eval test_ns_zipfs { zipfs unmount $mt } -result "" + test bug-33b2486199 "zipfs unmounted on thread exit" -constraints { + thread + } -body { + set before [lsort [zipfs mount]] + thread::release [thread::create] + after 100; # Needed to allow the spawned thread to exit to trigger bug + string equal $before [lsort [zipfs mount]] + } -result 1 } -- cgit v0.12 From d5396e3590b3fbcab61454db55688bd81fe1a59d Mon Sep 17 00:00:00 2001 From: apnadkarni Date: Fri, 20 Oct 2023 17:01:48 +0000 Subject: Potential fix --- generic/tclZipfs.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 6ef921a..c7a194a 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -6287,6 +6287,9 @@ ZipfsAppHookFindTclInit( void TclZipfsFinalize(void) { + if (!TclInExit()) + return; + /* * Finalization steps: * For every mounted archive, if it no longer has any open handles -- cgit v0.12 From a21682acad5156d66092b97a3072e5ace01234b0 Mon Sep 17 00:00:00 2001 From: apnadkarni Date: Sat, 21 Oct 2023 04:14:33 +0000 Subject: Move zipfs finalization to TclFinalizeFilesystem --- generic/tclIO.c | 1 - generic/tclIOUtil.c | 1 + generic/tclZipfs.c | 58 ++++++++++++++++++++++++++--------------------------- 3 files changed, 29 insertions(+), 31 deletions(-) diff --git a/generic/tclIO.c b/generic/tclIO.c index d79397b..0d047aa 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -706,7 +706,6 @@ TclFinalizeIOSubsystem(void) TclpFinalizeSockets(); TclpFinalizePipes(); - TclZipfsFinalize(); } /* diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 2cb22f5..7719f35 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -761,6 +761,7 @@ TclFinalizeFilesystem(void) * needed. */ + TclZipfsFinalize(); fsRecPtr = filesystemList; while (fsRecPtr != NULL) { FilesystemRecord *tmpFsRecPtr = fsRecPtr->nextPtr; diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index c7a194a..9372079 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -6285,18 +6285,25 @@ ZipfsAppHookFindTclInit( } #endif +/* + *------------------------------------------------------------------------ + * + * TclZipfsFinalize -- + * + * Frees all zipfs resources IRRESPECTIVE of open channels (there should + * not be any!) etc. To be called at process exit time (from + * Tcl_Finalize->TclFinalizeFilesystem) + * + * Results: + * None. + * + * Side effects: + * Frees up archives loaded into memory. + * + *------------------------------------------------------------------------ + */ void TclZipfsFinalize(void) { - if (!TclInExit()) - return; - - /* - * Finalization steps: - * For every mounted archive, if it no longer has any open handles - * clean up the mount and associated zip file entries. - * If there are no more mounted archives, clean up and free the - * ZipFS.fileHash and ZipFS.zipHash tables. - */ WriteLock(); if (!ZipFS.initialized) { Unlock(); @@ -6308,30 +6315,21 @@ void TclZipfsFinalize(void) for (hPtr = Tcl_FirstHashEntry(&ZipFS.zipHash, &zipSearch); hPtr; hPtr = Tcl_NextHashEntry(&zipSearch)) { ZipFile *zf = (ZipFile *) Tcl_GetHashValue(hPtr); - if (zf->numOpen == 0) { - Tcl_DeleteHashEntry(hPtr); - CleanupMount(zf); - ZipFSCloseArchive(NULL, zf); - ckfree(zf); - } + Tcl_DeleteHashEntry(hPtr); + CleanupMount(zf); /* Frees file entries belonging to the archive */ + ZipFSCloseArchive(NULL, zf); + ckfree(zf); } - hPtr = Tcl_FirstHashEntry(&ZipFS.fileHash, &zipSearch); - if (hPtr == NULL) { - hPtr = Tcl_FirstHashEntry(&ZipFS.zipHash, &zipSearch); - if (hPtr == NULL) { - /* Both hash tables empty. Free all resources */ - Tcl_FSUnregister(&zipfsFilesystem); - Tcl_DeleteHashTable(&ZipFS.fileHash); - Tcl_DeleteHashTable(&ZipFS.zipHash); - if (ZipFS.fallbackEntryEncoding) { - ckfree(ZipFS.fallbackEntryEncoding); - ZipFS.fallbackEntryEncoding = NULL; - } - ZipFS.initialized = 0; - } + Tcl_FSUnregister(&zipfsFilesystem); + Tcl_DeleteHashTable(&ZipFS.fileHash); + Tcl_DeleteHashTable(&ZipFS.zipHash); + if (ZipFS.fallbackEntryEncoding) { + ckfree(ZipFS.fallbackEntryEncoding); + ZipFS.fallbackEntryEncoding = NULL; } + ZipFS.initialized = 0; Unlock(); } -- cgit v0.12