diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-31 13:14:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-08-31 13:14:34 (GMT) |
| commit | b8e93abb309628a70ecd72c95c7cdfe86b4f8c0a (patch) | |
| tree | 3757f14c688f1e0d97e2bf3079151a64be64d75a /generic/tclTest.c | |
| parent | a77a09d3df676d69e5fbd7096333442f323ad5c4 (diff) | |
| parent | f0ea214c57459a16eaa686227c785defd8e00ea8 (diff) | |
| download | tcl-b8e93abb309628a70ecd72c95c7cdfe86b4f8c0a.zip tcl-b8e93abb309628a70ecd72c95c7cdfe86b4f8c0a.tar.gz tcl-b8e93abb309628a70ecd72c95c7cdfe86b4f8c0a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 1e54f1f..b87d659 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -210,10 +210,7 @@ static Tcl_ResolveCompiledVarProc InterpCompiledVarResolver; static void MainLoop(void); static Tcl_CmdProc NoopCmd; static Tcl_ObjCmdProc NoopObjCmd; -static int ObjTraceProc(void *clientData, - Tcl_Interp *interp, int level, const char *command, - Tcl_Command commandToken, int objc, - Tcl_Obj *const objv[]); +static Tcl_CmdObjTraceProc ObjTraceProc; static void ObjTraceDeleteProc(void *clientData); static void PrintParse(Tcl_Interp *interp, Tcl_Parse *parsePtr); static void SpecialFree(void *blockPtr); @@ -1545,10 +1542,10 @@ static int ObjTraceProc( TCL_UNUSED(void *), Tcl_Interp *interp, /* Tcl interpreter */ - TCL_UNUSED(int) /*level*/, + TCL_UNUSED(int) /* level */, const char *command, TCL_UNUSED(Tcl_Command), - TCL_UNUSED(int) /*objc*/, + TCL_UNUSED(int) /* objc */, Tcl_Obj *const objv[]) /* Argument objects. */ { const char *word = Tcl_GetString(objv[0]); |