diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-14 07:54:51 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-14 07:54:51 (GMT) |
commit | b7a1ba3ba40ba71b65cefedc057bbccf0323f4a5 (patch) | |
tree | fd3f725641f7ff06608e6e77394d4bcefb5ef3ec /generic/tclStringObj.c | |
parent | f019737860823b97cfde68d64a5175fa21c3a967 (diff) | |
parent | 78e17f7f0cce0233cc1009b3f7c3aa2ea32763d7 (diff) | |
download | tcl-b7a1ba3ba40ba71b65cefedc057bbccf0323f4a5.zip tcl-b7a1ba3ba40ba71b65cefedc057bbccf0323f4a5.tar.gz tcl-b7a1ba3ba40ba71b65cefedc057bbccf0323f4a5.tar.bz2 |
Rebase to core-8-6-branch (who told that fossil doesn't know how to rebase ....)
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 4a3b6f1..b84470b 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2036,6 +2036,10 @@ Tcl_AppendFormatToObj( Tcl_AppendToObj(segment, "0b", 2); segmentLimit -= 2; break; + case 'd': + Tcl_AppendToObj(segment, "0d", 2); + segmentLimit -= 2; + break; } } |