diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-02-14 20:59:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-02-14 20:59:37 (GMT) |
| commit | f9a0feeb4b3b8610f7a733cf15e608f6815e163f (patch) | |
| tree | 7bb22c59ba9e6f7149c0c7834753413c293e8b86 /generic/tclStringObj.c | |
| parent | fcfee868a9f98005d8e3f7f964dfb6d9ba1e53b9 (diff) | |
| download | tcl-f9a0feeb4b3b8610f7a733cf15e608f6815e163f.zip tcl-f9a0feeb4b3b8610f7a733cf15e608f6815e163f.tar.gz tcl-f9a0feeb4b3b8610f7a733cf15e608f6815e163f.tar.bz2 | |
fix test-cases, account for differences between Tcl 8.7 and 9.0
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 5430d02..b196593 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2030,14 +2030,6 @@ 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; - } - break; -#endif } } |