diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-15 14:38:11 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-15 14:38:11 (GMT) |
commit | 54f7d490068c930b4792830c9766d7c468223aed (patch) | |
tree | 0e3b5e686eee69a66903558cb811b837dcb21451 /generic/tclIntDecls.h | |
parent | 14ebff79ce456ea1b1e3c7747af2bc495e1cdf43 (diff) | |
download | tcl-54f7d490068c930b4792830c9766d7c468223aed.zip tcl-54f7d490068c930b4792830c9766d7c468223aed.tar.gz tcl-54f7d490068c930b4792830c9766d7c468223aed.tar.bz2 |
Add more dummy stub-entries, filled with NULL. Stub table size corresponds with stub table size for 8.7, encountering NULL entries is better than accessing outside of array bounds.
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r-- | generic/tclIntDecls.h | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index e4e85ad..6e74d36 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -1056,6 +1056,19 @@ EXTERN void TclDbDumpActiveObjects(FILE *outFile); EXTERN char * TclDoubleDigits(double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); #endif +/* Slot 250 is reserved */ +/* Slot 251 is reserved */ +/* Slot 252 is reserved */ +/* Slot 253 is reserved */ +/* Slot 254 is reserved */ +/* Slot 255 is reserved */ +/* Slot 256 is reserved */ +/* Slot 257 is reserved */ +#ifndef TclUnusedStubEntry_TCL_DECLARED +#define TclUnusedStubEntry_TCL_DECLARED +/* 258 */ +EXTERN void TclUnusedStubEntry(void); +#endif typedef struct TclIntStubs { int magic; @@ -1311,6 +1324,15 @@ typedef struct TclIntStubs { VOID *reserved247; VOID *reserved248; char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); /* 249 */ + VOID *reserved250; + VOID *reserved251; + VOID *reserved252; + VOID *reserved253; + VOID *reserved254; + VOID *reserved255; + VOID *reserved256; + VOID *reserved257; + void (*tclUnusedStubEntry) (void); /* 258 */ } TclIntStubs; extern TclIntStubs *tclIntStubsPtr; @@ -2040,6 +2062,18 @@ extern TclIntStubs *tclIntStubsPtr; #define TclDoubleDigits \ (tclIntStubsPtr->tclDoubleDigits) /* 249 */ #endif +/* Slot 250 is reserved */ +/* Slot 251 is reserved */ +/* Slot 252 is reserved */ +/* Slot 253 is reserved */ +/* Slot 254 is reserved */ +/* Slot 255 is reserved */ +/* Slot 256 is reserved */ +/* Slot 257 is reserved */ +#ifndef TclUnusedStubEntry +#define TclUnusedStubEntry \ + (tclIntStubsPtr->tclUnusedStubEntry) /* 258 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |