Differences From Artifact [306292ccec]:

• File generic/tclStrToD.c — part of check-in [742a212258] at 2019-12-13 13:06:34 on branch trunk — Merge 8.7 (user: jan.nijtmans size: 129360) [more...]

To Artifact [58665f5a40]:

• File generic/tclStrToD.c — part of check-in [8c8b683bbe] at 2019-12-24 15:05:50 on branch trunk — Merge 8.7 (user: jan.nijtmans size: 129377) [more...]

786
787
788
789
790
791
792

793
794
795
796
797
798
799

	    state = HEXADECIMAL;
	    break;

	case BINARY:
	    acceptState = state;
	    acceptPoint = p;
	    acceptLen = len;

	case ZERO_B:
	zerob:
	    if (c == '0') {
		numTrailZeros++;
		state = BINARY;
		break;
	    } else if (c != '1') {

>

786
787
788
789
790
791
792
793
794
795
796
797
798
799
800

	    state = HEXADECIMAL;
	    break;

	case BINARY:
	    acceptState = state;
	    acceptPoint = p;
	    acceptLen = len;
		/* FALLTHRU */
	case ZERO_B:
	zerob:
	    if (c == '0') {
		numTrailZeros++;
		state = BINARY;
		break;
	    } else if (c != '1') {