1 files changed, 14 insertions, 41 deletions

diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index b084c06..db2ed5c 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -70,10 +70,13 @@ mp_err TclBN_mp_set_int(mp_int *a, unsigned long i)
 
 mp_err TclBN_mp_init_set_int(mp_int *a, unsigned long i)
 {
-    mp_init(a);
+    mp_err result = mp_init(a);
+    if (result == MP_OKAY) {
 	TclBN_mp_set_ul(a, i);
-	return MP_OKAY;
+    }
+    return result;
 }
+
 static mp_err TclBN_mp_set_long(mp_int *a, unsigned long i)
 {
 	TclBN_mp_set_ul(a, i);
@@ -82,11 +85,6 @@ static mp_err TclBN_mp_set_long(mp_int *a, unsigned long i)
 
 #define TclBN_mp_set_ul (void (*)(mp_int *a, unsigned long i))TclBN_mp_set_long
 
-int TclBN_mp_expt_d_ex(const mp_int *a, mp_digit b, mp_int *c, int fast)
-{
-	return mp_expt_u32(a, b, c);
-}
-
 #ifdef _WIN32
 #   define TclUnixWaitForFile 0
 #   define TclUnixCopyFile 0
@@ -177,37 +175,9 @@ static int exprIntObj(Tcl_Interp *interp, Tcl_Obj*expr, int *ptr){
 
 #endif /* __CYGWIN__ */
 
-mp_err mp_to_unsigned_bin(const mp_int *a, unsigned char *b)
-{
-   return mp_to_ubin(a, b, INT_MAX, NULL);
-}
-
-mp_err mp_to_unsigned_bin_n(const mp_int *a, unsigned char *b, unsigned long *outlen)
-{
-   size_t n = mp_ubin_size(a);
-   if (*outlen < (unsigned long)n) {
-      return MP_VAL;
-   }
-   *outlen = (unsigned long)n;
-   return mp_to_ubin(a, b, n, NULL);
-}
-
-mp_err mp_toradix_n(const mp_int *a, char *str, int radix, int maxlen)
-{
-   if (maxlen < 0) {
-      return MP_VAL;
-   }
-   return mp_to_radix(a, str, (size_t)maxlen, NULL, radix);
-}
 #undef TclBN_mp_unsigned_bin_size
 #define TclBN_mp_unsigned_bin_size (int (*)(const mp_int *a)) mp_ubin_size
 
-void bn_reverse(unsigned char *s, int len)
-{
-   if (len > 0) {
-      s_mp_reverse(s, (size_t)len);
-   }
-}
 /*
  * WARNING: The contents of this file is automatically generated by the
  * tools/genStubs.tcl script. Any modifications to the function declarations
@@ -627,7 +597,7 @@ const TclTomMathStubs tclTomMathStubs = {
     TclBN_mp_div_2d, /* 16 */
     TclBN_mp_div_3, /* 17 */
     TclBN_mp_exch, /* 18 */
-    TclBN_mp_expt_d, /* 19 */
+    TclBN_mp_expt_u32, /* 19 */
     TclBN_mp_grow, /* 20 */
     TclBN_mp_init, /* 21 */
     TclBN_mp_init_copy, /* 22 */
@@ -652,9 +622,9 @@ const TclTomMathStubs tclTomMathStubs = {
     TclBN_mp_sqrt, /* 41 */
     TclBN_mp_sub, /* 42 */
     TclBN_mp_sub_d, /* 43 */
-    TclBN_mp_to_unsigned_bin, /* 44 */
-    TclBN_mp_to_unsigned_bin_n, /* 45 */
-    TclBN_mp_toradix_n, /* 46 */
+    0, /* 44 */
+    0, /* 45 */
+    0, /* 46 */
     TclBN_mp_unsigned_bin_size, /* 47 */
     TclBN_mp_xor, /* 48 */
     TclBN_mp_zero, /* 49 */
@@ -675,7 +645,7 @@ const TclTomMathStubs tclTomMathStubs = {
     0, /* 64 */
     0, /* 65 */
     0, /* 66 */
-    TclBN_mp_expt_d_ex, /* 67 */
+    0, /* 67 */
     TclBN_mp_set_ull, /* 68 */
     TclBN_mp_get_mag_ull, /* 69 */
     TclBN_mp_set_ul, /* 70 */
@@ -685,7 +655,10 @@ const TclTomMathStubs tclTomMathStubs = {
     0, /* 74 */
     0, /* 75 */
     TclBN_mp_signed_rsh, /* 76 */
-    TclBN_mp_get_bit, /* 77 */
+    0, /* 77 */
+    TclBN_mp_to_ubin, /* 78 */
+    TclBN_mp_ubin_size, /* 79 */
+    TclBN_mp_to_radix, /* 80 */
 };
 
 static const TclStubHooks tclStubHooks = {