diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-10 15:35:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-10 15:35:05 (GMT) |
| commit | 4bb467b61e42dd1f0e4facf500292707409f4e59 (patch) | |
| tree | b847f6e7a475b99410afb1e70758b047b26186af /generic/tclStringObj.c | |
| parent | e6e32f5b516a160dea856d371497b620cd6b8746 (diff) | |
| download | tcl-4bb467b61e42dd1f0e4facf500292707409f4e59.zip tcl-4bb467b61e42dd1f0e4facf500292707409f4e59.tar.gz tcl-4bb467b61e42dd1f0e4facf500292707409f4e59.tar.bz2 | |
One more TclHasInternalRep()
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 81e6b18..73391fe 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -3193,7 +3193,7 @@ TclStringCat( binary = 0; if (ov > objv+1 && ISCONTINUATION(TclGetString(objPtr))) { forceUniChar = 1; - } else if ((objPtr->typePtr) && (objPtr->typePtr != &tclStringType)) { + } else if ((objPtr->typePtr) && TclHasInternalRep(objPtr, &tclStringType)) { /* Prevent shimmer of non-string types. */ allowUniChar = 0; } |