diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-09 20:59:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-09 20:59:49 (GMT) |
| commit | 131bf290a5636e060b6c449c70a78bd74f3eba07 (patch) | |
| tree | 51c0a23e2040fab1c5f58f400a4924d80484c7da /generic/tclTestObj.c | |
| parent | ae9355b9f2e597b0e3b197c13c5fafd721dd3f6e (diff) | |
| parent | a2b119cac88f2853439b6781404687c40acae4d2 (diff) | |
| download | tcl-131bf290a5636e060b6c449c70a78bd74f3eba07.zip tcl-131bf290a5636e060b6c449c70a78bd74f3eba07.tar.gz tcl-131bf290a5636e060b6c449c70a78bd74f3eba07.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index aa95b72..131601d 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -284,9 +284,9 @@ TestbignumobjCmd( return TCL_ERROR; } if (!Tcl_IsShared(varPtr[varIndex])) { - Tcl_SetWideIntObj(varPtr[varIndex], mp_iszero(&bignumValue)); + Tcl_SetBooleanObj(varPtr[varIndex], mp_iszero(&bignumValue)); } else { - SetVarToObj(varPtr, varIndex, Tcl_NewWideIntObj(mp_iszero(&bignumValue))); + SetVarToObj(varPtr, varIndex, Tcl_NewBooleanObj(mp_iszero(&bignumValue))); } mp_clear(&bignumValue); break; @@ -379,9 +379,9 @@ TestbooleanobjCmd( */ if ((varPtr[varIndex] != NULL) && !Tcl_IsShared(varPtr[varIndex])) { - Tcl_SetWideIntObj(varPtr[varIndex], boolValue != 0); + Tcl_SetBooleanObj(varPtr[varIndex], boolValue); } else { - SetVarToObj(varPtr, varIndex, Tcl_NewWideIntObj(boolValue != 0)); + SetVarToObj(varPtr, varIndex, Tcl_NewBooleanObj(boolValue)); } Tcl_SetObjResult(interp, varPtr[varIndex]); } else if (strcmp(subCmd, "get") == 0) { @@ -404,9 +404,9 @@ TestbooleanobjCmd( return TCL_ERROR; } if (!Tcl_IsShared(varPtr[varIndex])) { - Tcl_SetWideIntObj(varPtr[varIndex], boolValue == 0); + Tcl_SetBooleanObj(varPtr[varIndex], !boolValue); } else { - SetVarToObj(varPtr, varIndex, Tcl_NewWideIntObj(boolValue == 0)); + SetVarToObj(varPtr, varIndex, Tcl_NewBooleanObj(!boolValue)); } Tcl_SetObjResult(interp, varPtr[varIndex]); } else { |