diff options
| author | stanton <stanton> | 1998-07-24 15:50:11 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-07-24 15:50:11 (GMT) |
| commit | 72822bcfb5532f2114281cf1e9da186b4ffb3b30 (patch) | |
| tree | 7577edd78edfa4aa844761e588ace165346d8a66 /generic | |
| parent | 562b313564fbed8fa0039c181b3e56fa7ff5170b (diff) | |
| download | tcl-72822bcfb5532f2114281cf1e9da186b4ffb3b30.zip tcl-72822bcfb5532f2114281cf1e9da186b4ffb3b30.tar.gz tcl-72822bcfb5532f2114281cf1e9da186b4ffb3b30.tar.bz2 | |
lint
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompile.c | 6 | ||||
| -rw-r--r-- | generic/tclInt.h | 4 |
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, |