diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-24 07:36:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-24 07:36:48 (GMT) |
| commit | 07f720d5670b72e9c3e86ad1ce4d1f2667a6b35f (patch) | |
| tree | 70765f7918bfa1183607e53a747c2fe2d92de2e2 /generic | |
| parent | 783d209ab7ffc13de7ffa01a73da5bc40a18993e (diff) | |
| download | tcl-07f720d5670b72e9c3e86ad1ce4d1f2667a6b35f.zip tcl-07f720d5670b72e9c3e86ad1ce4d1f2667a6b35f.tar.gz tcl-07f720d5670b72e9c3e86ad1ce4d1f2667a6b35f.tar.bz2 | |
Add additional (dummy) stub entries in the libtommath stubtable
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclStubInit.c | 17 | ||||
| -rw-r--r-- | generic/tclTomMath.decls | 8 | ||||
| -rw-r--r-- | generic/tclTomMathDecls.h | 58 |
3 files changed, 83 insertions, 0 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 9b1562c..b78febc 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -742,6 +742,23 @@ TclTomMathStubs tclTomMathStubs = { TclBN_mp_init_set_int, /* 61 */ TclBN_mp_set_int, /* 62 */ TclBN_mp_cnt_lsb, /* 63 */ + NULL, /* 64 */ + NULL, /* 65 */ + NULL, /* 66 */ + NULL, /* 67 */ + NULL, /* 68 */ + NULL, /* 69 */ + NULL, /* 70 */ + NULL, /* 71 */ + NULL, /* 72 */ + NULL, /* 73 */ + NULL, /* 74 */ + NULL, /* 75 */ + NULL, /* 76 */ + NULL, /* 77 */ + NULL, /* 78 */ + NULL, /* 79 */ + TclUnusedStubEntry, /* 80 */ }; static TclStubHooks tclStubHooks = { diff --git a/generic/tclTomMath.decls b/generic/tclTomMath.decls index db37e41..dfb6956 100644 --- a/generic/tclTomMath.decls +++ b/generic/tclTomMath.decls @@ -220,3 +220,11 @@ declare 62 { declare 63 { int TclBN_mp_cnt_lsb(mp_int *a) } +declare 80 { + void TclUnusedStubEntry(void) +} + + +# Local Variables: +# mode: tcl +# End: diff --git a/generic/tclTomMathDecls.h b/generic/tclTomMathDecls.h index bd801a3..e4c1cec 100644 --- a/generic/tclTomMathDecls.h +++ b/generic/tclTomMathDecls.h @@ -474,6 +474,27 @@ EXTERN int TclBN_mp_set_int(mp_int *a, unsigned long i); /* 63 */ EXTERN int TclBN_mp_cnt_lsb(mp_int *a); #endif +/* Slot 64 is reserved */ +/* Slot 65 is reserved */ +/* Slot 66 is reserved */ +/* Slot 67 is reserved */ +/* Slot 68 is reserved */ +/* Slot 69 is reserved */ +/* Slot 70 is reserved */ +/* Slot 71 is reserved */ +/* Slot 72 is reserved */ +/* Slot 73 is reserved */ +/* Slot 74 is reserved */ +/* Slot 75 is reserved */ +/* Slot 76 is reserved */ +/* Slot 77 is reserved */ +/* Slot 78 is reserved */ +/* Slot 79 is reserved */ +#ifndef TclUnusedStubEntry_TCL_DECLARED +#define TclUnusedStubEntry_TCL_DECLARED +/* 80 */ +EXTERN void TclUnusedStubEntry(void); +#endif typedef struct TclTomMathStubs { int magic; @@ -543,6 +564,23 @@ typedef struct TclTomMathStubs { int (*tclBN_mp_init_set_int) (mp_int *a, unsigned long i); /* 61 */ int (*tclBN_mp_set_int) (mp_int *a, unsigned long i); /* 62 */ int (*tclBN_mp_cnt_lsb) (mp_int *a); /* 63 */ + VOID *reserved64; + VOID *reserved65; + VOID *reserved66; + VOID *reserved67; + VOID *reserved68; + VOID *reserved69; + VOID *reserved70; + VOID *reserved71; + VOID *reserved72; + VOID *reserved73; + VOID *reserved74; + VOID *reserved75; + VOID *reserved76; + VOID *reserved77; + VOID *reserved78; + VOID *reserved79; + void (*tclUnusedStubEntry) (void); /* 80 */ } TclTomMathStubs; extern TclTomMathStubs *tclTomMathStubsPtr; @@ -813,6 +851,26 @@ extern TclTomMathStubs *tclTomMathStubsPtr; #define TclBN_mp_cnt_lsb \ (tclTomMathStubsPtr->tclBN_mp_cnt_lsb) /* 63 */ #endif +/* Slot 64 is reserved */ +/* Slot 65 is reserved */ +/* Slot 66 is reserved */ +/* Slot 67 is reserved */ +/* Slot 68 is reserved */ +/* Slot 69 is reserved */ +/* Slot 70 is reserved */ +/* Slot 71 is reserved */ +/* Slot 72 is reserved */ +/* Slot 73 is reserved */ +/* Slot 74 is reserved */ +/* Slot 75 is reserved */ +/* Slot 76 is reserved */ +/* Slot 77 is reserved */ +/* Slot 78 is reserved */ +/* Slot 79 is reserved */ +#ifndef TclUnusedStubEntry +#define TclUnusedStubEntry \ + (tclTomMathStubsPtr->tclUnusedStubEntry) /* 80 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |