diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-19 08:56:26 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-19 08:56:26 (GMT) |
commit | 2e6ebdc5911a7793d59ed3041cce1a61cc5f822b (patch) | |
tree | 0379641f302191450f3f8f2b8753bf3a0b0b656d /generic/tclIntDecls.h | |
parent | 7b46c41c056ce57494a3dc67b3f17fdf344ce9fb (diff) | |
parent | 58467a7afe9d9eb62bb1da4d29690223a3681c16 (diff) | |
download | tcl-2e6ebdc5911a7793d59ed3041cce1a61cc5f822b.zip tcl-2e6ebdc5911a7793d59ed3041cce1a61cc5f822b.tar.gz tcl-2e6ebdc5911a7793d59ed3041cce1a61cc5f822b.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r-- | generic/tclIntDecls.h | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 2be46bc..d19bc7e 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -130,7 +130,8 @@ EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command); /* 42 */ EXTERN const char * TclpGetUserHome(const char *name, Tcl_DString *bufferPtr); -/* Slot 43 is reserved */ +/* 43 */ +EXTERN Tcl_ObjCmdProc2 * TclGetObjInterpProc2(void); /* Slot 44 is reserved */ /* 45 */ EXTERN int TclHideUnsafeCommands(Tcl_Interp *interp); @@ -631,7 +632,7 @@ typedef struct TclIntStubs { int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr); /* 40 */ Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */ const char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr); /* 42 */ - void (*reserved43)(void); + Tcl_ObjCmdProc2 * (*tclGetObjInterpProc2) (void); /* 43 */ void (*reserved44)(void); int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */ int (*tclInExit) (void); /* 46 */ @@ -929,7 +930,8 @@ extern const TclIntStubs *tclIntStubsPtr; (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */ #define TclpGetUserHome \ (tclIntStubsPtr->tclpGetUserHome) /* 42 */ -/* Slot 43 is reserved */ +#define TclGetObjInterpProc2 \ + (tclIntStubsPtr->tclGetObjInterpProc2) /* 43 */ /* Slot 44 is reserved */ #define TclHideUnsafeCommands \ (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */ @@ -1281,6 +1283,7 @@ extern const TclIntStubs *tclIntStubsPtr; #endif /* defined(USE_TCL_STUBS) */ #undef TclObjInterpProc #define TclObjInterpProc TclGetObjInterpProc() +#define TclObjInterpProc2 TclGetObjInterpProc2() #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT |