diff options
author | vincentdarley <vincentdarley> | 2002-07-15 14:16:42 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley> | 2002-07-15 14:16:42 (GMT) |
commit | 5fdb3151b9ad85b063a3e12ede968dd1efe74ea8 (patch) | |
tree | a865bdf66eb46368801a8eacf2b2bc488ce03d5d /generic/tclIOUtil.c | |
parent | c5fcdc88889a47d5bbb0c61ec6ca2eb6ad151b5b (diff) | |
download | tcl-5fdb3151b9ad85b063a3e12ede968dd1efe74ea8.zip tcl-5fdb3151b9ad85b063a3e12ede968dd1efe74ea8.tar.gz tcl-5fdb3151b9ad85b063a3e12ede968dd1efe74ea8.tar.bz2 |
comment cleanup and code speedup for fs
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r-- | generic/tclIOUtil.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index d273e6c..5b82f7e 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -17,7 +17,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOUtil.c,v 1.54 2002/07/08 12:08:34 vincentdarley Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.55 2002/07/15 14:16:43 vincentdarley Exp $ */ #include "tclInt.h" @@ -2474,9 +2474,8 @@ Tcl_FSChdir(pathPtr) * message is left in the interp's result. * * Side effects: - * New code suddenly appears in memory. We remember which - * filesystem loaded the code, so that we can use that filesystem's - * unloadProc to unload the code when that occurs. + * New code suddenly appears in memory. This may later be + * unloaded by passing the clientData to the unloadProc. * *---------------------------------------------------------------------- */ @@ -4768,12 +4767,13 @@ Tcl_FSGetFileSystemForPath(pathObjPtr) return NULL; } - /* Make sure pathObjPtr is of our type */ + /* + * This will ensure the pathObjPtr can be converted into a + * "path" type, and that we are able to generate a complete + * normalized path which is used to determine the filesystem + * match. + */ - if (Tcl_FSConvertToPathType(NULL, pathObjPtr) != TCL_OK) { - return NULL; - } - if (Tcl_FSGetNormalizedPath(NULL, pathObjPtr) == NULL) { return NULL; } |