Artifact
fa6e39d5f3fc16b71972239f831b4e753b381e47:
Attachment "scani.patch" to
ticket [2373594fff]
added by
ferrieux
2008-12-02 04:29:55.
Index: tclStrToD.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclStrToD.c,v
retrieving revision 1.34
diff -u -r1.34 tclStrToD.c
--- tclStrToD.c 1 Apr 2008 20:08:22 -0000 1.34
+++ tclStrToD.c 1 Dec 2008 21:24:49 -0000
@@ -410,13 +412,13 @@
if (flags & TCL_PARSE_HEXADECIMAL_ONLY) {
goto zerox;
}
- if (flags & TCL_PARSE_SCAN_PREFIXES) {
- goto zeroo;
- }
if (c == 'b' || c == 'B') {
state = ZERO_B;
break;
}
+ if (flags & TCL_PARSE_SCAN_PREFIXES) {
+ goto zeroo;
+ }
if (c == 'o' || c == 'O') {
explicitOctal = 1;
state = ZERO_O;