diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-10-12 15:14:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-10-12 15:14:51 (GMT) |
| commit | e97fab49d3893f5cc7879b765cc345bf32349096 (patch) | |
| tree | e3474d3a124bdde1224cc992a32532ca74be6701 | |
| parent | eee33c1731828ed1a54f1c439df1f8275d97dcb5 (diff) | |
| download | tcl-e97fab49d3893f5cc7879b765cc345bf32349096.zip tcl-e97fab49d3893f5cc7879b765cc345bf32349096.tar.gz tcl-e97fab49d3893f5cc7879b765cc345bf32349096.tar.bz2 | |
Purge another direct access to bytes field.
| -rw-r--r-- | generic/tclUtil.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 57604f8..b2749c3 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -1976,7 +1976,7 @@ Tcl_ConcatObj( resPtr = NULL; for (i = 0; i < objc; i++) { objPtr = objv[i]; - if (objPtr->bytes && objPtr->length == 0) { + if (!TclListObjIsCanonical(objPtr)) { continue; } if (resPtr) { |