diff options
| author | dgp <dgp@noemail.net> | 2013-03-05 22:13:30 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2013-03-05 22:13:30 (GMT) |
| commit | 4343401381805fd18b62e72b84ff6a4e27b2be32 (patch) | |
| tree | 75bdcad5e3dd07490f2ff56d5d37a926d77e61a2 /generic/tclEnsemble.c | |
| parent | 59d31c99d1ecc6300cd716856561a7dbe40eef16 (diff) | |
| download | tcl-4343401381805fd18b62e72b84ff6a4e27b2be32.zip tcl-4343401381805fd18b62e72b84ff6a4e27b2be32.tar.gz tcl-4343401381805fd18b62e72b84ff6a4e27b2be32.tar.bz2 | |
New internal routine TclFetchLiteral() for better CompileEnv encapsulation.
FossilOrigin-Name: b98f550ddf6e9702e73ed101ccecf3053773e623
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index bf9dac2..813e056 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -3167,7 +3167,7 @@ CompileToInvokedCommand( if (envPtr->clNext) { TclContinuationsEnterDerived( - envPtr->literalArrayPtr[literal].objPtr, + TclFetchLiteral(envPtr, literal), tokPtr[1].start - envPtr->source, mapPtr->loc[eclIndex].next[i]); } @@ -3190,7 +3190,7 @@ CompileToInvokedCommand( Tcl_GetCommandFullName(interp, (Tcl_Command) cmdPtr, objPtr); bytes = Tcl_GetStringFromObj(objPtr, &length); cmdLit = TclRegisterNewCmdLiteral(envPtr, bytes, length); - TclSetCmdNameObj(interp, envPtr->literalArrayPtr[cmdLit].objPtr, cmdPtr); + TclSetCmdNameObj(interp, TclFetchLiteral(envPtr, cmdLit), cmdPtr); TclEmitPush(cmdLit, envPtr); TclDecrRefCount(objPtr); @@ -3239,7 +3239,7 @@ CompileBasicNArgCommand( Tcl_GetCommandFullName(interp, (Tcl_Command) cmdPtr, objPtr); bytes = Tcl_GetStringFromObj(objPtr, &length); literal = TclRegisterNewCmdLiteral(envPtr, bytes, length); - TclSetCmdNameObj(interp, envPtr->literalArrayPtr[literal].objPtr, cmdPtr); + TclSetCmdNameObj(interp, TclFetchLiteral(envPtr, literal), cmdPtr); TclEmitPush(literal, envPtr); TclDecrRefCount(objPtr); |