diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-15 15:07:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-15 15:07:46 (GMT) |
| commit | 6e9d74fa78f14c99bc219a018f96ef249e0cab9f (patch) | |
| tree | 5582fd3feb89dc30cc62cfed2b16c9f420f26993 /generic/tclIntDecls.h | |
| parent | 62cba4649fa3017633b316173e746d2bea9d0a43 (diff) | |
| parent | c9d50be3b9d31a5e6339eae35dd3b04ee3b6913f (diff) | |
| download | tcl-6e9d74fa78f14c99bc219a018f96ef249e0cab9f.zip tcl-6e9d74fa78f14c99bc219a018f96ef249e0cab9f.tar.gz tcl-6e9d74fa78f14c99bc219a018f96ef249e0cab9f.tar.bz2 | |
Merge 8.5
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 1991c21..4039e9f 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -638,6 +638,9 @@ EXTERN int TclPtrObjMakeUpvar(Tcl_Interp *interp, EXTERN int TclPtrUnsetVar(Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); +/* Slot 257 is reserved */ +/* 258 */ +EXTERN void TclUnusedStubEntry(void); typedef struct TclIntStubs { int magic; @@ -900,6 +903,8 @@ typedef struct TclIntStubs { Tcl_Obj * (*tclPtrIncrObjVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, const int flags); /* 254 */ int (*tclPtrObjMakeUpvar) (Tcl_Interp *interp, Tcl_Var otherPtr, Tcl_Obj *myNamePtr, int myFlags); /* 255 */ int (*tclPtrUnsetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 256 */ + void (*reserved257)(void); + void (*tclUnusedStubEntry) (void); /* 258 */ } TclIntStubs; extern const TclIntStubs *tclIntStubsPtr; @@ -1341,6 +1346,9 @@ extern const TclIntStubs *tclIntStubsPtr; (tclIntStubsPtr->tclPtrObjMakeUpvar) /* 255 */ #define TclPtrUnsetVar \ (tclIntStubsPtr->tclPtrUnsetVar) /* 256 */ +/* Slot 257 is reserved */ +#define TclUnusedStubEntry \ + (tclIntStubsPtr->tclUnusedStubEntry) /* 258 */ #endif /* defined(USE_TCL_STUBS) */ |