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/tclCompile.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/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 4e4ead6..ee36bff 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -1793,8 +1793,8 @@ CompileCmdLiteral( } bytes = Tcl_GetStringFromObj(cmdObj, &numBytes); - cmdLitIdx = TclRegisterNewCmdLiteral(envPtr, bytes, numBytes, extraLiteralFlags); - + cmdLitIdx = TclRegisterLiteral(envPtr, (char *)bytes, numBytes, extraLiteralFlags|LITERAL_CMD_NAME); + if (cmdPtr) { TclSetCmdNameObj(interp, TclFetchLiteral(envPtr, cmdLitIdx), cmdPtr); } |