summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-06-08 19:18:39 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-06-08 19:18:39 (GMT)
commit71d29f51af72942fd0ff29013cd77a59cddbcbca (patch)
tree830b85678ec45de2bd68f3df1eb36da1b3815853
parent95199c5bd3068d26758129488d106f3c88f67fb6 (diff)
downloadtcl-71d29f51af72942fd0ff29013cd77a59cddbcbca.zip
tcl-71d29f51af72942fd0ff29013cd77a59cddbcbca.tar.gz
tcl-71d29f51af72942fd0ff29013cd77a59cddbcbca.tar.bz2
Silence compiler warnings.
-rw-r--r--generic/tclPathObj.c5
-rw-r--r--unix/dltest/pkga.c4
-rw-r--r--unix/dltest/pkgua.c6
-rw-r--r--unix/tclUnixPipe.c6
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);