Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fixed mistake ($howmuch is substituted in tests and can be larger as last event index created by too small measurement time). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
a76ccc10f1b684ca58ad8d8bcc37a8d5 |
| User & Date: | sebres 2019-03-08 04:35:41 |
Context
|
2019-03-17
| ||
| 22:13 | For Tcl >= 8.7, always compile-in the extended Unicode tables, no matter the value of TCL_UTF_MAX. D... check-in: 304a19f67c user: jan.nijtmans tags: core-8-5-branch | |
|
2019-03-16
| ||
| 21:42 | Try 32-bt Travis CI LInux build/test Leaf check-in: 032cf77af5 user: jan.nijtmans tags: linux-32bit-travis-build | |
|
2019-03-08
| ||
| 04:42 | merge 8.5 (perf-test) check-in: 5b6af82bad user: sebres tags: core-8-6-branch | |
| 04:38 | merge 8.5 (fixed performance test for short exec-time) check-in: 177092d5da user: sebres tags: sebres-8-5-event-perf-branch | |
| 04:35 | fixed mistake ($howmuch is substituted in tests and can be larger as last event index created by too... check-in: a76ccc10f1 user: sebres tags: core-8-5-branch | |
|
2019-03-05
| ||
| 16:25 | merge sebres-8-5-timerate (TIP#527 - New measurement facilities in TCL: New command timerate, perfor... check-in: 5c26638643 user: sebres tags: core-8-5-branch | |
Changes
Changes to tests-perf/timer-event.perf.tcl.
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
setup {set le $i; incr i; list $le .. 1; # cancel up to $howmuch events}
{after cancel $ev([incr i -1]); if {$i <= 1} break}
cleanup {update; unset -nocomplain ev}
# cancel forwards "after 0" / $howmuch timer-events in queue:
setup {set i 0; timerate {set ev([incr i]) [after 0 {set foo bar}]} {*}$reptime}
setup {set le $i; set i 0; list 1 .. $le; # cancel up to $howmuch events}
{after cancel $ev([incr i]); if {$i >= $howmuch} break}
cleanup {update; unset -nocomplain ev}
# cancel backwards "after 0" / $howmuch timer-events in queue:
setup {set i 0; timerate {set ev([incr i]) [after 0 {set foo bar}]} {*}$reptime}
setup {set le $i; incr i; list $le .. 1; # cancel up to $howmuch events}
{after cancel $ev([incr i -1]); if {$i <= 1} break}
cleanup {update; unset -nocomplain ev}
|
| |
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
setup {set le $i; incr i; list $le .. 1; # cancel up to $howmuch events}
{after cancel $ev([incr i -1]); if {$i <= 1} break}
cleanup {update; unset -nocomplain ev}
# cancel forwards "after 0" / $howmuch timer-events in queue:
setup {set i 0; timerate {set ev([incr i]) [after 0 {set foo bar}]} {*}$reptime}
setup {set le $i; set i 0; list 1 .. $le; # cancel up to $howmuch events}
{after cancel $ev([incr i]); if {$i >= $le} break}
cleanup {update; unset -nocomplain ev}
# cancel backwards "after 0" / $howmuch timer-events in queue:
setup {set i 0; timerate {set ev([incr i]) [after 0 {set foo bar}]} {*}$reptime}
setup {set le $i; incr i; list $le .. 1; # cancel up to $howmuch events}
{after cancel $ev([incr i -1]); if {$i <= 1} break}
cleanup {update; unset -nocomplain ev}
|