diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-13 10:14:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-13 10:14:31 (GMT) |
| commit | c659b044b1e05ff3f4bcd0a94b01b3d2611c251c (patch) | |
| tree | 6461d7a562bf2e681c2cf49147418c2349f58c07 /generic/tclExecute.c | |
| parent | 3e55dbb18cf086d34207ca2e744ecea04cc67b38 (diff) | |
| download | tcl-c659b044b1e05ff3f4bcd0a94b01b3d2611c251c.zip tcl-c659b044b1e05ff3f4bcd0a94b01b3d2611c251c.tar.gz tcl-c659b044b1e05ff3f4bcd0a94b01b3d2611c251c.tar.bz2 | |
Make mp_get_long and mp_set_long available to tommath-enabled Tcl extensions. Deprecate the internal TclBNInitBignumFrom* functions, in favor of the official tommath functions with the same purpose.
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 0113b28..f4c71ec 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -8218,7 +8218,7 @@ ExecuteExtendedBinaryMathOp( * Arguments are opposite sign; remainder is sum. */ - TclBNInitBignumFromWideInt(&big1, w1); + TclInitBignumFromWideInt(&big1, w1); mp_add(&big2, &big1, &big2); mp_clear(&big1); BIG_RESULT(&big2); @@ -9184,7 +9184,7 @@ ExecuteExtendedUnaryMathOp( if (w != LLONG_MIN) { WIDE_RESULT(-w); } - TclBNInitBignumFromLong(&big, *(const long *) ptr); + TclInitBignumFromLong(&big, *(const long *) ptr); break; #ifndef TCL_WIDE_INT_IS_LONG case TCL_NUMBER_WIDE: @@ -9192,7 +9192,7 @@ ExecuteExtendedUnaryMathOp( if (w != LLONG_MIN) { WIDE_RESULT(-w); } - TclBNInitBignumFromWideInt(&big, w); + TclInitBignumFromWideInt(&big, w); break; #endif default: |