Differences From Artifact [1e2900c680]:

• File generic/tclTrace.c — part of check-in [e1e7f93e74] at 2024-11-12 12:10:40 on branch core-8-branch — backout [b569739692]: [02977e0004] Reduce impact of recursion depth bug. Remove some unneeded typecasts. Some int -> Tcl_Size (user: jan.nijtmans size: 98345) [more...]

To Artifact [02557f7009]:

• File generic/tclTrace.c — part of check-in [49100cbdd2] at 2024-12-10 09:38:43 on branch core-8-branch — (cherry-pick )Fix ungrammatical doubling of words in comments (user: jan.nijtmans size: 98339) [more...]

1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622

	if (tracePtr->level > 0 && curLevel > tracePtr->level) {
	    continue;
	}

	if (!(tracePtr->flags & TCL_TRACE_EXEC_IN_PROGRESS)) {
	    /*
	     * The proc invoked might delete the traced command which which
	     * might try to free tracePtr. We want to use tracePtr until the
	     * end of this if section, so we use Tcl_Preserve() and
	     * Tcl_Release() to be sure it is not freed while we still need
	     * it.
	     */

	    Tcl_Preserve(tracePtr);

|

1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622

	if (tracePtr->level > 0 && curLevel > tracePtr->level) {
	    continue;
	}

	if (!(tracePtr->flags & TCL_TRACE_EXEC_IN_PROGRESS)) {
	    /*
	     * The proc invoked might delete the traced command which
	     * might try to free tracePtr. We want to use tracePtr until the
	     * end of this if section, so we use Tcl_Preserve() and
	     * Tcl_Release() to be sure it is not freed while we still need
	     * it.
	     */

	    Tcl_Preserve(tracePtr);