diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-23 08:11:42 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-23 08:11:42 (GMT) |
| commit | 3dedad17edf534f13746706cb5d24515ff94ae2c (patch) | |
| tree | 953fc45a5d3314b95abbbaa12ed0a5b6b65e852c /generic/tclStringObj.c | |
| parent | a9c238476a0aa2d6f10765f010b99944d3a7a9c3 (diff) | |
| parent | 6454bee19bed21d3885cc11d62f09318a4ce61fc (diff) | |
| download | tcl-3dedad17edf534f13746706cb5d24515ff94ae2c.zip tcl-3dedad17edf534f13746706cb5d24515ff94ae2c.tar.gz tcl-3dedad17edf534f13746706cb5d24515ff94ae2c.tar.bz2 | |
TIP #472 implementation: Add Support for 0d Radix Prefix to Integer Literals
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 41dad65..37da311 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; } } |