From ae851f4fe02fafc4950f954c24cd8cba649eeebe Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Tue, 31 May 2022 10:32:48 +0000 Subject: Tcl_SetCommandTokenInfo() does not exist --- doc/CrtTrace.3 | 6 +----- generic/tclTrace.c | 4 ---- 2 files changed, 1 insertion(+), 9 deletions(-) diff --git a/doc/CrtTrace.3 b/doc/CrtTrace.3 index b1e6483..f1f1d30 100644 --- a/doc/CrtTrace.3 +++ b/doc/CrtTrace.3 @@ -99,11 +99,7 @@ the Tcl interpreter will invoke the command. Any other return code is treated as if the command returned that status, and the command is \fInot\fR invoked. .PP -The \fIobjProc\fR callback must not modify \fIobjv\fR in any way. It -is, however, permissible to change the command by calling -\fBTcl_SetCommandTokenInfo\fR prior to returning. Any such change -takes effect immediately, and the command is invoked with the new -information. +The \fIobjProc\fR callback must not modify \fIobjv\fR in any way. .PP Tracing will only occur for commands at nesting level less than or equal to the \fIlevel\fR parameter (i.e. the \fIlevel\fR diff --git a/generic/tclTrace.c b/generic/tclTrace.c index 0ed57c1..87fe063 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -2105,10 +2105,6 @@ TraceVarProc( * 'objc' and 'objv' parameters give the parameter vector that will be * passed to the command procedure. Proc does not return a value. * - * It is permissible for 'proc' to call Tcl_SetCommandTokenInfo to change - * the command procedure or client data for the command being evaluated, - * and these changes will take effect with the current evaluation. - * * The 'level' argument specifies the maximum nesting level of calls to * be traced. If the execution depth of the interpreter exceeds 'level', * the trace callback is not executed. -- cgit v0.12