diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-12 20:14:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-12 20:14:19 (GMT) |
| commit | 12859211484cfae1ab06fb9e00aebecfeca9ec1e (patch) | |
| tree | ae1b6847b057013742e00de29e2562fb8461530b /generic/tclBasic.c | |
| parent | c60e1a679dc096b076279e0ef80a82fe41223a51 (diff) | |
| parent | 1961633531b70d5a6e627f86153f4d15e722ea8b (diff) | |
| download | tcl-12859211484cfae1ab06fb9e00aebecfeca9ec1e.zip tcl-12859211484cfae1ab06fb9e00aebecfeca9ec1e.tar.gz tcl-12859211484cfae1ab06fb9e00aebecfeca9ec1e.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 3c1ec42..7056099 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -6443,7 +6443,7 @@ Tcl_ExprString( * An empty string. Just set the interpreter's result to 0. */ - Tcl_SetObjResult(interp, Tcl_NewIntObj(0)); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj(0)); } else { Tcl_Obj *resultPtr, *exprObj = Tcl_NewStringObj(expr, -1); |