diff options
Diffstat (limited to 'generic/tclZipfs.c')
| -rw-r--r-- | generic/tclZipfs.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 2c91161..90e8671 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -4190,8 +4190,7 @@ ZipFSMatchInDirectoryProc( * The (normalized) path we're searching. */ - path = TclGetString(normPathPtr); - len = normPathPtr->length; + path = TclGetStringFromObj(normPathPtr, &len); Tcl_DStringInit(&dsPref); Tcl_DStringAppend(&dsPref, prefix, prefixLen); @@ -4363,13 +4362,11 @@ ZipFSPathInFilesystemProc( return -1; } - path = TclGetString(pathPtr); + path = TclGetStringFromObj(pathPtr, &len); if (strncmp(path, ZIPFS_VOLUME, ZIPFS_VOLUME_LEN) != 0) { return -1; } - len = pathPtr->length; - ReadLock(); hPtr = Tcl_FindHashEntry(&ZipFS.fileHash, path); if (hPtr) { |