diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-01 17:03:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-01 17:03:36 (GMT) |
| commit | 12d09ed4d9bb9034f455ec89ca2d0c12a426d25c (patch) | |
| tree | 5c049ab59f3d5c9455207b4763ed38923c273dda | |
| parent | ebec0ccb97e3a19b3a71c77fda3dbb33f0231c59 (diff) | |
| download | tcl-closed.zip tcl-closed.tar.gz tcl-closed.tar.bz2 | |
Always use UCHAR() with isxdigit(). doc fixclosed
| -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; |