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: |
1283a17cbd1b124297cf356a7f95457b |
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
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} |
︙ | ︙ |