diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-04 10:46:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-04 10:46:07 (GMT) |
| commit | 6f77d31f1bacd7f1f6fefce74af42b5101402b3a (patch) | |
| tree | f4a624db02046117713a194c8536fa8120637df8 /generic/tclDecls.h | |
| parent | e50a73c706a2531b02798ffbc55f8c7299063188 (diff) | |
| parent | 063e0061117b2034334ecc544f382dd39ad52fc7 (diff) | |
| download | tcl-6f77d31f1bacd7f1f6fefce74af42b5101402b3a.zip tcl-6f77d31f1bacd7f1f6fefce74af42b5101402b3a.tar.gz tcl-6f77d31f1bacd7f1f6fefce74af42b5101402b3a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 776c6af..a1454a5 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -1740,6 +1740,10 @@ EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, /* 653 */ EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, size_t *lengthPtr); +/* Slot 654 is reserved */ +/* Slot 655 is reserved */ +/* 656 */ +EXTERN void TclUnusedStubEntry(void); typedef struct { const struct TclPlatStubs *tclPlatStubs; @@ -2405,6 +2409,9 @@ typedef struct TclStubs { char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, size_t *lengthPtr); /* 651 */ Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, size_t *lengthPtr); /* 652 */ unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, size_t *lengthPtr); /* 653 */ + void (*reserved654)(void); + void (*reserved655)(void); + void (*tclUnusedStubEntry) (void); /* 656 */ } TclStubs; extern const TclStubs *tclStubsPtr; @@ -3661,11 +3668,16 @@ extern const TclStubs *tclStubsPtr; (tclStubsPtr->tcl_GetUnicodeFromObj) /* 652 */ #define Tcl_GetByteArrayFromObj \ (tclStubsPtr->tcl_GetByteArrayFromObj) /* 653 */ +/* Slot 654 is reserved */ +/* Slot 655 is reserved */ +#define TclUnusedStubEntry \ + (tclStubsPtr->tclUnusedStubEntry) /* 656 */ #endif /* defined(USE_TCL_STUBS) */ /* !END!: Do not edit above this line. */ +#undef TclUnusedStubEntry #if defined(USE_TCL_STUBS) # undef Tcl_CreateInterp # undef Tcl_Init |