diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 11:28:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 11:28:39 (GMT) |
| commit | be861c2430ca13fd13b81ff3bcdc6fc0cb4ec8f4 (patch) | |
| tree | 1c7b9ff79fe0e418ec7f713b79f04fe0f846369b /generic/tclTestObj.c | |
| parent | 984c717026e7de57c6dab8db6f99bea6fcf08308 (diff) | |
| download | tcl-be861c2430ca13fd13b81ff3bcdc6fc0cb4ec8f4.zip tcl-be861c2430ca13fd13b81ff3bcdc6fc0cb4ec8f4.tar.gz tcl-be861c2430ca13fd13b81ff3bcdc6fc0cb4ec8f4.tar.bz2 | |
Rename mp_get_bit to s_mp_get_bit, rename mp_tc_div_2d to mp_signed_rsh, remove mp_tc_(add|or|xor) functions in favor of mp_(add|or|xor) which can now handle twos-complement. Following ongoing changes in libtommath development.
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index e395435..7f9b561 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -290,9 +290,9 @@ TestbignumobjCmd( return TCL_ERROR; } if (!Tcl_IsShared(varPtr[varIndex])) { - Tcl_SetIntObj(varPtr[varIndex], !mp_get_bit(&bignumValue, 0)); + Tcl_SetIntObj(varPtr[varIndex], !mp_isodd(&bignumValue)); } else { - SetVarToObj(varPtr, varIndex, Tcl_NewIntObj(!mp_get_bit(&bignumValue, 0))); + SetVarToObj(varPtr, varIndex, Tcl_NewIntObj(!mp_isodd(&bignumValue))); } mp_clear(&bignumValue); break; |