diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-29 10:00:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-29 10:00:23 (GMT) |
| commit | dc471da4331df6c6ec520bf55f7b5ce7f6490bdf (patch) | |
| tree | cbfed49668e3100f7d926a2f7701d4914d798633 /generic/tcl.h | |
| parent | 4e9c7a9ae0adaee122394db9ebf41650340fe023 (diff) | |
| parent | f0a6c93a0e89c86140a0c5f3a19db9c38628d1d8 (diff) | |
| download | tcl-dc471da4331df6c6ec520bf55f7b5ce7f6490bdf.zip tcl-dc471da4331df6c6ec520bf55f7b5ce7f6490bdf.tar.gz tcl-dc471da4331df6c6ec520bf55f7b5ce7f6490bdf.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 683df50..55c0111 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -555,6 +555,9 @@ typedef void (Tcl_CmdTraceProc) (void *clientData, Tcl_Interp *interp, typedef int (Tcl_CmdObjTraceProc) (void *clientData, Tcl_Interp *interp, int level, const char *command, Tcl_Command commandInfo, int objc, struct Tcl_Obj *const *objv); +typedef int (Tcl_CmdObjTraceProc2) (void *clientData, Tcl_Interp *interp, + int level, const char *command, Tcl_Command commandInfo, size_t objc, + struct Tcl_Obj *const objv[]); typedef void (Tcl_CmdObjTraceDeleteProc) (void *clientData); typedef void (Tcl_DupInternalRepProc) (struct Tcl_Obj *srcPtr, struct Tcl_Obj *dupPtr); @@ -577,6 +580,8 @@ typedef void (Tcl_InterpDeleteProc) (void *clientData, typedef void (Tcl_NamespaceDeleteProc) (void *clientData); typedef int (Tcl_ObjCmdProc) (void *clientData, Tcl_Interp *interp, int objc, struct Tcl_Obj *const *objv); +typedef int (Tcl_ObjCmdProc2) (void *clientData, Tcl_Interp *interp, + size_t objc, struct Tcl_Obj *const *objv); typedef int (Tcl_LibraryInitProc) (Tcl_Interp *interp); typedef int (Tcl_LibraryUnloadProc) (Tcl_Interp *interp, int flags); typedef void (Tcl_PanicProc) (const char *format, ...); @@ -787,6 +792,8 @@ typedef struct Tcl_CmdInfo { * change a command's namespace; use * TclRenameCommand or Tcl_Eval (of 'rename') * to do that. */ + Tcl_ObjCmdProc2 *objProc2; /* Not used in Tcl 8.7. */ + void *objClientData2; /* Not used in Tcl 8.7. */ } Tcl_CmdInfo; /* |