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 | 9d6ae5462247cf6c5ce043e4689c3e5210628e93 (patch) | |
tree | 6461d7a562bf2e681c2cf49147418c2349f58c07 /generic/tclObj.c | |
parent | b9e8eecd80020e9dc1539f6f99f121472aff3126 (diff) | |
download | tcl-9d6ae5462247cf6c5ce043e4689c3e5210628e93.zip tcl-9d6ae5462247cf6c5ce043e4689c3e5210628e93.tar.gz tcl-9d6ae5462247cf6c5ce043e4689c3e5210628e93.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; } |