summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorstanton <stanton>1998-07-24 15:50:11 (GMT)
committerstanton <stanton>1998-07-24 15:50:11 (GMT)
commit72822bcfb5532f2114281cf1e9da186b4ffb3b30 (patch)
tree7577edd78edfa4aa844761e588ace165346d8a66 /generic
parent562b313564fbed8fa0039c181b3e56fa7ff5170b (diff)
downloadtcl-72822bcfb5532f2114281cf1e9da186b4ffb3b30.zip
tcl-72822bcfb5532f2114281cf1e9da186b4ffb3b30.tar.gz
tcl-72822bcfb5532f2114281cf1e9da186b4ffb3b30.tar.bz2
lint
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompile.c6
-rw-r--r--generic/tclInt.h4
2 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index c5bce05..ce607d7 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.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.
*
- * SCCS: %Z% $Id: tclCompile.c,v 1.8 1998/07/24 13:49:13 surles Exp $
+ * SCCS: %Z% $Id: tclCompile.c,v 1.9 1998/07/24 15:50:11 stanton Exp $
*/
#include "tclInt.h"
@@ -3291,7 +3291,7 @@ TclCompileDollarVar(interp, string, lastChar, flags, envPtr)
static int
IsLocalScalar(varName, length)
char *varName; /* The name to check. */
- int length; /* The number of characters in the string. */
+ int length; /* The number of characters in the string. */
{
char *p;
char *lastChar = varName + (length - 1);
@@ -4494,7 +4494,7 @@ TclCompileForeachCmd(interp, string, lastChar, flags, envPtr)
numVars = varcList[i];
for (j = 0; j < numVars; j++) {
char *varName = varvList[i][j];
- if (!IsLocalScalar(varName, strlen(varName))) {
+ if (!IsLocalScalar(varName, (int) strlen(varName))) {
result = TCL_OUT_LINE_COMPILE;
goto done;
}
diff --git a/generic/tclInt.h b/generic/tclInt.h
index dbf6215..92e280b 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -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.
*
- * SCCS: %Z% $Id: tclInt.h,v 1.10 1998/07/24 13:49:46 surles Exp $
+ * SCCS: %Z% $Id: tclInt.h,v 1.11 1998/07/24 15:50:19 stanton Exp $
*/
#ifndef _TCLINT
@@ -1162,7 +1162,7 @@ typedef struct ParseValue {
extern unsigned char tclTypeTable[];
#define CHAR_TYPE(src,last) \
- (((src)==(last))?TCL_COMMAND_END:(tclTypeTable+128)[*(src)])
+ (((src)==(last))?TCL_COMMAND_END:(tclTypeTable)[(int)(*(src) + 128)])
/*
* Possible values returned by CHAR_TYPE. Note that except for TCL_DOLLAR,