diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-04 13:22:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-04 13:22:37 (GMT) |
| commit | 4f20ba22068f0928363747492ca4b6fbbd4821b4 (patch) | |
| tree | e3352104edaf96274bad037d9542e124fac54691 /generic/tclTest.c | |
| parent | 299297e8d3f59249a766f9cd8da4522177d00ca5 (diff) | |
| parent | 3f2bb8a02927f794f32b98f7be6f643d0c57b6bb (diff) | |
| download | tcl-core-tip-626-candidate.zip tcl-core-tip-626-candidate.tar.gz tcl-core-tip-626-candidate.tar.bz2 | |
Merge 9.0core-tip-626-candidate
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 0480601..4e332a2 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -222,7 +222,7 @@ static void MainLoop(void); static Tcl_CmdProc NoopCmd; static Tcl_ObjCmdProc2 NoopObjCmd; static int ObjTraceProc(void *clientData, - Tcl_Interp *interp, int level, const char *command, + Tcl_Interp *interp, TclSizeT level, const char *command, Tcl_Command commandToken, TclSizeT objc, Tcl_Obj *const objv[]); static void ObjTraceDeleteProc(void *clientData); @@ -1163,8 +1163,8 @@ TestcmdinfoObjCmd( case CMDINFO_MODIFY: info.proc = CmdProc2; info.clientData = (void *) "new_command_data"; - info.objProc = NULL; - info.objClientData = NULL; + info.objProc2 = NULL; + info.objClientData2 = NULL; info.deleteProc = CmdDelProc2; info.deleteData = (void *) "new_delete_data"; if (Tcl_SetCommandInfo(interp, Tcl_GetString(objv[2]), &info) == 0) { @@ -1493,7 +1493,7 @@ static int ObjTraceProc( TCL_UNUSED(void *), Tcl_Interp *interp, /* Tcl interpreter */ - TCL_UNUSED(int) /*level*/, + TCL_UNUSED(TclSizeT) /*level*/, const char *command, TCL_UNUSED(Tcl_Command), TCL_UNUSED(TclSizeT) /*objc*/, |