diff options
Diffstat (limited to 'generic/tclStubInit.c')
-rw-r--r-- | generic/tclStubInit.c | 27 |
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) { |