diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-27 10:23:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-27 10:23:57 (GMT) |
| commit | 5f54c3fb44efbfa40563a0640295e7350b5ca679 (patch) | |
| tree | 23d2ad46aa7c8cad3a4051d0c88af6534cdeef57 /generic/tclTrace.c | |
| parent | f3cb255841150f6270c05cab8324748ed71ec527 (diff) | |
| parent | 524d6bb36ec16228d711b48a3806f39100e388d2 (diff) | |
| download | tcl-5f54c3fb44efbfa40563a0640295e7350b5ca679.zip tcl-5f54c3fb44efbfa40563a0640295e7350b5ca679.tar.gz tcl-5f54c3fb44efbfa40563a0640295e7350b5ca679.tar.bz2 | |
Merge 8.6
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 a718c86..797714d 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -2005,10 +2005,10 @@ TraceVarProc( int rewind = ((Interp *)interp)->execEnvPtr->rewind; /* - * We might call Tcl_EvalEx() 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; |