summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2002-07-15 14:16:42 (GMT)
committervincentdarley <vincentdarley>2002-07-15 14:16:42 (GMT)
commit5fdb3151b9ad85b063a3e12ede968dd1efe74ea8 (patch)
treea865bdf66eb46368801a8eacf2b2bc488ce03d5d
parentc5fcdc88889a47d5bbb0c61ec6ca2eb6ad151b5b (diff)
downloadtcl-5fdb3151b9ad85b063a3e12ede968dd1efe74ea8.zip
tcl-5fdb3151b9ad85b063a3e12ede968dd1efe74ea8.tar.gz
tcl-5fdb3151b9ad85b063a3e12ede968dd1efe74ea8.tar.bz2
comment cleanup and code speedup for fs
-rw-r--r--ChangeLog1
-rw-r--r--generic/tclIOUtil.c18
2 files changed, 10 insertions, 9 deletions
diff --git a/ChangeLog b/ChangeLog
index b2a2ffb..b8cb980 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,6 +7,7 @@
since no longer used in tclWinFile.c
* mac/tclMacFile.c: completed TclpObjLink implementation which
was previously lacking.
+ * generic/tclIOUtil.c: comment cleanup and code speedup.
2002-07-14 Don Porter <dgp@users.sourceforge.net>
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;
}