From b05a41e9058813e769f9d206a8e5791f53db9558 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 24 Oct 2019 07:36:48 +0000
Subject: Add additional (dummy) stub entries in the libtommath stubtable

---
 generic/tclStubInit.c     | 17 ++++++++++++++
 generic/tclTomMath.decls  |  8 +++++++
 generic/tclTomMathDecls.h | 58 +++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 83 insertions(+)

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) */
 
-- 
cgit v0.12