diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 11:51:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 11:51:58 (GMT) |
| commit | e80cd8e2841210153d80ec6fe42342d91d74a6d7 (patch) | |
| tree | 1f42bfb00e83f54bbe824a5560f7916da7a26090 /generic/tclTestObj.c | |
| parent | 4b67509c242f6c46325dc5b85420aa20b1399e77 (diff) | |
| parent | be861c2430ca13fd13b81ff3bcdc6fc0cb4ec8f4 (diff) | |
| download | tcl-e80cd8e2841210153d80ec6fe42342d91d74a6d7.zip tcl-e80cd8e2841210153d80ec6fe42342d91d74a6d7.tar.gz tcl-e80cd8e2841210153d80ec6fe42342d91d74a6d7.tar.bz2 | |
Merge 8.6
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 a289e32..c9e4a6f 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; |