diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-05 13:14:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-05 13:14:45 (GMT) |
| commit | b41a44e3942c841677cdcf7cd46be77c5c27ab08 (patch) | |
| tree | a95eae27a774d5596a43ac7843d8d876f6f12da6 /generic/tclEnsemble.c | |
| parent | 68caa10ca3562292a830860aaa37289795fe68b7 (diff) | |
| download | tcl-b41a44e3942c841677cdcf7cd46be77c5c27ab08.zip tcl-b41a44e3942c841677cdcf7cd46be77c5c27ab08.tar.gz tcl-b41a44e3942c841677cdcf7cd46be77c5c27ab08.tar.bz2 | |
Some patch clean-up, no change in functionality
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 22c475f..67ee65e 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -3354,7 +3354,7 @@ CompileToInvokedCommand( extraLiteralFlags = LITERAL_UNSHARED; } } - cmdLit = TclRegisterNewCmdLiteral(envPtr, bytes, length, extraLiteralFlags); + cmdLit = TclRegisterLiteral(envPtr, (char *)bytes, length, extraLiteralFlags|LITERAL_CMD_NAME); TclSetCmdNameObj(interp, TclFetchLiteral(envPtr, cmdLit), cmdPtr); TclEmitPush(cmdLit, envPtr); TclDecrRefCount(objPtr); |