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/tclCompCmds.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/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index b9bc228..3823364 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -1084,7 +1084,8 @@ TclCompileDictIncrCmd( if (parsePtr->numWords == 4) { const char *word; - int numBytes, code; + size_t numBytes; + int code; Tcl_Token *incrTokenPtr; Tcl_Obj *intObj; @@ -3346,7 +3347,7 @@ TclLocalScalarFromToken( int TclLocalScalar( const char *bytes, - int numBytes, + size_t numBytes, CompileEnv *envPtr) { Tcl_Token token[2] = {{TCL_TOKEN_SIMPLE_WORD, NULL, 0, 1}, @@ -3397,9 +3398,10 @@ TclPushVarName( { register const char *p; const char *name, *elName; - register int i, n; + register size_t i, n; Tcl_Token *elemTokenPtr = NULL; - int nameChars, elNameChars, simpleVarName, localIndex; + size_t nameChars, elNameChars; + int simpleVarName, localIndex; int elemTokenCount = 0, allocedTokens = 0, removedParen = 0; /* @@ -3471,7 +3473,7 @@ TclPushVarName( } } if (simpleVarName) { - int remainingChars; + size_t remainingChars; /* * Check the last token: if it is just ')', do not count it. |