Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix a minor error in the cg_anno.tcl script causing the cycles-per-file counts to be miscomputed. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
b26df26e184ec6da4b5537526c10f42a |
User & Date: | drh 2016-12-08 19:04:36.568 |
Context
2016-12-08
| ||
23:52 | Fix the showstat4 utility program so that is displays strings using standard SQL notation (single quotes) rather than C-style notation. (check-in: 92998e4afb user: drh tags: trunk) | |
19:04 | Fix a minor error in the cg_anno.tcl script causing the cycles-per-file counts to be miscomputed. (check-in: b26df26e18 user: drh tags: trunk) | |
18:36 | Update the tool/cg_anno.tcl script to give a summary of cycle counts by canonical source file name. (check-in: 254a83bf30 user: drh tags: trunk) | |
Changes
Changes to tool/cg_anno.tcl.
︙ | ︙ | |||
24 25 26 27 28 29 30 | } elseif {[regexp {^-- line (\d+) ------} $line all ln]} { set line [lreplace $line 2 2 {#}] set linenum [expr {$ln-1}] } elseif {[regexp {^The following files chosen for } $line]} { set dest ! } append out($dest) $line\n | | | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | } elseif {[regexp {^-- line (\d+) ------} $line all ln]} { set line [lreplace $line 2 2 {#}] set linenum [expr {$ln-1}] } elseif {[regexp {^The following files chosen for } $line]} { set dest ! } append out($dest) $line\n if {$cntlines} { incr linenum if {[regexp {^ *([0-9,]+) } $line all x]} { set x [string map {, {}} $x] set cycles($linenum) $x } } } |
︙ | ︙ |