diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 12:09:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 12:09:48 (GMT) |
| commit | d988f34ccf70a6f52475399257c185748fc019aa (patch) | |
| tree | c26d7e6812b5308f05e53adb377673b4390f6cde /generic/tclTestObj.c | |
| parent | 2baadaa351e9f7809be5ef3ae1837a2944434552 (diff) | |
| parent | e80cd8e2841210153d80ec6fe42342d91d74a6d7 (diff) | |
| download | tcl-d988f34ccf70a6f52475399257c185748fc019aa.zip tcl-d988f34ccf70a6f52475399257c185748fc019aa.tar.gz tcl-d988f34ccf70a6f52475399257c185748fc019aa.tar.bz2 | |
Merge 8.7. Remove the mp_tc_(and|or|xor) stub entries, because they are no longer in use.
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 efa40e6..4abd3a2 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; |