diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-13 15:37:42 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-13 15:37:42 (GMT) |
| commit | 631a3b78cb6c86df02039a5cd711ac322b932477 (patch) | |
| tree | 811eba817daefc567e9d3e3d1897b4f76da718e1 /generic/tclExecute.c | |
| parent | ae556e220331b4da078e1a36ed7d80c43c867bb5 (diff) | |
| download | tcl-631a3b78cb6c86df02039a5cd711ac322b932477.zip tcl-631a3b78cb6c86df02039a5cd711ac322b932477.tar.gz tcl-631a3b78cb6c86df02039a5cd711ac322b932477.tar.bz2 | |
Slightly simpler test for empty string, still covering all cases. Also prepare testpurebytesobj for strings >2G
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 94912ce..51dd382 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5238,7 +5238,7 @@ TEBCresume( /* Every range of an empty list is an empty list */ if (objc == 0) { /* avoid return of not canonical list (e. g. spaces in string repr.) */ - if (TclListObjIsCanonical(valuePtr)) { + if (!valuePtr->bytes || !valuePtr->bytes[0]) { TRACE_APPEND(("\n")); NEXT_INST_F(9, 0, 0); } |