diff options
| author | dgp@users.sourceforge.net <dgp> | 2012-06-21 18:03:18 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2012-06-21 18:03:18 (GMT) |
| commit | a56a79105488bc24fcbbb1bb41e9143e9cdcda2d (patch) | |
| tree | 52a7c668f88718eca3b2687e1356330a1686c9f1 /generic/tclIOUtil.c | |
| parent | 5b5ffc65248903e4aa350140639ccdc87d7cb5a6 (diff) | |
| parent | 8a0b8f5aa28418b9a4f6594be1d56c97a411689a (diff) | |
| download | tcl-a56a79105488bc24fcbbb1bb41e9143e9cdcda2d.zip tcl-a56a79105488bc24fcbbb1bb41e9143e9cdcda2d.tar.gz tcl-a56a79105488bc24fcbbb1bb41e9143e9cdcda2d.tar.bz2 | |
Stop storing FilesystemRecord in the intrep of a "path". We never use it.
Store the Tcl_Filesystem instead, which is what we actually need.
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 27 |
1 files changed, 1 insertions, 26 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index a4916b0..f466ca8 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -3948,31 +3948,6 @@ Tcl_FSSplitPath( } return result; } - -/* Simple helper function. */ -Tcl_Obj * -TclFSInternalToNormalized( - const Tcl_Filesystem *fromFilesystem, - ClientData clientData, - FilesystemRecord **fsRecPtrPtr) -{ - FilesystemRecord *fsRecPtr = FsGetFirstFilesystem(); - - while (fsRecPtr != NULL) { - if (fsRecPtr->fsPtr == fromFilesystem) { - *fsRecPtrPtr = fsRecPtr; - break; - } - fsRecPtr = fsRecPtr->nextPtr; - } - - if ((fsRecPtr == NULL) - || (fromFilesystem->internalToNormalizedProc == NULL)) { - return NULL; - } - return fromFilesystem->internalToNormalizedProc(clientData); -} - /* *---------------------------------------------------------------------- * @@ -4563,7 +4538,7 @@ Tcl_FSGetFileSystemForPath( * call to the pathInFilesystemProc. */ - TclFSSetPathDetails(pathPtr, fsRecPtr, clientData); + TclFSSetPathDetails(pathPtr, fsRecPtr->fsPtr, clientData); return fsRecPtr->fsPtr; } } |
