diff options
| -rw-r--r-- | generic/tclPathObj.c | 5 | ||||
| -rw-r--r-- | unix/dltest/pkga.c | 4 | ||||
| -rw-r--r-- | unix/dltest/pkgua.c | 6 | ||||
| -rw-r--r-- | 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); |