Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix overwrite of outer loop variable. |
|---|---|
| Timelines: | family | ancestors | descendants | both | neg-aliases |
| Files: | files | file ages | folders |
| SHA1: |
374d694490783d683c69337f4b43bc79 |
| User & Date: | aku 2015-05-11 23:01:27 |
Context
|
2015-05-11
| ||
| 23:02 | Fix the guard conditions for negative aliases. check-in: 4eaa72578e user: aku tags: neg-aliases | |
| 23:01 | Fix overwrite of outer loop variable. check-in: 374d694490 user: aku tags: neg-aliases | |
| 22:28 | Merged trunk testsuite fixes. check-in: 5ae1694710 user: aku tags: neg-aliases | |
Changes
Changes to tests/support.tcl.
248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 |
if {[$c threshold] >= 0} {
lappend result " mode=threshold [$c threshold]"
} else {
lappend result " mode=peek+test"
}
}
lappend result " flags \[[$c options]\]"
foreach o [$c options] {
lappend result " $o = [$c flag-type $o]"
}
lappend result " ge ([$c generator])"
lappend result " va ([$c validator])"
lappend result " wd ([$c when-complete])"
lappend result " \}"
}
|
| | |
248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 |
if {[$c threshold] >= 0} {
lappend result " mode=threshold [$c threshold]"
} else {
lappend result " mode=peek+test"
}
}
lappend result " flags \[[$c options]\]"
foreach oname [$c options] {
lappend result " $oname = [$c flag-type $oname]"
}
lappend result " ge ([$c generator])"
lappend result " va ([$c validator])"
lappend result " wd ([$c when-complete])"
lappend result " \}"
}
|