diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-15 10:52:26 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-15 10:52:26 (GMT) |
commit | 78d6e8f34ca33491a8ae054c025f3c8925737e32 (patch) | |
tree | 8ee5c63063059b231413d4f2f396c8c6308146a9 /generic/tclStrToD.c | |
parent | 0cd0d2191b06b47180e585a9980ecd08a289b960 (diff) | |
download | tcl-78d6e8f34ca33491a8ae054c025f3c8925737e32.zip tcl-78d6e8f34ca33491a8ae054c025f3c8925737e32.tar.gz tcl-78d6e8f34ca33491a8ae054c025f3c8925737e32.tar.bz2 |
Fix [ff658e10fc]: tip 551 in 8.7a4 0b1111_1111 not working. Also fix some indenting in code
Diffstat (limited to 'generic/tclStrToD.c')
-rw-r--r-- | generic/tclStrToD.c | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index d03548c..b213bed 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -904,12 +904,14 @@ TclParseNumber( under = 0; state = BINARY; break; - } else if (c == '_' && !(flags & TCL_PARSE_NO_UNDERSCORE)) { - /* Ignore numeric "white space" */ - under = 1; - break; + } else if (c == '_' && !(flags & TCL_PARSE_NO_UNDERSCORE)) { + /* Ignore numeric "white space" */ + under = 1; + break; } else if (c != '1') { goto endgame; + } else { + under = 0; } if (objPtr != NULL) { shift = numTrailZeros + 1; @@ -949,11 +951,11 @@ TclParseNumber( under = 0; numTrailZeros++; } else if ( ! isdigit(UCHAR(c))) { - if (c == '_' && !(flags & TCL_PARSE_NO_UNDERSCORE)) { - /* Ignore numeric "white space" */ - under = 1; - break; - } + if (c == '_' && !(flags & TCL_PARSE_NO_UNDERSCORE)) { + /* Ignore numeric "white space" */ + under = 1; + break; + } goto endgame; } under = 0; |