From 9a2d2fb1dcd0564f603aada088c4ca040b17a31e Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Sat, 8 May 2004 15:51:40 +0000
Subject: fix to some compiler warnings

---
 ChangeLog             | 5 +++++
 generic/tclFileName.c | 8 ++++++--
 generic/tclIOUtil.c   | 4 ++--
 3 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 53e5071..96fbee6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-08  Vince Darley  <vincentdarley@users.sourceforge.net>
+
+	* generic/tclFileName.c: 
+	* generic/tclIOUtil.c: remove some compiler warnings on MacOS X.
+
 2004-05-07  Chengye Mao <chengye.geo@yahoo.com>
         * win/tclWinPipe.c: refixed bug 789040 re-entered in rev 1.41.
         Let's be careful and don't re-enter previously fixed bugs.
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index adbae7a..0307ee1 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclFileName.c,v 1.54 2004/05/07 07:44:37 vincentdarley Exp $
+ * RCS: @(#) $Id: tclFileName.c,v 1.55 2004/05/08 15:51:41 vincentdarley Exp $
  */
 
 #include "tclInt.h"
@@ -1679,6 +1679,9 @@ TclGlob(interp, pattern, pathPrefix, globFlags, types)
                     tail += driveNameLen;
                     break;
                 }
+		case TCL_PATH_RELATIVE: {
+		    /* Do nothing */
+		}
             }
             Tcl_DecrRefCount(temp);
 	}
@@ -1702,7 +1705,8 @@ TclGlob(interp, pattern, pathPrefix, globFlags, types)
     if (pathPrefix == NULL) {
 	int driveNameLen;
 	Tcl_Obj *driveName;
-	if (TclFSNonnativePathType(tail, strlen(tail), NULL, &driveNameLen, 
+	if (TclFSNonnativePathType(tail, (int) strlen(tail), NULL, 
+				   &driveNameLen, 
 				   &driveName) == TCL_PATH_ABSOLUTE) {
 	    pathPrefix = driveName;
 	    tail += driveNameLen;
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 48621d8..3d3ef91 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.102 2004/05/07 07:44:37 vincentdarley Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.103 2004/05/08 15:51:41 vincentdarley Exp $
  */
 
 #include "tclInt.h"
@@ -553,7 +553,7 @@ static void
 FsRecacheFilesystemList(void)
 {
     ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&tclFsDataKey);
-    FilesystemRecord *fsRecPtr, *tmpFsRecPtr;
+    FilesystemRecord *fsRecPtr, *tmpFsRecPtr = NULL;
 
     /* Trash the current cache */
     fsRecPtr = tsdPtr->filesystemList;
-- 
cgit v0.12