summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-05 21:33:49 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-05 21:33:49 (GMT)
commit618c49af4d299c9f0d776e604a1c81dd186b3b2d (patch)
treefc7a3f45cef9a2370191f49217d52f8701daba92 /generic/tclCompile.c
parent87b0db4d91332f8bf1bd7a58e9a5fb73cc31d8ae (diff)
downloadtcl-618c49af4d299c9f0d776e604a1c81dd186b3b2d.zip
tcl-618c49af4d299c9f0d776e604a1c81dd186b3b2d.tar.gz
tcl-618c49af4d299c9f0d776e604a1c81dd186b3b2d.tar.bz2
Backout [c1a376375e0e6488]: imported namespace ensemble command name distorted during deletion trace on the import.
According to Travis, there's a memory leak which needs to be fixed first.
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 7d67e12..fd63da3 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -1834,7 +1834,7 @@ CompileCmdLiteral(
bytes = TclGetStringFromObj(cmdObj, &numBytes);
cmdLitIdx = TclRegisterLiteral(envPtr, bytes, numBytes, extraLiteralFlags);
- if (cmdPtr && TclRoutineHasName(cmdPtr)) {
+ if (cmdPtr) {
TclSetCmdNameObj(interp, TclFetchLiteral(envPtr, cmdLitIdx), cmdPtr);
}
TclEmitPush(cmdLitIdx, envPtr);