diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-06 09:21:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-06 09:21:10 (GMT) |
| commit | defed3ccfb86cc203dac761230b36ea1c039aa1f (patch) | |
| tree | a187af2d9b1d189a6853ac7e1e6d66fddad1d0fe /generic/tclIntDecls.h | |
| parent | a2630a8d1de1d2f03d766b26be2c036bf267cbe9 (diff) | |
| parent | 07279b85ab489decd93b6f3bddeec091b8b43869 (diff) | |
| download | tcl-defed3ccfb86cc203dac761230b36ea1c039aa1f.zip tcl-defed3ccfb86cc203dac761230b36ea1c039aa1f.tar.gz tcl-defed3ccfb86cc203dac761230b36ea1c039aa1f.tar.bz2 | |
Make TclInvokeObjectCommand/TclInvokeStringCommand static functions. They are not needed/useful for extensions
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index afc429d..40b02d6 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -144,14 +144,8 @@ EXTERN int TclInExit(void); /* 51 */ EXTERN int TclInterpInit(Tcl_Interp *interp); /* Slot 52 is reserved */ -/* 53 */ -EXTERN int TclInvokeObjectCommand(void *clientData, - Tcl_Interp *interp, int argc, - const char **argv); -/* 54 */ -EXTERN int TclInvokeStringCommand(void *clientData, - Tcl_Interp *interp, int objc, - Tcl_Obj *const objv[]); +/* Slot 53 is reserved */ +/* Slot 54 is reserved */ /* 55 */ EXTERN Proc * TclIsProc(Command *cmdPtr); /* Slot 56 is reserved */ @@ -641,8 +635,8 @@ typedef struct TclIntStubs { void (*reserved50)(void); int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */ void (*reserved52)(void); - int (*tclInvokeObjectCommand) (void *clientData, Tcl_Interp *interp, int argc, const char **argv); /* 53 */ - int (*tclInvokeStringCommand) (void *clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 54 */ + void (*reserved53)(void); + void (*reserved54)(void); Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */ void (*reserved56)(void); void (*reserved57)(void); @@ -943,10 +937,8 @@ extern const TclIntStubs *tclIntStubsPtr; #define TclInterpInit \ (tclIntStubsPtr->tclInterpInit) /* 51 */ /* Slot 52 is reserved */ -#define TclInvokeObjectCommand \ - (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */ -#define TclInvokeStringCommand \ - (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */ +/* Slot 53 is reserved */ +/* Slot 54 is reserved */ #define TclIsProc \ (tclIntStubsPtr->tclIsProc) /* 55 */ /* Slot 56 is reserved */ |