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/tclExecute.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/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 e844df6..476806b 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -8072,7 +8072,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); @@ -8479,7 +8479,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); } @@ -8701,7 +8701,7 @@ ExecuteExtendedUnaryMathOp( if (w != WIDE_MIN) { WIDE_RESULT(-w); } - TclInitBignumFromWideInt(&big, w); + TclBNInitBignumFromWideInt(&big, w); break; default: Tcl_TakeBignumFromObj(NULL, valuePtr, &big); |