diff options
| -rw-r--r-- | doc/expr.n | 2 | ||||
| -rw-r--r-- | generic/tclStrToD.c | 4 |
2 files changed, 3 insertions, 3 deletions
@@ -85,7 +85,7 @@ end of a numeric value. Here are some examples: \fBexpr\fR 100_000_000 \fI100000000\fR \fBexpr\fR 0xffff_ffff \fI4294967295\fR \fBformat\fR 0x%x 0b1111_1110_1101_1011 \fI0xfedb\fR -\fBexpr\fR 3_141_592_653_589e-1_2 \fI3.141592653589 +\fBexpr\fR 3_141_592_653_589e-1_2 \fI3.141592653589\fR .CE .RE diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 36261c3..8f69627 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -634,8 +634,8 @@ TclParseNumber( goto endgame; case ZERO_X: case HEXADECIMAL: - if ( (!before || isxdigit(*before)) && - (!after || isxdigit(*after))) { + if ( (!before || isxdigit(UCHAR(*before))) && + (!after || isxdigit(UCHAR(*after)))) { break; } goto endgame; |