diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-01-31 12:18:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-01-31 12:18:58 (GMT) |
| commit | 66b69b8d36c7218cee80e94890e1e6fb9b27fcc2 (patch) | |
| tree | b78771f1522d0793b7a2f92659410cadf9bb42be /generic/tclCompile.c | |
| parent | 8a2f752e5139eb86c0d294c1c3222011fa7dde82 (diff) | |
| download | tcl-66b69b8d36c7218cee80e94890e1e6fb9b27fcc2.zip tcl-66b69b8d36c7218cee80e94890e1e6fb9b27fcc2.tar.gz tcl-66b69b8d36c7218cee80e94890e1e6fb9b27fcc2.tar.bz2 | |
Change Tcl_Token definition (int -> size_t). Many related code-changes.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 52c1f11..f463820 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -2276,8 +2276,8 @@ TclCompileVarSubst( CompileEnv *envPtr) { const char *p, *name = tokenPtr[1].start; - int nameBytes = tokenPtr[1].size; - int i, localVar, localVarName = 1; + size_t i, nameBytes = tokenPtr[1].size; + int localVar, localVarName = 1; /* * Determine how the variable name should be handled: if it contains any @@ -2485,7 +2485,7 @@ TclCompileTokens( default: Tcl_Panic("Unexpected token type in TclCompileTokens: %d; %.*s", - tokenPtr->type, tokenPtr->size, tokenPtr->start); + tokenPtr->type, (int)tokenPtr->size, tokenPtr->start); } } |