diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-29 12:42:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-29 12:42:46 (GMT) |
| commit | 75fd364ccf966e5c574757d6c67adfc33aafe418 (patch) | |
| tree | d20de7258d084e510694984bbfaecfbd9b3e8c82 /generic/tclTest.c | |
| parent | e0afc4ae97cf20337783b4f187d748ce8fa3e54b (diff) | |
| download | tcl-75fd364ccf966e5c574757d6c67adfc33aafe418.zip tcl-75fd364ccf966e5c574757d6c67adfc33aafe418.tar.gz tcl-75fd364ccf966e5c574757d6c67adfc33aafe418.tar.bz2 | |
Combine TCL_DD_SHORTEN_FLAG and TCL_DD_SHORTEST to be the same flag (which it is .... actually)
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 61c88ba..73ce5d9 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -1803,7 +1803,7 @@ TestdoubledigitsObjCmd(void *unused, 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); |