diff options
author | dgp <dgp@users.sourceforge.net> | 2020-09-15 18:04:02 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-09-15 18:04:02 (GMT) |
commit | 163d31e623394ea08605580b140ef1a5f14a0573 (patch) | |
tree | 30378ff4653a9894ccf072e5a2c622afd288bd0e /generic/tclTrace.c | |
parent | e36bada6ec8d9679acbb7b2b73f38d3d643d5dd7 (diff) | |
parent | 93124d77a6848e2118547a4f477abd8e26493252 (diff) | |
download | tcl-163d31e623394ea08605580b140ef1a5f14a0573.zip tcl-163d31e623394ea08605580b140ef1a5f14a0573.tar.gz tcl-163d31e623394ea08605580b140ef1a5f14a0573.tar.bz2 |
merge 8.7
Diffstat (limited to 'generic/tclTrace.c')
-rw-r--r-- | generic/tclTrace.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index e05fa69..300e0b9 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -183,7 +183,7 @@ typedef struct { int Tcl_TraceObjCmd( - TCL_UNUSED(ClientData), + TCL_UNUSED(void *), Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ @@ -1848,7 +1848,7 @@ TraceExecutionProc( * Append result code. */ - resultCode = Tcl_NewIntObj(code); + TclNewIntObj(resultCode, code); resultCodeStr = Tcl_GetString(resultCode); Tcl_DStringAppendElement(&cmd, resultCodeStr); Tcl_DecrRefCount(resultCode); @@ -1976,7 +1976,7 @@ TraceVarProc( int rewind = ((Interp *)interp)->execEnvPtr->rewind; /* - * We might call Tcl_Eval() below, and that might evaluate [trace vdelete] + * 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. |