diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-19 09:14:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-19 09:14:06 (GMT) |
| commit | 89f9758279f36f87e7b7efa0c7b2358635a1ea10 (patch) | |
| tree | fce3b5ded360a863b1c888a8e8fb2c37e5e9ae38 /generic/tclStringObj.c | |
| parent | d58a6ddbc39b06ed1a8537870b69e272d06c793c (diff) | |
| parent | 972b65b569a076eb77f72d26185a309bcca4ffd4 (diff) | |
| download | tcl-89f9758279f36f87e7b7efa0c7b2358635a1ea10.zip tcl-89f9758279f36f87e7b7efa0c7b2358635a1ea10.tar.gz tcl-89f9758279f36f87e7b7efa0c7b2358635a1ea10.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 9593b7c..288be4c 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1866,6 +1866,14 @@ Tcl_AppendFormatToObj( useWide = 1; #endif } + } else if ((ch == 'I') && (format[1] == '6') && (format[2] == '4')) { + format += (step + 2); + step = Tcl_UtfToUniChar(format, &ch); + useBig = 1; + } else if (ch == 'L') { + format += step; + step = Tcl_UtfToUniChar(format, &ch); + useBig = 1; } format += step; @@ -2510,6 +2518,17 @@ AppendPrintfToObjVA( ++size; p++; break; + case 'L': + size = 2; + p++; + break; + case 'I': + if (p[1]=='6' && p[2]=='4') { + p += 2; + size = 2; + } + p++; + break; case 'h': size = -1; default: |