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 | 902b9607982940a968a0b7ee1b23e5de9a5b0fa3 (patch) | |
| tree | 953fc45a5d3314b95abbbaa12ed0a5b6b65e852c /generic/tclStringObj.c | |
| parent | ab4e3e7729712e4c16038e99e657401788e364b5 (diff) | |
| parent | d63de1ca506474e5d7f80d7351545d75d46f1d25 (diff) | |
| download | tcl-902b9607982940a968a0b7ee1b23e5de9a5b0fa3.zip tcl-902b9607982940a968a0b7ee1b23e5de9a5b0fa3.tar.gz tcl-902b9607982940a968a0b7ee1b23e5de9a5b0fa3.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; } } |