summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-07-08 23:02:44 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-07-08 23:02:44 (GMT)
commit05741eb1bdedbef1fd4b526cd8ddd3f887d59490 (patch)
treefc26c11179a7d13a634b8267bc8a8c2170aff966
parent13eca0490a3b888d3858a8a27f12a779d4a8235f (diff)
downloadtcl-05741eb1bdedbef1fd4b526cd8ddd3f887d59490.zip
tcl-05741eb1bdedbef1fd4b526cd8ddd3f887d59490.tar.gz
tcl-05741eb1bdedbef1fd4b526cd8ddd3f887d59490.tar.bz2
Use the TokenAfter() macro.
-rw-r--r--generic/tclCompile.c12
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];