diff options
author | dgp <dgp@users.sourceforge.net> | 2012-06-21 18:03:18 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-06-21 18:03:18 (GMT) |
commit | 607975b5dcc8af44e0fe65ab9ca787ed659e79bd (patch) | |
tree | 52a7c668f88718eca3b2687e1356330a1686c9f1 /generic/tclIOUtil.c | |
parent | 89dc338380acf9c6e134808e1575e8bf83743b91 (diff) | |
parent | 687013812cd6ca56d2bfc1c0b75d98a6f8a2d264 (diff) | |
download | tcl-607975b5dcc8af44e0fe65ab9ca787ed659e79bd.zip tcl-607975b5dcc8af44e0fe65ab9ca787ed659e79bd.tar.gz tcl-607975b5dcc8af44e0fe65ab9ca787ed659e79bd.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; } } |