diff options
| author | griffin <briang42@easystreet.net> | 2023-09-01 15:17:41 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-09-01 15:17:41 (GMT) |
| commit | ebec0ccb97e3a19b3a71c77fda3dbb33f0231c59 (patch) | |
| tree | 072e0e27854c6d7cb41a47e28dd2bfb13eebe5c6 /generic/tclStrToD.c | |
| parent | 4f5685bc2e489f3cf31579319479a3edd627d54c (diff) | |
| download | tcl-ebec0ccb97e3a19b3a71c77fda3dbb33f0231c59.zip tcl-ebec0ccb97e3a19b3a71c77fda3dbb33f0231c59.tar.gz tcl-ebec0ccb97e3a19b3a71c77fda3dbb33f0231c59.tar.bz2 | |
Fix bug with octal. Add floating point example to doc.
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 4912441..36261c3 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -610,8 +610,8 @@ TclParseNumber( break; case ZERO_O: case OCTAL: - if (((!before || (*before < '0' || '7' < *before))) || - ((!before || (*after < '0' || '7' < *after)))) { + if (((before && (*before < '0' || '7' < *before))) || + ((after && (*after < '0' || '7' < *after)))) { goto endgame; } break; |