Differences From Artifact [1f982852c9]:

• File generic/tclBinary.c — part of check-in [1d3ff9a0e1] at 2019-06-11 12:25:06 on branch tip-450 — Don't create variable on error (user: dkf size: 94912)

To Artifact [2190c9a756]:

• File generic/tclBinary.c — part of check-in [9df20cff69] at 2019-06-14 20:30:43 on branch tip-450 — Fix the bug; set current end to end of input string so @* can go there. (user: dkf size: 94929)

1625
1626
1627
1628
1629
1630
1631
1632

1633
1634
1635
1636
1637
1638
1639

1625
1626
1627
1628
1629
1630
1631

1632
1633
1634
1635
1636
1637
1638
1639

-
+

     * checking during this pass, since we have already parsed the string
     * once.
     */

    arg = 3;
    format = TclGetString(objv[2]);
    cursor = buffer;
    maxPos = cursor;
    maxPos = cursor + originalLength;
    while (*format != 0) {
	flags = 0;
	if (!GetFormatSpec(&format, &cmd, &count, &flags)) {
	    break;
	}
	if ((count == 0) && (cmd != '@')) {
	    if (cmd != 'x') {