Tcl Source Code

Check-in [9df20cff69]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix the bug; set current end to end of input string so @* can go there.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-450
Files: files | file ages | folders
SHA3-256: 9df20cff69f40a97f63e7a85b69a53a319b4a848b62b68e62ab71b1021311769
User & Date: dkf 2019-06-14 20:30:43
Context
2019-06-14
21:15
Document [binary set] and clean up the binary manpage check-in: b0371b4216 user: dkf tags: tip-450
20:30
Fix the bug; set current end to end of input string so @* can go there. check-in: 9df20cff69 user: dkf tags: tip-450
09:11
Test cases. One failure... check-in: e4a8d48058 user: dkf tags: tip-450
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclBinary.c.

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;
    while (*format != 0) {
	flags = 0;
	if (!GetFormatSpec(&format, &cmd, &count, &flags)) {
	    break;
	}
	if ((count == 0) && (cmd != '@')) {
	    if (cmd != 'x') {






|







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 + originalLength;
    while (*format != 0) {
	flags = 0;
	if (!GetFormatSpec(&format, &cmd, &count, &flags)) {
	    break;
	}
	if ((count == 0) && (cmd != '@')) {
	    if (cmd != 'x') {