diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 11:21:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 11:21:56 (GMT) |
| commit | 36024b4c2dfa88a5b42c42342e1630cb846b59f0 (patch) | |
| tree | d47999a8c08e11fc113066b725060f5e9b8182b7 /generic/tclStrToD.c | |
| parent | e49055022daf853edd8df42e1f9a6772f4e37422 (diff) | |
| parent | aa93fba41a6764dce6c1f918388efd0f46136ada (diff) | |
| download | tcl-36024b4c2dfa88a5b42c42342e1630cb846b59f0.zip tcl-36024b4c2dfa88a5b42c42342e1630cb846b59f0.tar.gz tcl-36024b4c2dfa88a5b42c42342e1630cb846b59f0.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index c6550f4..f6156d1 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -542,8 +542,7 @@ TclParseNumber( int under = 0; /* Flag trailing '_' as error if true once * number is accepted. */ -#define ALL_BITS UWIDE_MAX -#define MOST_BITS (ALL_BITS >> 1) +#define MOST_BITS (UWIDE_MAX >> 1) /* * Initialize bytes to start of the object's string rep if the caller @@ -854,7 +853,7 @@ TclParseNumber( acceptState = state; acceptPoint = p; acceptLen = len; - /* FALLTHRU */ + /* FALLTHRU */ case ZERO_B: zerob: if (c == '0') { @@ -3785,15 +3784,13 @@ ShouldBankerRoundUp( int r = mp_cmp_mag(twor, S); switch (r) { - case MP_LT: - return 0; case MP_EQ: return isodd; case MP_GT: return 1; + default: + return 0; } - Tcl_Panic("in ShouldBankerRoundUp, trichotomy fails!"); - return 0; } /* @@ -3831,15 +3828,13 @@ ShouldBankerRoundUpToNext( r = mp_cmp_mag(&temp, S); mp_clear(&temp); switch(r) { - case MP_LT: - return 0; case MP_EQ: return isodd; case MP_GT: return 1; + default: + return 0; } - Tcl_Panic("in ShouldBankerRoundUpToNext, trichotomy fails!"); - return 0; } /* |