summaryrefslogtreecommitdiffstats
path: root/generic/tclStringObj.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2024-03-20 20:40:56 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2024-03-20 20:40:56 (GMT)
commit7148cbe60d4d36e24731859efa0bf7af19a9b37a (patch)
treec4f4a58588060cffbeabaae75f9c09bca51365e3 /generic/tclStringObj.c
parent8af92a8a6b470126d931eff19d97f7630f618006 (diff)
downloadtcl-7148cbe60d4d36e24731859efa0bf7af19a9b37a.zip
tcl-7148cbe60d4d36e24731859efa0bf7af19a9b37a.tar.gz
tcl-7148cbe60d4d36e24731859efa0bf7af19a9b37a.tar.bz2
put back line accidently removed
Diffstat (limited to 'generic/tclStringObj.c')
-rw-r--r--generic/tclStringObj.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index dba36a6..10faa02 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -618,6 +618,7 @@ TclGetUniChar(
return -1;
}
const char *begin = TclUtfAtIndex(objPtr->bytes, index);
+ TclUtfToUniChar(begin, &ch);
return ch;
}