ag/cpython-source-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import Tcl 8.6.11

Browse Source
This commit is contained in:
Steve Dower
2021-03-30 00:51:39 +01:00
parent 3bb8e3e086
commit 1aadb2455c
923 changed files with 79104 additions and 62616 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
generic/tclTomMathInterface.c
View File

@@ -111,7 +111,6 @@ TclBNInitBignumFromLong(
mp_int *a,
long initVal)
{
int status;
unsigned long v;
mp_digit *p;
@@ -119,8 +118,7 @@ TclBNInitBignumFromLong(
* Allocate enough memory to hold the largest possible long
*/
status = mp_init(a);
if (status != MP_OKAY) {
if (mp_init(a) != MP_OKAY) {
Tcl_Panic("initialization failure in TclBNInitBignumFromLong");
}
@@ -130,7 +128,7 @@ TclBNInitBignumFromLong(
if (initVal < 0) {
a->sign = MP_NEG;
v = -initVal;
v = -(unsigned long)initVal;
} else {
a->sign = MP_ZPOS;
v = initVal;
@@ -170,12 +168,11 @@ TclBNInitBignumFromWideInt(
mp_int *a, /* Bignum to initialize */
Tcl_WideInt v) /* Initial value */
{
if (v < (Tcl_WideInt)0) {
TclBNInitBignumFromWideUInt(a, (Tcl_WideUInt)(-v));
mp_neg(a, a);
} else {
TclBNInitBignumFromWideUInt(a, (Tcl_WideUInt)v);
if (v < 0) {
(void)TclBNInitBignumFromWideUInt(a, -(Tcl_WideUInt)v);
return mp_neg(a, a);
}
(void)TclBNInitBignumFromWideUInt(a, (Tcl_WideUInt)v);
return MP_OKAY;
}
@@ -200,15 +197,13 @@ TclBNInitBignumFromWideUInt(
mp_int *a, /* Bignum to initialize */
Tcl_WideUInt v) /* Initial value */
{
int status;
mp_digit *p;
/*
* Allocate enough memory to hold the largest possible Tcl_WideUInt.
*/
status = mp_init(a);
if (status != MP_OKAY) {
if (mp_init(a) != MP_OKAY) {
Tcl_Panic("initialization failure in TclBNInitBignumFromWideUInt");
}