diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-06-08 20:25:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-06-08 20:25:43 (GMT) |
| commit | 0bfce763373517dffd7999ac456bc2a8331d9bdd (patch) | |
| tree | 7bd87a2bfe65ad0ef14bd628e9603ca5480819ad | |
| parent | 0c9e6cc0c0fbc431ddd9d42445b19d75d52d9a6f (diff) | |
| download | tcl-0bfce763373517dffd7999ac456bc2a8331d9bdd.zip tcl-0bfce763373517dffd7999ac456bc2a8331d9bdd.tar.gz tcl-0bfce763373517dffd7999ac456bc2a8331d9bdd.tar.bz2 | |
Silence compiler warnings
| -rw-r--r-- | generic/tclTest.c | 5 | ||||
| -rw-r--r-- | unix/dltest/pkga.c | 4 | ||||
| -rw-r--r-- | unix/tclUnixPipe.c | 4 |
3 files changed, 6 insertions, 7 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 2695920..1d7774a 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.62.2.7 2004/03/01 17:33:21 dgp Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.62.2.8 2004/06/08 20:25:43 dgp Exp $ */ #define TCL_TEST @@ -1985,7 +1985,8 @@ TesteventObjCmd( ClientData unused, /* Not used */ NULL }; int posIndex; /* Index of the chosen position */ - static CONST int posNum[] = { /* Interpretation of the chosen position */ + static CONST Tcl_QueuePosition posNum[] = { + /* Interpretation of the chosen position */ TCL_QUEUE_HEAD, TCL_QUEUE_TAIL, TCL_QUEUE_MARK diff --git a/unix/dltest/pkga.c b/unix/dltest/pkga.c index 8dd87ae..63170fc 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.4.24.2 2003/07/16 02:16:14 mdejong Exp $ + * RCS: @(#) $Id: pkga.c,v 1.4.24.3 2004/06/08 20:25:45 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/tclUnixPipe.c b/unix/tclUnixPipe.c index 4ceb16f..89e64f3 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.23 2003/02/21 14:15:58 das Exp $ + * RCS: @(#) $Id: tclUnixPipe.c,v 1.23.2.1 2004/06/08 20:25:45 dgp Exp $ */ #include "tclInt.h" @@ -660,8 +660,6 @@ 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. |