diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-18 15:13:40 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-09-18 15:13:40 (GMT) |
commit | db596f769f7d0d74193f88b121b949bce6853ebf (patch) | |
tree | feb67968040c4869b021497e6e8859e0e90e41be /generic/tclObj.c | |
parent | 36098aafd9bbd015808f0607f94acc590d192e0d (diff) | |
parent | 7a4fe54c26332c21cd95b01cc07bd74714d060ae (diff) | |
download | tcl-z_modifier.zip tcl-z_modifier.tar.gz tcl-z_modifier.tar.bz2 |
Merge trunkz_modifier
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; } |