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/tclObj.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/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index f4b81f2..1a00011 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -3038,7 +3038,7 @@ Tcl_SetWideIntObj( #else mp_int big; - TclBNInitBignumFromWideInt(&big, wideValue); + TclInitBignumFromWideInt(&big, wideValue); Tcl_SetBignumObj(objPtr, &big); #endif } @@ -3402,12 +3402,12 @@ GetBignumFromObj( return TCL_OK; } if (objPtr->typePtr == &tclIntType) { - TclBNInitBignumFromLong(bignumValue, objPtr->internalRep.longValue); + TclInitBignumFromLong(bignumValue, objPtr->internalRep.longValue); return TCL_OK; } #ifndef TCL_WIDE_INT_IS_LONG if (objPtr->typePtr == &tclWideIntType) { - TclBNInitBignumFromWideInt(bignumValue, + TclInitBignumFromWideInt(bignumValue, objPtr->internalRep.wideValue); return TCL_OK; } |