summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2002-07-31 12:34:23 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2002-07-31 12:34:23 (GMT)
commit3fecf16f4742a5408ef2ce6338913d2d89f23e1b (patch)
treea1c2a935eeb81a595f849f86b1d0d45736b2e53c
parentabcbe870af858ae106278830f01d027d6662e8fc (diff)
downloadtcl-3fecf16f4742a5408ef2ce6338913d2d89f23e1b.zip
tcl-3fecf16f4742a5408ef2ce6338913d2d89f23e1b.tar.gz
tcl-3fecf16f4742a5408ef2ce6338913d2d89f23e1b.tar.bz2
* generic/tclInterp.c: signed/unsigned comparison warning fixed
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclInterp.c6
2 files changed, 8 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 88b3398..895b306 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-31 Miguel Sofer <msofer@users.sourceforge.net>
+
+ * generic/tclInterp.c: signed/unsigned comparison warning fixed
+ (Vince Darley).
+
2002-07-31 Donal K. Fellows <fellowsd@cs.man.ac.uk>
* unix/tcl.m4 (SC_BUGGY_STRTOD): Enabled caching of test results.
diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index 06d81fe..77becd1 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.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: tclInterp.c,v 1.14 2002/07/29 15:56:54 msofer Exp $
+ * RCS: @(#) $Id: tclInterp.c,v 1.15 2002/07/31 12:34:23 msofer Exp $
*/
#include "tclInt.h"
@@ -50,7 +50,7 @@ typedef struct Alias {
* redirecting to it. Random access to this
* hash table is never required - we are using
* a hash table only for convenience. */
- unsigned int objc; /* Count of Tcl_Obj in the prefix of the
+ int objc; /* Count of Tcl_Obj in the prefix of the
* target command to be invoked in the
* target interpreter. Additional arguments
* specified when calling the alias in the
@@ -1347,7 +1347,7 @@ AliasDescribe(interp, slaveInterp, namePtr)
return TCL_OK;
}
aliasPtr = (Alias *) Tcl_GetHashValue(hPtr);
- prefixPtr = Tcl_NewListObj((int) aliasPtr->objc, &aliasPtr->objPtr);
+ prefixPtr = Tcl_NewListObj(aliasPtr->objc, &aliasPtr->objPtr);
Tcl_SetObjResult(interp, prefixPtr);
return TCL_OK;
}