diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-04 12:10:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-04 12:10:54 (GMT) |
| commit | 2b8429142401960e12bcece0205061dd68071ded (patch) | |
| tree | a3561a9d8e8c9b868ed9b209b444e7f78e8d38d3 /generic/tclTest.c | |
| parent | efe1dce70b548e0af9d8a0e0e6cffbca6faa2cb5 (diff) | |
| parent | 493585e80285a37fffbfa04f560a2d37a94d3322 (diff) | |
| download | tcl-2b8429142401960e12bcece0205061dd68071ded.zip tcl-2b8429142401960e12bcece0205061dd68071ded.tar.gz tcl-2b8429142401960e12bcece0205061dd68071ded.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 91ceaa6..898ccab 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -1846,7 +1846,7 @@ TestdoubledigitsObjCmd(void *dummy, Tcl_SetObjResult(interp, Tcl_NewStringObj("bad flag", -1)); return TCL_ERROR; } - type |= TCL_DD_SHORTEN_FLAG; + type |= TCL_DD_SHORTEST; } str = TclDoubleDigits(d, ndigits, type, &decpt, &signum, &endPtr); strObj = Tcl_NewStringObj(str, endPtr-str); |