diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-24 22:55:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-24 22:55:32 (GMT) |
| commit | 0dba465244f6e7cc0396e739ead01dd2575aaf2b (patch) | |
| tree | 8cd3f780c8f7f64d98d2685284b1db9b2f236b00 /generic/tclStringObj.c | |
| parent | db3553f6b2e985ce55fa6c42cb0bf268a06cdc70 (diff) | |
| download | tcl-0dba465244f6e7cc0396e739ead01dd2575aaf2b.zip tcl-0dba465244f6e7cc0396e739ead01dd2575aaf2b.tar.gz tcl-0dba465244f6e7cc0396e739ead01dd2575aaf2b.tar.bz2 | |
Bugfix for TclGetCharLength(): Make sure objPtr->bytes is filled
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index dc64fcd..7cee05d 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -477,6 +477,7 @@ TclGetCharLength( if (TclIsPureByteArray(objPtr)) { (void) Tcl_GetByteArrayFromObj(objPtr, &numChars); } else { + Tcl_GetString(objPtr); numChars = TclNumUtfChars(objPtr->bytes, objPtr->length); } |