diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-29 11:19:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-29 11:19:39 (GMT) |
| commit | 39356c4079485804e77967c62f8226b2c08e412b (patch) | |
| tree | cfcdd94fc3ea6e1836a599bf6c6d9a22d1339ea0 /generic | |
| parent | 5314bbe0efeebd5113df7a914be41177f1bbebe7 (diff) | |
| parent | 89f68844556da7cab344bb0b7c2c9101579d30ed (diff) | |
| download | tcl-39356c4079485804e77967c62f8226b2c08e412b.zip tcl-39356c4079485804e77967c62f8226b2c08e412b.tar.gz tcl-39356c4079485804e77967c62f8226b2c08e412b.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclStringObj.c | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 4a3b6f1..c84b500 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2027,8 +2027,11 @@ Tcl_AppendFormatToObj( segmentLimit -= 1; precision--; break; - case 'x': case 'X': + Tcl_AppendToObj(segment, "0X", 2); + segmentLimit -= 2; + break; + case 'x': Tcl_AppendToObj(segment, "0x", 2); segmentLimit -= 2; break; @@ -2192,7 +2195,11 @@ Tcl_AppendFormatToObj( } digitOffset = (int) (bits % base); if (digitOffset > 9) { - bytes[numDigits] = 'a' + digitOffset - 10; + if (ch == 'X') { + bytes[numDigits] = 'A' + digitOffset - 10; + } else { + bytes[numDigits] = 'a' + digitOffset - 10; + } } else { bytes[numDigits] = '0' + digitOffset; } @@ -2314,14 +2321,6 @@ Tcl_AppendFormatToObj( goto error; } - switch (ch) { - case 'E': - case 'G': - case 'X': { - Tcl_SetObjLength(segment, Tcl_UtfToUpper(TclGetString(segment))); - } - } - if (width>0 && numChars<0) { numChars = Tcl_GetCharLength(segment); } |