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 | 753a557ea2976254eafdc0a1711fcf3ec34d0b2d (patch) | |
| tree | 460e57d9387e7eeee7114bee464bf2aedc9c0b2d /generic/tclLink.c | |
| parent | b82ed83ec2892183f6c503108b2c6bd610e94b2c (diff) | |
| download | tcl-753a557ea2976254eafdc0a1711fcf3ec34d0b2d.zip tcl-753a557ea2976254eafdc0a1711fcf3ec34d0b2d.tar.gz tcl-753a557ea2976254eafdc0a1711fcf3ec34d0b2d.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); |