diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-02-06 21:20:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-02-06 21:20:00 (GMT) |
| commit | cb2f9cccfbc8007a93a1010bbabe4614939b94a2 (patch) | |
| tree | 4ed530aa1e22b15e16d2ee4df6473338fec4407f /generic/tclParse.c | |
| parent | 346aa04836d20ec950e8f1a1f322c008c42c081f (diff) | |
| download | tcl-cb2f9cccfbc8007a93a1010bbabe4614939b94a2.zip tcl-cb2f9cccfbc8007a93a1010bbabe4614939b94a2.tar.gz tcl-cb2f9cccfbc8007a93a1010bbabe4614939b94a2.tar.bz2 | |
Some more complient API changes
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index b012222a..ca10b89 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -190,7 +190,7 @@ void TclParseInit( Tcl_Interp *interp, /* Interpreter to use for error reporting */ const char *start, /* Start of string to be parsed. */ - int numBytes, /* Total number of bytes in string. If < 0, + size_t numBytes, /* Total number of bytes in string. If (size_t)-1, * the script consists of all bytes up to the * first null character. */ Tcl_Parse *parsePtr) /* Points to struct to initialize */ @@ -420,7 +420,8 @@ Tcl_ParseCommand( tokenPtr->size = src - tokenPtr->start; tokenPtr->numComponents = parsePtr->numTokens - (wordIndex + 1); if (expandWord) { - int i, isLiteral = 1; + size_t i; + int isLiteral = 1; /* * When a command includes a word that is an expanded literal; for |