summaryrefslogtreecommitdiffstats
path: root/unix/dltest
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 /unix/dltest
parent95199c5bd3068d26758129488d106f3c88f67fb6 (diff)
downloadtcl-71d29f51af72942fd0ff29013cd77a59cddbcbca.zip
tcl-71d29f51af72942fd0ff29013cd77a59cddbcbca.tar.gz
tcl-71d29f51af72942fd0ff29013cd77a59cddbcbca.tar.bz2
Silence compiler warnings.
Diffstat (limited to 'unix/dltest')
-rw-r--r--unix/dltest/pkga.c4
-rw-r--r--unix/dltest/pkgua.c6
2 files changed, 5 insertions, 5 deletions
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");