diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-18 06:30:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-18 06:30:44 (GMT) |
| commit | f167b152ea1a0a71d4026866753e797b2aacd419 (patch) | |
| tree | 809be0a01a996e99bf7ce752af2e114ce539318d /generic/tclStringObj.c | |
| parent | b70d75600b3883a81bfef7e185ccaa638133ece9 (diff) | |
| download | tcl-f167b152ea1a0a71d4026866753e797b2aacd419.zip tcl-f167b152ea1a0a71d4026866753e797b2aacd419.tar.gz tcl-f167b152ea1a0a71d4026866753e797b2aacd419.tar.bz2 | |
Backport [891a74b941]: format %#d not consistent with other radix prefixes or TIP 472 description
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 7cf04fa..1170169 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2582,14 +2582,10 @@ Tcl_AppendFormatToObj( Tcl_AppendToObj(segment, "0b", 2); segmentLimit -= 2; break; -#if TCL_MAJOR_VERSION < 9 case 'd': - if (gotZero) { - Tcl_AppendToObj(segment, "0d", 2); - segmentLimit -= 2; - } + Tcl_AppendToObj(segment, "0d", 2); + segmentLimit -= 2; break; -#endif } } |