Tcl Source Code

Check-in [1283a17cbd]
Login

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

Overview
Comment:bug [552ed5eac53ff5e4]: added test case illustrated this bug
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-552ed5eac53ff5e4
Files: files | file ages | folders
SHA3-256: 1283a17cbd1b124297cf356a7f95457b91cbf86f36b08819280d79c069ca44ad
User & Date: sebres 2018-04-20 20:41:15
References
2018-04-20
20:47 Ticket [552ed5eac5] Strange discrepancy regarding INST_START_CMD in body of cycles if compiled with or without invocation in condition/iterator... status still Open with 3 other changes artifact: feade3647a user: sebres
Context
2018-04-20
21:01
small amend (test caption and clean-up) Leaf check-in: f83578fbf2 user: sebres tags: bug-552ed5eac53ff5e4
20:41
bug [552ed5eac53ff5e4]: added test case illustrated this bug check-in: 1283a17cbd user: sebres tags: bug-552ed5eac53ff5e4
20:17
DeleteArray has only one caller. It is called on the "dummy" variable that is created during unset, ... check-in: 27ec7e3d3d user: dgp tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/compile.test.

1034
1035
1036
1037
1038
1039
1040






























1041
1042
1043
1044
1045
1046
1047
	    lappend result $i
	    lappend result [concat {*}$args [continue] c]
	    lappend result c
	}
	return $result
    }} P Q R S T
} {1 2 3 4 5 6 7 8 9 10}































# TODO sometime - check that bytecode from tbcload is *not* disassembled.

# cleanup
catch {rename p ""}
catch {namespace delete test_ns_compile}
catch {unset x}







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
	    lappend result $i
	    lappend result [concat {*}$args [continue] c]
	    lappend result c
	}
	return $result
    }} P Q R S T
} {1 2 3 4 5 6 7 8 9 10}

test compile-22.1 {} -setup {
    proc retv {v} {return $v}
    set i 0
    foreach c {
        { set j 10; while {[retv [incr j -1]]} {set i0 0; set i1 1; set i2 2; set i3 3} }
        { set j 10; while {      [incr j -1] } {set i0 0; set i1 1; set i2 2; set i3 3} }
        { foreach j [retv {9 8 7 6 4 3 2 1}]   {set i0 0; set i1 1; set i2 2; set i3 3} }
        { foreach j       {9 8 7 6 4 3 2 1}    {set i0 0; set i1 1; set i2 2; set i3 3} }
    } {
        proc test_comp_22_[incr i] {} $c
    }
    proc test_comp_22 {} {
        set l {}
        foreach i {1 2 3 4} {
            set c [info cmdcount]
            test_comp_22_$i
            lappend l [expr {[info cmdcount] - $c}]
        }
        return $l
    }
} -body {
    test_comp_22
} -cleanup {
    rename test_comp_22 {}
    foreach i {1 2 3 4} {
        rename test_comp_22_$i {}
    }
    unset c i
} -result {62 52 38 37}

# TODO sometime - check that bytecode from tbcload is *not* disassembled.

# cleanup
catch {rename p ""}
catch {namespace delete test_ns_compile}
catch {unset x}