diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-08 23:02:44 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-08 23:02:44 (GMT) |
| commit | 05741eb1bdedbef1fd4b526cd8ddd3f887d59490 (patch) | |
| tree | fc26c11179a7d13a634b8267bc8a8c2170aff966 | |
| parent | 13eca0490a3b888d3858a8a27f12a779d4a8235f (diff) | |
| download | tcl-05741eb1bdedbef1fd4b526cd8ddd3f887d59490.zip tcl-05741eb1bdedbef1fd4b526cd8ddd3f887d59490.tar.gz tcl-05741eb1bdedbef1fd4b526cd8ddd3f887d59490.tar.bz2 | |
Use the TokenAfter() macro.
| -rw-r--r-- | generic/tclCompile.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 656f700..afe34b0 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -1755,7 +1755,7 @@ ExpandRequested( if (tokenPtr->type == TCL_TOKEN_EXPAND_WORD) { return 1; } - tokenPtr += tokenPtr->numComponents + 1; + tokenPtr = TokenAfter(tokenPtr); } return 0; } @@ -1792,11 +1792,10 @@ CompileInvocation( if (cmdObj) { CompileCmdLiteral(interp, cmdObj, envPtr); wordIdx = 1; - tokenPtr += tokenPtr->numComponents + 1; + tokenPtr = TokenAfter(tokenPtr); } - for (; wordIdx < numWords; - wordIdx++, tokenPtr += tokenPtr->numComponents + 1) { + for (; wordIdx < numWords; wordIdx++, tokenPtr = TokenAfter(tokenPtr)) { int objIdx; envPtr->line = eclPtr->loc[wlineat].line[wordIdx]; @@ -1848,11 +1847,10 @@ CompileExpanded( if (cmdObj) { CompileCmdLiteral(interp, cmdObj, envPtr); wordIdx = 1; - tokenPtr += tokenPtr->numComponents + 1; + tokenPtr = TokenAfter(tokenPtr); } - for (; wordIdx < numWords; - wordIdx++, tokenPtr += tokenPtr->numComponents + 1) { + for (; wordIdx < numWords; wordIdx++, tokenPtr = TokenAfter(tokenPtr)) { int objIdx; envPtr->line = eclPtr->loc[wlineat].line[wordIdx]; |