diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-27 09:17:44 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-27 09:17:44 (GMT) |
commit | 524d6bb36ec16228d711b48a3806f39100e388d2 (patch) | |
tree | 24202ebe9ed4b18e655054eb287e35ede662c21a /generic/tclTrace.c | |
parent | fffc4119bef3f1894ff2043a720b902b6a88adbe (diff) | |
download | tcl-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.c | 8 |
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; |