From 71d29f51af72942fd0ff29013cd77a59cddbcbca Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 8 Jun 2004 19:18:39 +0000
Subject: Silence compiler warnings.

---
 generic/tclPathObj.c | 5 +++--
 unix/dltest/pkga.c   | 4 ++--
 unix/dltest/pkgua.c  | 6 +++---
 unix/tclUnixPipe.c   | 6 ++----
 4 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c
index df9963a..7a11e56 100644
--- a/generic/tclPathObj.c
+++ b/generic/tclPathObj.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: tclPathObj.c,v 1.31 2004/05/19 16:56:39 vincentdarley Exp $
+ * RCS: @(#) $Id: tclPathObj.c,v 1.32 2004/06/08 19:18:39 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -578,9 +578,10 @@ TclPathPart(interp, pathPtr, portion)
     } else {
 	int splitElements;
 	Tcl_Obj *splitPtr;
-	Tcl_Obj *resultPtr = NULL;
+	Tcl_Obj *resultPtr;
       standardPath:
 
+       	resultPtr = NULL;
         if (portion == TCL_PATH_EXTENSION) {
 	    return GetExtension(pathPtr);
         } else if (portion == TCL_PATH_ROOT) {
diff --git a/unix/dltest/pkga.c b/unix/dltest/pkga.c
index da5a439..1d4f2ae 100644
--- a/unix/dltest/pkga.c
+++ b/unix/dltest/pkga.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: pkga.c,v 1.7 2003/07/16 02:17:06 mdejong Exp $
+ * RCS: @(#) $Id: pkga.c,v 1.8 2004/06/08 19:18:39 dgp Exp $
  */
 #include "tcl.h"
 
@@ -49,7 +49,7 @@ Pkga_EqObjCmd(dummy, interp, objc, objv)
 {
     int result;
     CONST char *str1, *str2;
-    int len1, len2, n;
+    int len1, len2;
 
     if (objc != 3) {
 	Tcl_WrongNumArgs(interp, 1, objv,  "string1 string2");
diff --git a/unix/dltest/pkgua.c b/unix/dltest/pkgua.c
index 6665a8f..1d7d24a 100644
--- a/unix/dltest/pkgua.c
+++ b/unix/dltest/pkgua.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: pkgua.c,v 1.2 2004/03/04 09:40:51 dkf Exp $
+ * RCS: @(#) $Id: pkgua.c,v 1.3 2004/06/08 19:18:39 dgp Exp $
  */
 
 #include "tcl.h"
@@ -51,7 +51,7 @@ PkguaInitTokensHashTable(void)
     interpTokenMapInitialised = 1;
 }
 
-static int
+void 
 PkguaFreeTokensHashTable(void)
 {
     Tcl_HashSearch search;
@@ -126,7 +126,7 @@ PkguaEqObjCmd(dummy, interp, objc, objv)
 {
     int result;
     CONST char *str1, *str2;
-    int len1, len2, n;
+    int len1, len2;
 
     if (objc != 3) {
 	Tcl_WrongNumArgs(interp, 1, objv,  "string1 string2");
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c
index 448d19e..77d1f8b 100644
--- a/unix/tclUnixPipe.c
+++ b/unix/tclUnixPipe.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: tclUnixPipe.c,v 1.24 2004/04/06 22:25:57 dgp Exp $
+ * RCS: @(#) $Id: tclUnixPipe.c,v 1.25 2004/06/08 19:18:39 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -659,14 +659,12 @@ SetupStdFile(file, type)
             
             fcntl(targetFd, F_SETFD, 0);
 	} else {
-	    int result;
-
 	    /*
 	     * Since we aren't dup'ing the file, we need to explicitly clear
 	     * the close-on-exec flag.
 	     */
 
-	    result = fcntl(fd, F_SETFD, 0);
+	    fcntl(fd, F_SETFD, 0);
 	}
     } else {
 	close(targetFd);
-- 
cgit v0.12