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/tclInt.h | |
| parent | 562b313564fbed8fa0039c181b3e56fa7ff5170b (diff) | |
| download | tcl-72822bcfb5532f2114281cf1e9da186b4ffb3b30.zip tcl-72822bcfb5532f2114281cf1e9da186b4ffb3b30.tar.gz tcl-72822bcfb5532f2114281cf1e9da186b4ffb3b30.tar.bz2 | |
lint
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 4 |
1 files changed, 2 insertions, 2 deletions
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, |