/ Hex Artifact Content
Login

Artifact 740ed206ba8c5040018988129abbf3089a0ccf4a:


0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 74 63 6c 73 68  #!/usr/bin/tclsh
0010: 0a 23 0a 23 20 52 75 6e 20 74 68 69 73 20 73 63  .#.# Run this sc
0020: 72 69 70 74 2c 20 72 65 64 69 72 65 63 74 69 6e  ript, redirectin
0030: 67 20 69 6e 70 75 74 20 66 72 6f 6d 20 63 61 63  g input from cac
0040: 68 65 67 72 69 6e 64 20 6f 75 74 70 75 74 2c 20  hegrind output, 
0050: 74 6f 20 63 6f 6d 70 75 74 65 20 74 68 65 0a 23  to compute the.#
0060: 20 6e 75 6d 62 65 72 20 6f 66 20 43 50 55 20 63   number of CPU c
0070: 79 63 6c 65 73 20 75 73 65 64 20 62 79 20 65 61  ycles used by ea
0080: 63 68 20 56 44 42 45 20 6f 70 63 6f 64 65 2e 0a  ch VDBE opcode..
0090: 23 0a 23 20 54 68 65 20 63 61 63 68 65 67 72 69  #.# The cachegri
00a0: 6e 64 20 6f 75 74 70 75 74 20 73 68 6f 75 6c 64  nd output should
00b0: 20 62 65 20 63 6f 6e 66 69 67 75 72 65 64 20 73   be configured s
00c0: 6f 20 74 68 61 74 20 69 74 20 72 65 70 6f 72 74  o that it report
00d0: 73 20 61 20 73 69 6e 67 6c 65 0a 23 20 63 6f 6c  s a single.# col
00e0: 75 6d 6e 20 6f 66 20 49 72 20 61 74 20 74 68 65  umn of Ir at the
00f0: 20 6c 65 66 74 20 6d 61 72 67 69 6e 2e 20 45 78   left margin. Ex
0100: 3a 0a 23 0a 23 20 20 20 20 63 67 5f 61 6e 6e 6f  :.#.#    cg_anno
0110: 74 61 74 69 6f 6e 20 2d 2d 73 68 6f 77 3d 49 72  tation --show=Ir
0120: 20 2d 2d 61 75 74 6f 3d 79 65 73 20 63 61 63 68   --auto=yes cach
0130: 65 67 72 69 6e 64 2e 6f 75 74 2e 2a 20 7c 20 74  egrind.out.* | t
0140: 63 6c 73 68 20 6f 70 63 6f 64 65 73 75 6d 2e 74  clsh opcodesum.t
0150: 63 6c 0a 23 0a 73 65 74 20 63 75 72 72 65 6e 74  cl.#.set current
0160: 6f 70 20 78 0a 73 65 74 20 6e 63 79 63 6c 65 28  op x.set ncycle(
0170: 78 29 20 30 0a 77 68 69 6c 65 20 7b 21 5b 65 6f  x) 0.while {![eo
0180: 66 20 73 74 64 69 6e 5d 7d 20 7b 0a 20 20 73 65  f stdin]} {.  se
0190: 74 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 6d  t line [string m
01a0: 61 70 20 7b 5c 31 37 33 20 78 20 5c 31 37 35 20  ap {\173 x \175 
01b0: 78 20 5c 30 34 32 20 78 7d 20 5b 67 65 74 73 20  x \042 x} [gets 
01c0: 73 74 64 69 6e 5d 5d 0a 20 20 69 66 20 7b 5b 72  stdin]].  if {[r
01d0: 65 67 65 78 70 20 7b 20 20 5c 2e 20 20 63 61 73  egexp {  \.  cas
01e0: 65 20 4f 50 5f 2e 2a 3a 7d 20 24 6c 69 6e 65 5d  e OP_.*:} $line]
01f0: 7d 20 7b 0a 20 20 20 20 72 65 67 65 78 70 20 7b  } {.    regexp {
0200: 4f 50 5f 28 2e 2b 29 3a 7d 20 24 6c 69 6e 65 20  OP_(.+):} $line 
0210: 61 6c 6c 20 63 75 72 72 65 6e 74 6f 70 0a 20 20  all currentop.  
0220: 20 20 73 65 74 20 6e 63 79 63 6c 65 28 24 63 75    set ncycle($cu
0230: 72 72 65 6e 74 6f 70 29 20 30 0a 20 20 7d 20 65  rrentop) 0.  } e
0240: 6c 73 65 69 66 20 7b 5b 6c 69 6e 64 65 78 20 24  lseif {[lindex $
0250: 6c 69 6e 65 20 31 5d 3d 3d 22 64 65 66 61 75 6c  line 1]=="defaul
0260: 74 3a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20  t:".            
0270: 26 26 20 5b 72 65 67 65 78 70 20 7b 72 65 61 6c  && [regexp {real
0280: 6c 79 20 4f 50 5f 4e 6f 6f 70 20 61 6e 64 20 4f  ly OP_Noop and O
0290: 50 5f 45 78 70 6c 61 69 6e 7d 20 24 6c 69 6e 65  P_Explain} $line
02a0: 5d 7d 20 7b 0a 20 20 20 20 62 72 65 61 6b 0a 20  ]} {.    break. 
02b0: 20 7d 20 65 6c 73 65 69 66 20 7b 5b 6c 69 6e 64   } elseif {[lind
02c0: 65 78 20 24 6c 69 6e 65 20 30 5d 21 3d 22 2e 22  ex $line 0]!="."
02d0: 7d 20 7b 0a 20 20 20 20 72 65 67 73 75 62 20 2d  } {.    regsub -
02e0: 61 6c 6c 20 7b 5b 5e 30 2d 39 5d 7d 20 5b 6c 69  all {[^0-9]} [li
02f0: 6e 64 65 78 20 24 6c 69 6e 65 20 30 5d 20 7b 7d  ndex $line 0] {}
0300: 20 6e 0a 20 20 20 20 69 66 20 7b 24 6e 21 3d 22   n.    if {$n!="
0310: 22 7d 20 7b 69 6e 63 72 20 6e 63 79 63 6c 65 28  "} {incr ncycle(
0320: 24 63 75 72 72 65 6e 74 6f 70 29 20 24 6e 7d 0a  $currentop) $n}.
0330: 20 20 7d 0a 7d 0a 75 6e 73 65 74 20 6e 63 79 63    }.}.unset ncyc
0340: 6c 65 28 78 29 0a 73 65 74 20 72 65 73 75 6c 74  le(x).set result
0350: 73 20 7b 7d 0a 66 6f 72 65 61 63 68 20 6f 70 20  s {}.foreach op 
0360: 5b 6c 73 6f 72 74 20 5b 61 72 72 61 79 20 6e 61  [lsort [array na
0370: 6d 65 73 20 6e 63 79 63 6c 65 5d 5d 20 7b 0a 20  mes ncycle]] {. 
0380: 20 69 66 20 7b 24 6e 63 79 63 6c 65 28 24 6f 70   if {$ncycle($op
0390: 29 3d 3d 30 7d 20 63 6f 6e 74 69 6e 75 65 0a 20  )==0} continue. 
03a0: 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 73   lappend results
03b0: 20 5b 6c 69 73 74 20 24 6e 63 79 63 6c 65 28 24   [list $ncycle($
03c0: 6f 70 29 20 24 6f 70 5d 0a 7d 0a 66 6f 72 65 61  op) $op].}.forea
03d0: 63 68 20 65 6e 74 72 79 20 5b 6c 73 6f 72 74 20  ch entry [lsort 
03e0: 2d 69 6e 64 65 78 20 30 20 2d 69 6e 74 20 2d 64  -index 0 -int -d
03f0: 65 63 72 20 24 72 65 73 75 6c 74 73 5d 20 7b 0a  ecr $results] {.
0400: 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 7b    puts [format {
0410: 25 2d 31 36 73 20 25 31 30 64 7d 20 5b 6c 69 6e  %-16s %10d} [lin
0420: 64 65 78 20 24 65 6e 74 72 79 20 31 5d 20 5b 6c  dex $entry 1] [l
0430: 69 6e 64 65 78 20 24 65 6e 74 72 79 20 30 5d 5d  index $entry 0]]
0440: 0a 7d 0a                                         .}.