diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-12-23 15:21:22 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-12-23 15:21:22 (GMT) |
| commit | 986cc9a1d8abe7ab0abc0971982fcb5f367cba18 (patch) | |
| tree | 030ee9cf12979f70eb1ad6b6b4a9f837d16df58e /generic/tclObj.c | |
| parent | f69d34b905c9c0311a098b4a02ce45590e0c130f (diff) | |
| parent | 753a557ea2976254eafdc0a1711fcf3ec34d0b2d (diff) | |
| download | tcl-986cc9a1d8abe7ab0abc0971982fcb5f367cba18.zip tcl-986cc9a1d8abe7ab0abc0971982fcb5f367cba18.tar.gz tcl-986cc9a1d8abe7ab0abc0971982fcb5f367cba18.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 50e3f3a..b4f96c5 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2012,7 +2012,7 @@ Tcl_DbNewBooleanObj( /* Optimized TclInvalidateStringRep() */ objPtr->bytes = NULL; - objPtr->internalRep.longValue = (boolValue? 1 : 0); + objPtr->internalRep.longValue = (boolValue != 0); objPtr->typePtr = &tclIntType; return objPtr; } @@ -2625,7 +2625,7 @@ Tcl_NewIntObj( { register Tcl_Obj *objPtr; - TclNewIntObj(objPtr, intValue); + TclNewLongObj(objPtr, intValue); return objPtr; } #endif /* if TCL_MEM_DEBUG */ |