diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-08-18 21:39:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-08-18 21:39:16 (GMT) |
| commit | b916fb2e6064a68a3848169f1d6263396112d330 (patch) | |
| tree | 89be35bb25db2b233d3b2644ab0316f9a107d08c /generic/tclStringObj.c | |
| parent | f338acabb27d64eddd5ccccd3adf4fdbfbcc94f9 (diff) | |
| parent | 80272e6e9728da345d243a0af6def26dbc86b255 (diff) | |
| download | tcl-b916fb2e6064a68a3848169f1d6263396112d330.zip tcl-b916fb2e6064a68a3848169f1d6263396112d330.tar.gz tcl-b916fb2e6064a68a3848169f1d6263396112d330.tar.bz2 | |
RFE [http://core.tcl.tk/tk/info/6c0d7aec67|6c0d7aec67]: Better surrogate handling for TCL_UTF_MAX==4. No change when TCL_UTF_MAX==3. (This commit is actually meant for androwish, in order to improve surrogate handling for TCL_UTF_MAX==4)
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index c84b500..6d97881 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1709,7 +1709,7 @@ Tcl_AppendFormatToObj( #endif int newXpg, numChars, allocSegment = 0, segmentLimit, segmentNumBytes; Tcl_Obj *segment; - Tcl_UniChar ch; + Tcl_UniChar ch = 0; int step = TclUtfToUniChar(format, &ch); format += step; @@ -2692,7 +2692,7 @@ TclStringObjReverse( Tcl_Obj *objPtr) { String *stringPtr; - Tcl_UniChar ch; + Tcl_UniChar ch = 0; if (TclIsPureByteArray(objPtr)) { int numBytes; |