diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-03-06 20:25:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-03-06 20:25:37 (GMT) |
| commit | 528344d260b875f68c91f19ca3a190dee6ad7805 (patch) | |
| tree | ef978af44020e783ea79eb7a1b3fe63e2a145a31 /generic/tclCompCmds.c | |
| parent | b0b8c3d41740b1b7f459174edf6f3713de367101 (diff) | |
| parent | b897b2c25b8d2d715a4f5f2ac516f26c76e6e321 (diff) | |
| download | tcl-528344d260b875f68c91f19ca3a190dee6ad7805.zip tcl-528344d260b875f68c91f19ca3a190dee6ad7805.tar.gz tcl-528344d260b875f68c91f19ca3a190dee6ad7805.tar.bz2 | |
merge trunkbug_3606683
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 4751455..40348fa 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -349,8 +349,7 @@ TclCompileArraySetCmd( 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); if (localIndex >= 0) { |