diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-24 23:29:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-24 23:29:50 (GMT) |
| commit | 5438d045182b2bc669f663a22728d7306c459112 (patch) | |
| tree | c98039174a5452c59c349043b4140b9b4f4c2865 /generic/tclStringObj.c | |
| parent | 4576277c9931b6267da5083fb250652d077bb819 (diff) | |
| download | tcl-5438d045182b2bc669f663a22728d7306c459112.zip tcl-5438d045182b2bc669f663a22728d7306c459112.tar.gz tcl-5438d045182b2bc669f663a22728d7306c459112.tar.bz2 | |
bugfix: Handle NULL characters in Tcl_GetCharLength()
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index e8777cd..988c6e5 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -681,7 +681,8 @@ Tcl_GetCharLength( (void) Tcl_GetByteArrayFromObj(objPtr, &numChars); } else { - numChars = Tcl_NumUtfChars(Tcl_GetString(objPtr), -1); + Tcl_GetString(objPtr); + numChars = Tcl_NumUtfChars(objPtr->bytes, objPtr->length); } return numChars; } |