diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-24 15:34:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-24 15:34:30 (GMT) |
| commit | 25eedf811a9b5f1da159a902f286f481fe4ff8d2 (patch) | |
| tree | 654de06478dfc9fc6f73359ef1fcdb80ef6b04ba /generic/tclExecute.c | |
| parent | f73034b8e3d67ad9eeb12d06976588e3fbac24b5 (diff) | |
| parent | 846e8f4c800a926b96d55217a217e1f27a7ce3c0 (diff) | |
| download | tcl-25eedf811a9b5f1da159a902f286f481fe4ff8d2.zip tcl-25eedf811a9b5f1da159a902f286f481fe4ff8d2.tar.gz tcl-25eedf811a9b5f1da159a902f286f481fe4ff8d2.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index ca65a50..28a1fd2 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -8077,7 +8077,7 @@ ExecuteExtendedBinaryMathOp( * Arguments are opposite sign; remainder is sum. */ - TclInitBignumFromWideInt(&big1, w1); + TclBNInitBignumFromWideInt(&big1, w1); mp_add(&big2, &big1, &big2); mp_clear(&big1); BIG_RESULT(&big2); @@ -8484,7 +8484,7 @@ ExecuteExtendedBinaryMathOp( } Tcl_TakeBignumFromObj(NULL, valuePtr, &big1); mp_init(&bigResult); - mp_expt_d(&big1, (mp_digit)w2, &bigResult); + mp_expt_u32(&big1, (unsigned int)w2, &bigResult); mp_clear(&big1); BIG_RESULT(&bigResult); } @@ -8706,7 +8706,7 @@ ExecuteExtendedUnaryMathOp( if (w != WIDE_MIN) { WIDE_RESULT(-w); } - TclInitBignumFromWideInt(&big, w); + TclBNInitBignumFromWideInt(&big, w); break; default: Tcl_TakeBignumFromObj(NULL, valuePtr, &big); |