From 5fdb3151b9ad85b063a3e12ede968dd1efe74ea8 Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Mon, 15 Jul 2002 14:16:42 +0000
Subject: comment cleanup and code speedup for fs

---
 ChangeLog           |  1 +
 generic/tclIOUtil.c | 18 +++++++++---------
 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;
     }
-- 
cgit v0.12