diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-25 17:28:41 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-25 17:28:41 (GMT) |
| commit | 31f30b5b76b8119976e9b2fbf14f906cc1f93dbf (patch) | |
| tree | c4800746607e87f009eda5a50a42f2efbea496da | |
| parent | 95d360112f704b8021072214e97259a29c8bca39 (diff) | |
| download | tcl-31f30b5b76b8119976e9b2fbf14f906cc1f93dbf.zip tcl-31f30b5b76b8119976e9b2fbf14f906cc1f93dbf.tar.gz tcl-31f30b5b76b8119976e9b2fbf14f906cc1f93dbf.tar.bz2 | |
Fix gcc warning. Add knownBug constraint to zipfs list (only showed in non-embedded config)
| -rw-r--r-- | generic/tclZipfs.c | 2 | ||||
| -rw-r--r-- | tests/zipfs.test | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index fec7586..510fa33 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -5385,7 +5385,7 @@ ZipFSMatchInDirectoryProc( for (hPtr = Tcl_FirstHashEntry(&ZipFS.fileHash, &search); hPtr; hPtr = Tcl_NextHashEntry(&search)) { - ZipEntry *z = (ZipEntry *) Tcl_GetHashValue(hPtr); + z = (ZipEntry *) Tcl_GetHashValue(hPtr); if ((dirOnly >= 0) && ((dirOnly && !z->isDirectory) || (!dirOnly && z->isDirectory))) { diff --git a/tests/zipfs.test b/tests/zipfs.test index 03b7c53..2c4775f 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -706,7 +706,7 @@ namespace eval test_ns_zipfs { testzipfslist no-pattern-mount-on-empty "" {test.zip {}} {{} test testdir testdir/test2} -constraints !zipfslib testzipfslist no-pattern-mount-on-root "" [list test.zip [zipfs root]] {{} test testdir testdir/test2} -constraints !zipfslib testzipfslist no-pattern-mount-on-slash "" [list test.zip /] {{} test testdir testdir/test2} -constraints !zipfslib - testzipfslist no-pattern-mount-on-level3 "" [list test.zip testmt/a/b] {{} testmt testmt/a testmt/a/b testmt/a/b/test testmt/a/b/testdir testmt/a/b/testdir/test2} -constraints {!zipfslib} + testzipfslist no-pattern-mount-on-level3 "" [list test.zip testmt/a/b] {{} testmt testmt/a testmt/a/b testmt/a/b/test testmt/a/b/testdir testmt/a/b/testdir/test2} -constraints {knownBug !zipfslib} testzipfslist no-pattern-multiple "" {test.zip testmountA test.zip testmountB/subdir} { testmountA testmountA/test testmountA/testdir testmountA/testdir/test2 testmountB/subdir testmountB/subdir/test testmountB/subdir/testdir testmountB/subdir/testdir/test2 |