summaryrefslogtreecommitdiffstats
path: root/generic/tclTrace.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2023-09-27 09:17:44 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2023-09-27 09:17:44 (GMT)
commit524d6bb36ec16228d711b48a3806f39100e388d2 (patch)
tree24202ebe9ed4b18e655054eb287e35ede662c21a /generic/tclTrace.c
parentfffc4119bef3f1894ff2043a720b902b6a88adbe (diff)
downloadtcl-524d6bb36ec16228d711b48a3806f39100e388d2.zip
tcl-524d6bb36ec16228d711b48a3806f39100e388d2.tar.gz
tcl-524d6bb36ec16228d711b48a3806f39100e388d2.tar.bz2
Eliminate use of old deprecated trace subcommands from testcases
Diffstat (limited to 'generic/tclTrace.c')
-rw-r--r--generic/tclTrace.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c
index 442ce02..dc90024 100644
--- a/generic/tclTrace.c
+++ b/generic/tclTrace.c
@@ -1979,10 +1979,10 @@ TraceVarProc(
int rewind = ((Interp *)interp)->execEnvPtr->rewind;
/*
- * We might call Tcl_Eval() below, and that might evaluate [trace vdelete]
- * which might try to free tvarPtr. We want to use tvarPtr until the end
- * of this function, so we use Tcl_Preserve() and Tcl_Release() to be sure
- * it is not freed while we still need it.
+ * We might call Tcl_EvalEx() below, and that might evaluate
+ * [trace remove variable] which might try to free tvarPtr. We want to
+ * use tvarPtr until the end of this function, so we use Tcl_Preserve()
+ * and Tcl_Release() to be sure it is not freed while we still need it.
*/
result = NULL;