Latest libtommath's "develop" branch adapted for Tcl 8.6. And Tcl 8.6 adapted for changes in libtommath

1 files changed, 26 insertions, 1 deletions

diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index bf05158..646ccf9 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -10,7 +10,7 @@
  */
 
 #include "tclInt.h"
-#include "tommath.h"
+#include "tommath_private.h"
 
 #ifdef __CYGWIN__
 #   include <wchar.h>
@@ -69,6 +69,31 @@ static int TclSockMinimumBuffersOld(int sock, int size)
 }
 #endif
 
+static MP_SET_UNSIGNED(bn_mp_set_ull, unsigned long long)
+
+
+int TclBN_mp_set_long(mp_int *a, unsigned long i)
+{
+	bn_mp_set_ull(a, i);
+	return MP_OKAY;
+}
+
+int TclBN_mp_set_int(mp_int *a, unsigned long i)
+{
+    return TclBN_mp_set_long(a, i);
+}
+
+int TclBN_mp_init_set_int(mp_int *a, unsigned long i)
+{
+    mp_init(a);
+	return TclBN_mp_set_long(a, i);
+}
+
+int TclBN_mp_expt_d_ex(const mp_int *a, mp_digit b, mp_int *c, int fast)
+{
+	return mp_expt_d(a, b, c);
+}
+
 #define TclSetStartupScriptPath setStartupScriptPath
 static void TclSetStartupScriptPath(Tcl_Obj *path)
 {