diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-23 08:27:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-23 08:27:02 (GMT) |
| commit | f256ed021d99bae8aba1ef9b86f347f91d5e6574 (patch) | |
| tree | 460e57d9387e7eeee7114bee464bf2aedc9c0b2d /generic/tclLink.c | |
| parent | cbfc7befb07093bef98624752aef4c5c1797896a (diff) | |
| download | tcl-f256ed021d99bae8aba1ef9b86f347f91d5e6574.zip tcl-f256ed021d99bae8aba1ef9b86f347f91d5e6574.tar.gz tcl-f256ed021d99bae8aba1ef9b86f347f91d5e6574.tar.bz2 | |
Eliminate the internal macro/function TclNewIntObj: In all cases TclNewLongObj is just as good.
Diffstat (limited to 'generic/tclLink.c')
| -rw-r--r-- | generic/tclLink.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index f7125d5..cc8726e 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -584,7 +584,7 @@ ObjValue( return Tcl_NewDoubleObj(linkPtr->lastValue.d); case TCL_LINK_BOOLEAN: linkPtr->lastValue.i = LinkedVar(int); - return Tcl_NewBooleanObj(linkPtr->lastValue.i != 0); + return Tcl_NewBooleanObj(linkPtr->lastValue.i); case TCL_LINK_CHAR: linkPtr->lastValue.c = LinkedVar(char); return Tcl_NewIntObj(linkPtr->lastValue.c); |