/ Check-in [b26df26e]
Login

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 | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:b26df26e184ec6da4b5537526c10f42a293d09b5
User & Date: drh 2016-12-08 19:04:36
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: 92998e4a 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: b26df26e 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: 254a83bf user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tool/cg_anno.tcl.

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 && [regexp { *([0-9,]+) } $line all x]} {
    incr linenum
    if {[regexp {^ *([0-9,]+) } $line all x]} {
      set x [string map {, {}} $x]
      set cycles($linenum) $x
    }
  }
}







|







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
    }
  }
}