diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-06 13:16:42 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-06 13:16:42 (GMT) |
commit | c5e46efb954d7d3ec9a1594489918053bde2e758 (patch) | |
tree | 278bca716ad8a5153b7e7e9dcad47a8f27dc437e /generic/tclCompCmds.c | |
parent | 8ef8edabe2bb9d9fc6364861567a343f0c9f6f2c (diff) | |
parent | b897b2c25b8d2d715a4f5f2ac516f26c76e6e321 (diff) | |
download | tcl-c5e46efb954d7d3ec9a1594489918053bde2e758.zip tcl-c5e46efb954d7d3ec9a1594489918053bde2e758.tar.gz tcl-c5e46efb954d7d3ec9a1594489918053bde2e758.tar.bz2 |
merge trunk
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) { |