diff options
| author | griffin <brian_griffin@mentor.com> | 2017-06-12 14:04:29 (GMT) |
|---|---|---|
| committer | griffin <brian_griffin@mentor.com> | 2017-06-12 14:04:29 (GMT) |
| commit | 78e17f7f0cce0233cc1009b3f7c3aa2ea32763d7 (patch) | |
| tree | 2a4e1d63e9c5c5feedcb6f21d5a637f95403b93b /generic/tclStringObj.c | |
| parent | 7ad256b22a418232031230af7c60a0e21e979df6 (diff) | |
| download | tcl-78e17f7f0cce0233cc1009b3f7c3aa2ea32763d7.zip tcl-78e17f7f0cce0233cc1009b3f7c3aa2ea32763d7.tar.gz tcl-78e17f7f0cce0233cc1009b3f7c3aa2ea32763d7.tar.bz2 | |
Add support of 0d in the format %# conversion flag. Add tests for same.
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 7c898b7..3a6e60e 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2039,6 +2039,10 @@ Tcl_AppendFormatToObj( Tcl_AppendToObj(segment, "0b", 2); segmentLimit -= 2; break; + case 'd': + Tcl_AppendToObj(segment, "0d", 2); + segmentLimit -= 2; + break; } } |