diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-22 12:25:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-22 12:25:18 (GMT) |
| commit | ab6fc07f69ec94ac2715dc652fb15c6e9fe8d15b (patch) | |
| tree | 8eba01a20b18583dc9d0fca0245c55e29c40c235 /generic/tclTomMathInterface.c | |
| parent | 39a95d7e5228e8d79a9323a01e4f30832af68193 (diff) | |
| parent | 03475f06485c403570643f9b359d100d9a6f9ced (diff) | |
| download | tcl-ab6fc07f69ec94ac2715dc652fb15c6e9fe8d15b.zip tcl-ab6fc07f69ec94ac2715dc652fb15c6e9fe8d15b.tar.gz tcl-ab6fc07f69ec94ac2715dc652fb15c6e9fe8d15b.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclTomMathInterface.c')
| -rw-r--r-- | generic/tclTomMathInterface.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclTomMathInterface.c b/generic/tclTomMathInterface.c index ae1eb7e..6eddf54 100644 --- a/generic/tclTomMathInterface.c +++ b/generic/tclTomMathInterface.c @@ -93,7 +93,7 @@ TclBN_revision(void) /* *---------------------------------------------------------------------- * - * TclInitBignumFromWideInt -- + * TclBNInitBignumFromWideInt -- * * Allocate and initialize a 'bignum' from a Tcl_WideInt * @@ -107,25 +107,25 @@ TclBN_revision(void) */ void -TclInitBignumFromWideInt( +TclBNInitBignumFromWideInt( mp_int *a, /* Bignum to initialize */ Tcl_WideInt v) /* Initial value */ { if (mp_init(a) != MP_OKAY) { - Tcl_Panic("initialization failure in TclInitBignumFromWideInt"); + Tcl_Panic("initialization failure in TclBNInitBignumFromWideInt"); } if (v < 0) { - mp_set_long_long(a, (Tcl_WideUInt)(-v)); + mp_set_ull(a, (Tcl_WideUInt)(-v)); mp_neg(a, a); } else { - mp_set_long_long(a, (Tcl_WideUInt)v); + mp_set_ull(a, (Tcl_WideUInt)v); } } /* *---------------------------------------------------------------------- * - * TclInitBignumFromWideUInt -- + * TclBNInitBignumFromWideUInt -- * * Allocate and initialize a 'bignum' from a Tcl_WideUInt * @@ -139,14 +139,14 @@ TclInitBignumFromWideInt( */ void -TclInitBignumFromWideUInt( +TclBNInitBignumFromWideUInt( mp_int *a, /* Bignum to initialize */ Tcl_WideUInt v) /* Initial value */ { if (mp_init(a) != MP_OKAY) { - Tcl_Panic("initialization failure in TclInitBignumFromWideUInt"); + Tcl_Panic("initialization failure in TclBNInitBignumFromWideUInt"); } - mp_set_long_long(a, v); + mp_set_ull(a, v); } /* |