diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-16 14:52:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-16 14:52:33 (GMT) |
| commit | e783ef57ec6e0ab2d08f1524e86cbc849e36f763 (patch) | |
| tree | d5d6d3f10ed96a8021575236367e918d8fd999be /generic/tclCompile.c | |
| parent | 2d98ee0f477ef33bb0a8473efbd44ef203463c32 (diff) | |
| download | tcl-e783ef57ec6e0ab2d08f1524e86cbc849e36f763.zip tcl-e783ef57ec6e0ab2d08f1524e86cbc849e36f763.tar.gz tcl-e783ef57ec6e0ab2d08f1524e86cbc849e36f763.tar.bz2 | |
Simplify arguments to TclContinuationsEnterDerived().
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 7e0be76..bc7501a 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -1805,8 +1805,7 @@ TclCompileInvocation( tokenPtr[1].start, tokenPtr[1].size); if (envPtr->clNext) { TclContinuationsEnterDerived(TclFetchLiteral(envPtr, objIdx), - tokenPtr[1].start - envPtr->source, - mapPtr->loc[eclIndex].next[wordIdx]); + tokenPtr[1].start - envPtr->source, envPtr->clNext); } TclEmitPush(objIdx, envPtr); } @@ -1855,8 +1854,7 @@ CompileExpanded( tokenPtr[1].start, tokenPtr[1].size); if (envPtr->clNext) { TclContinuationsEnterDerived(TclFetchLiteral(envPtr, objIdx), - tokenPtr[1].start - envPtr->source, - mapPtr->loc[eclIndex].next[wordIdx]); + tokenPtr[1].start - envPtr->source, envPtr->clNext); } TclEmitPush(objIdx, envPtr); } |