/ Hex Artifact Content
Login

Artifact b8eb053190e95a55dc188896afb972e8108822d6:


0000: 23 2f 62 69 6e 2f 73 68 0a 23 20 5c 0a 65 78 65  #/bin/sh.# \.exe
0010: 63 20 60 77 68 69 63 68 20 74 63 6c 73 68 60 20  c `which tclsh` 
0020: 24 30 20 22 24 40 22 0a 23 0a 23 20 54 68 65 20  $0 "$@".#.# The 
0030: 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73  author disclaims
0040: 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68   copyright to th
0050: 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20  is source code. 
0060: 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 23 20 61   In place of.# a
0070: 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68   legal notice, h
0080: 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e  ere is a blessin
0090: 67 3a 0a 23 0a 23 20 20 20 20 4d 61 79 20 79 6f  g:.#.#    May yo
00a0: 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f  u do good and no
00b0: 74 20 65 76 69 6c 2e 0a 23 20 20 20 20 4d 61 79  t evil..#    May
00c0: 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69 76   you find forgiv
00d0: 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73 65  eness for yourse
00e0: 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20 6f  lf and forgive o
00f0: 74 68 65 72 73 2e 0a 23 20 20 20 20 4d 61 79 20  thers..#    May 
0100: 79 6f 75 20 73 68 61 72 65 20 66 72 65 65 6c 79  you share freely
0110: 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67 20 6d  , never taking m
0120: 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67 69 76  ore than you giv
0130: 65 2e 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  e..#############
0140: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0150: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0160: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0170: 23 23 23 23 23 23 23 23 23 0a 0a 73 65 74 20 64  #########..set d
0180: 6f 63 6f 20 22 0a 54 68 69 73 20 73 63 72 69 70  oco ".This scrip
0190: 74 20 69 73 20 61 20 74 6f 6f 6c 20 74 6f 20 68  t is a tool to h
01a0: 65 6c 70 20 74 72 61 63 6b 20 64 6f 77 6e 20 6d  elp track down m
01b0: 65 6d 6f 72 79 20 6c 65 61 6b 73 20 69 6e 20 74  emory leaks in t
01c0: 68 65 20 73 71 6c 69 74 65 0a 6c 69 62 72 61 72  he sqlite.librar
01d0: 79 2e 20 54 68 65 20 6c 69 62 72 61 72 79 20 6d  y. The library m
01e0: 75 73 74 20 62 65 20 63 6f 6d 70 69 6c 65 64 20  ust be compiled 
01f0: 77 69 74 68 20 74 68 65 20 70 72 65 70 72 6f 63  with the preproc
0200: 65 73 73 6f 72 20 73 79 6d 62 6f 6c 0a 53 51 4c  essor symbol.SQL
0210: 49 54 45 5f 4d 45 4d 44 45 42 55 47 20 73 65 74  ITE_MEMDEBUG set
0220: 20 74 6f 20 61 74 20 6c 65 61 73 74 20 32 2e 20   to at least 2. 
0230: 49 74 20 6d 75 73 74 20 62 65 20 73 65 74 20 74  It must be set t
0240: 6f 20 33 20 74 6f 20 65 6e 61 62 6c 65 20 73 74  o 3 to enable st
0250: 61 63 6b 20 0a 74 72 61 63 65 73 2e 0a 0a 54 6f  ack .traces...To
0260: 20 75 73 65 2c 20 72 75 6e 20 74 68 65 20 6c 65   use, run the le
0270: 61 6b 79 20 61 70 70 6c 69 63 61 74 69 6f 6e 20  aky application 
0280: 61 6e 64 20 73 61 76 65 20 74 68 65 20 73 74 61  and save the sta
0290: 6e 64 61 72 64 20 65 72 72 6f 72 20 6f 75 74 70  ndard error outp
02a0: 75 74 2e 0a 54 68 65 6e 2c 20 65 78 65 63 75 74  ut..Then, execut
02b0: 65 20 74 68 69 73 20 70 72 6f 67 72 61 6d 20 77  e this program w
02c0: 69 74 68 20 74 68 65 20 66 69 72 73 74 20 61 72  ith the first ar
02d0: 67 75 6d 65 6e 74 20 74 68 65 20 6e 61 6d 65 20  gument the name 
02e0: 6f 66 20 74 68 65 0a 61 70 70 6c 69 63 61 74 69  of the.applicati
02f0: 6f 6e 20 62 69 6e 61 72 79 20 28 6f 72 20 69 6e  on binary (or in
0300: 74 65 72 70 72 65 74 65 72 29 20 61 6e 64 20 74  terpreter) and t
0310: 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65  he second argume
0320: 6e 74 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74  nt the name of t
0330: 68 65 0a 74 65 78 74 20 66 69 6c 65 20 74 68 61  he.text file tha
0340: 74 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 63  t contains the c
0350: 6f 6c 6c 65 63 74 65 64 20 73 74 64 65 72 72 20  ollected stderr 
0360: 6f 75 74 70 75 74 2e 0a 0a 49 66 20 61 6c 6c 20  output...If all 
0370: 67 6f 65 73 20 77 65 6c 6c 20 61 20 73 75 6d 6d  goes well a summ
0380: 61 72 79 20 6f 66 20 75 6e 66 72 65 65 64 20 61  ary of unfreed a
0390: 6c 6c 6f 63 61 74 69 6f 6e 73 20 69 73 20 70 72  llocations is pr
03a0: 69 6e 74 65 64 20 6f 75 74 2e 20 49 66 20 74 68  inted out. If th
03b0: 65 0a 47 4e 55 20 43 20 6c 69 62 72 61 72 79 20  e.GNU C library 
03c0: 69 73 20 69 6e 20 75 73 65 20 61 6e 64 20 53 51  is in use and SQ
03d0: 4c 49 54 45 5f 44 45 42 55 47 20 69 73 20 33 20  LITE_DEBUG is 3 
03e0: 6f 72 20 67 72 65 61 74 65 72 20 61 20 73 74 61  or greater a sta
03f0: 63 6b 20 74 72 61 63 65 20 69 73 0a 70 72 69 6e  ck trace is.prin
0400: 74 65 64 20 6f 75 74 20 66 6f 72 20 65 61 63 68  ted out for each
0410: 20 75 6e 6d 61 74 63 68 65 64 20 61 6c 6c 6f 63   unmatched alloc
0420: 61 74 69 6f 6e 2e 0a 0a 45 78 61 6d 70 6c 65 3a  ation...Example:
0430: 0a 0a 24 20 2e 2f 74 65 73 74 66 69 78 74 75 72  ..$ ./testfixtur
0440: 65 20 2e 2e 2f 73 71 6c 69 74 65 2f 74 65 73 74  e ../sqlite/test
0450: 2f 73 65 6c 65 63 74 31 2e 74 65 73 74 20 32 3e  /select1.test 2>
0460: 20 6d 65 6d 74 72 61 63 65 2e 6f 75 74 0a 24 20   memtrace.out.$ 
0470: 74 63 6c 73 68 20 24 61 72 67 76 30 20 2e 2f 74  tclsh $argv0 ./t
0480: 65 73 74 66 69 78 74 75 72 65 20 6d 65 6d 74 72  estfixture memtr
0490: 61 63 65 2e 6f 75 74 0a 22 0a 0a 23 20 49 66 20  ace.out."..# If 
04a0: 73 74 61 63 6b 20 74 72 61 63 65 73 20 61 72 65  stack traces are
04b0: 20 65 6e 61 62 6c 65 64 2c 20 74 68 65 20 27 61   enabled, the 'a
04c0: 64 64 72 32 6c 69 6e 65 27 20 70 72 6f 67 72 61  ddr2line' progra
04d0: 6d 20 69 73 20 63 61 6c 6c 65 64 20 74 6f 0a 23  m is called to.#
04e0: 20 74 72 61 6e 73 6c 61 74 65 20 61 20 62 69 6e   translate a bin
04f0: 61 72 79 20 73 74 61 63 6b 20 61 64 64 72 65 73  ary stack addres
0500: 73 20 69 6e 74 6f 20 61 20 68 75 6d 61 6e 2d 72  s into a human-r
0510: 65 61 64 61 62 6c 65 20 66 6f 72 6d 2e 0a 73 65  eadable form..se
0520: 74 20 61 64 64 72 32 6c 69 6e 65 20 61 64 64 72  t addr2line addr
0530: 32 6c 69 6e 65 0a 0a 69 66 20 7b 20 5b 6c 6c 65  2line..if { [lle
0540: 6e 67 74 68 20 24 61 72 67 76 5d 21 3d 32 20 7d  ngth $argv]!=2 }
0550: 20 7b 0a 20 20 70 75 74 73 20 22 55 73 61 67 65   {.  puts "Usage
0560: 3a 20 24 61 72 67 76 30 20 3c 62 69 6e 61 72 79  : $argv0 <binary
0570: 20 66 69 6c 65 3e 20 3c 6d 65 6d 20 74 72 61 63   file> <mem trac
0580: 65 20 66 69 6c 65 3e 22 0a 20 20 70 75 74 73 20  e file>".  puts 
0590: 22 22 0a 20 20 70 75 74 73 20 5b 73 74 72 69 6e  "".  puts [strin
05a0: 67 20 74 72 69 6d 20 24 64 6f 63 6f 5d 0a 20 20  g trim $doco].  
05b0: 65 78 69 74 20 2d 31 0a 7d 0a 0a 0a 70 72 6f 63  exit -1.}...proc
05c0: 20 70 72 6f 63 65 73 73 5f 69 6e 70 75 74 20 7b   process_input {
05d0: 69 6e 70 75 74 5f 66 69 6c 65 20 61 72 72 61 79  input_file array
05e0: 5f 6e 61 6d 65 7d 20 7b 0a 20 20 75 70 76 61 72  _name} {.  upvar
05f0: 20 24 61 72 72 61 79 5f 6e 61 6d 65 20 6d 65 6d   $array_name mem
0600: 20 0a 20 20 73 65 74 20 69 6e 70 75 74 20 5b 6f   .  set input [o
0610: 70 65 6e 20 24 69 6e 70 75 74 5f 66 69 6c 65 5d  pen $input_file]
0620: 0a 0a 20 20 73 65 74 20 4d 41 4c 4c 4f 43 20 7b  ..  set MALLOC {
0630: 28 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b 29 20 6d  ([[:digit:]]+) m
0640: 61 6c 6c 6f 63 20 28 5b 5b 3a 64 69 67 69 74 3a  alloc ([[:digit:
0650: 5d 5d 2b 29 20 62 79 74 65 73 20 61 74 20 30 78  ]]+) bytes at 0x
0660: 28 5b 5b 3a 78 64 69 67 69 74 3a 5d 5d 2b 29 7d  ([[:xdigit:]]+)}
0670: 0a 20 20 23 20 73 65 74 20 53 54 41 43 4b 20 7b  .  # set STACK {
0680: 5e 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b 3a 20 53  ^[[:digit:]]+: S
0690: 54 41 43 4b 3a 20 28 2e 2a 29 24 7d 0a 20 20 73  TACK: (.*)$}.  s
06a0: 65 74 20 53 54 41 43 4b 20 7b 5e 53 54 41 43 4b  et STACK {^STACK
06b0: 3a 20 28 2e 2a 29 24 7d 0a 20 20 73 65 74 20 46  : (.*)$}.  set F
06c0: 52 45 45 20 7b 5b 5b 3a 64 69 67 69 74 3a 5d 5d  REE {[[:digit:]]
06d0: 2b 20 66 72 65 65 20 28 5b 5b 3a 64 69 67 69 74  + free ([[:digit
06e0: 3a 5d 5d 2b 29 20 62 79 74 65 73 20 61 74 20 30  :]]+) bytes at 0
06f0: 78 28 5b 5b 3a 78 64 69 67 69 74 3a 5d 5d 2b 29  x([[:xdigit:]]+)
0700: 7d 0a 20 20 73 65 74 20 52 45 41 4c 4c 4f 43 20  }.  set REALLOC 
0710: 7b 28 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b 29 20  {([[:digit:]]+) 
0720: 72 65 61 6c 6c 6f 63 20 28 5b 5b 3a 64 69 67 69  realloc ([[:digi
0730: 74 3a 5d 5d 2b 29 20 74 6f 20 28 5b 5b 3a 64 69  t:]]+) to ([[:di
0740: 67 69 74 3a 5d 5d 2b 29 7d 0a 20 20 61 70 70 65  git:]]+)}.  appe
0750: 6e 64 20 52 45 41 4c 4c 4f 43 20 7b 20 62 79 74  nd REALLOC { byt
0760: 65 73 20 61 74 20 30 78 28 5b 5b 3a 78 64 69 67  es at 0x([[:xdig
0770: 69 74 3a 5d 5d 2b 29 20 74 6f 20 30 78 28 5b 5b  it:]]+) to 0x([[
0780: 3a 78 64 69 67 69 74 3a 5d 5d 2b 29 7d 0a 0a 20  :xdigit:]]+)}.. 
0790: 20 73 65 74 20 73 74 61 63 6b 20 22 22 0a 20 20   set stack "".  
07a0: 77 68 69 6c 65 20 7b 20 21 5b 65 6f 66 20 24 69  while { ![eof $i
07b0: 6e 70 75 74 5d 20 7d 20 7b 0a 20 20 20 20 73 65  nput] } {.    se
07c0: 74 20 6c 69 6e 65 20 5b 67 65 74 73 20 24 69 6e  t line [gets $in
07d0: 70 75 74 5d 0a 20 20 20 20 69 66 20 7b 5b 72 65  put].    if {[re
07e0: 67 65 78 70 20 24 53 54 41 43 4b 20 24 6c 69 6e  gexp $STACK $lin
07f0: 65 20 64 75 6d 6d 79 20 73 74 61 63 6b 5d 7d 20  e dummy stack]} 
0800: 7b 0a 20 20 20 20 20 20 23 20 44 6f 20 6e 6f 74  {.      # Do not
0810: 68 69 6e 67 2e 20 54 68 65 20 76 61 72 69 61 62  hing. The variab
0820: 6c 65 20 24 73 74 61 63 6b 20 6e 6f 77 20 73 74  le $stack now st
0830: 6f 72 65 73 20 74 68 65 20 68 65 78 61 64 65 63  ores the hexadec
0840: 69 6d 61 6c 20 73 74 61 63 6b 20 64 75 6d 70 0a  imal stack dump.
0850: 20 20 20 20 20 20 23 20 66 6f 72 20 74 68 65 20        # for the 
0860: 6e 65 78 74 20 6d 61 6c 6c 6f 63 28 29 20 6f 72  next malloc() or
0870: 20 72 65 61 6c 6c 6f 63 28 29 2e 0a 0a 20 20 20   realloc()...   
0880: 20 7d 20 65 6c 73 65 69 66 20 7b 20 5b 72 65 67   } elseif { [reg
0890: 65 78 70 20 24 4d 41 4c 4c 4f 43 20 24 6c 69 6e  exp $MALLOC $lin
08a0: 65 20 64 75 6d 6d 79 20 6d 61 6c 6c 6f 63 69 64  e dummy mallocid
08b0: 20 62 79 74 65 73 20 61 64 64 72 5d 20 20 7d 20   bytes addr]  } 
08c0: 7b 0a 20 20 20 20 20 20 23 20 49 66 20 74 68 69  {.      # If thi
08d0: 73 20 69 73 20 61 20 27 6d 61 6c 6c 6f 63 27 20  s is a 'malloc' 
08e0: 6c 69 6e 65 2c 20 73 65 74 20 61 6e 20 65 6e 74  line, set an ent
08f0: 72 79 20 69 6e 20 74 68 65 20 6d 65 6d 20 61 72  ry in the mem ar
0900: 72 61 79 2e 20 45 61 63 68 20 65 6e 74 72 79 0a  ray. Each entry.
0910: 20 20 20 20 20 20 23 20 69 73 20 61 20 6c 69 73        # is a lis
0920: 74 20 6f 66 20 6c 65 6e 67 74 68 20 74 68 72 65  t of length thre
0930: 65 2c 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66  e, the number of
0940: 20 62 79 74 65 73 20 61 6c 6c 6f 63 61 74 65 64   bytes allocated
0950: 20 2c 20 74 68 65 20 6d 61 6c 6c 6f 63 0a 20 20   , the malloc.  
0960: 20 20 20 20 23 20 6e 75 6d 62 65 72 20 61 6e 64      # number and
0970: 20 74 68 65 20 73 74 61 63 6b 20 64 75 6d 70 20   the stack dump 
0980: 77 68 65 6e 20 69 74 20 77 61 73 20 61 6c 6c 6f  when it was allo
0990: 63 61 74 65 64 2e 0a 20 20 20 20 20 20 73 65 74  cated..      set
09a0: 20 6d 65 6d 28 24 61 64 64 72 29 20 5b 6c 69 73   mem($addr) [lis
09b0: 74 20 24 62 79 74 65 73 20 22 6d 61 6c 6c 6f 63  t $bytes "malloc
09c0: 20 24 6d 61 6c 6c 6f 63 69 64 22 20 24 73 74 61   $mallocid" $sta
09d0: 63 6b 5d 0a 20 20 20 20 20 20 73 65 74 20 73 74  ck].      set st
09e0: 61 63 6b 20 22 22 0a 0a 20 20 20 20 7d 20 65 6c  ack ""..    } el
09f0: 73 65 69 66 20 7b 20 5b 72 65 67 65 78 70 20 24  seif { [regexp $
0a00: 46 52 45 45 20 24 6c 69 6e 65 20 64 75 6d 6d 79  FREE $line dummy
0a10: 20 62 79 74 65 73 20 61 64 64 72 5d 20 7d 20 7b   bytes addr] } {
0a20: 0a 20 20 20 20 20 20 23 20 49 66 20 74 68 69 73  .      # If this
0a30: 20 69 73 20 61 20 27 66 72 65 65 27 20 6c 69 6e   is a 'free' lin
0a40: 65 2c 20 72 65 6d 6f 76 65 20 74 68 65 20 65 6e  e, remove the en
0a50: 74 72 79 20 66 72 6f 6d 20 74 68 65 20 6d 65 6d  try from the mem
0a60: 20 61 72 72 61 79 2e 20 49 66 20 74 68 65 20 0a   array. If the .
0a70: 20 20 20 20 20 20 23 20 65 6e 74 72 79 20 64 6f        # entry do
0a80: 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 6f 72  es not exist, or
0a90: 20 69 73 20 74 68 65 20 77 72 6f 6e 67 20 6e 75   is the wrong nu
0aa0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 2c 20 61  mber of bytes, a
0ab0: 6e 6e 6f 75 6e 63 65 20 61 0a 20 20 20 20 20 20  nnounce a.      
0ac0: 23 20 70 72 6f 62 6c 65 6d 2e 20 54 68 69 73 20  # problem. This 
0ad0: 69 73 20 6d 6f 72 65 20 6c 69 6b 65 6c 79 20 61  is more likely a
0ae0: 20 62 75 67 20 69 6e 20 74 68 65 20 72 65 67 75   bug in the regu
0af0: 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 73 20  lar expressions 
0b00: 66 6f 72 0a 20 20 20 20 20 20 23 20 74 68 69 73  for.      # this
0b10: 20 73 63 72 69 70 74 20 74 68 61 6e 20 61 6e 20   script than an 
0b20: 53 51 4c 69 74 65 20 64 65 66 65 63 74 2e 0a 20  SQLite defect.. 
0b30: 20 20 20 20 20 69 66 20 7b 20 5b 6c 69 6e 64 65       if { [linde
0b40: 78 20 24 6d 65 6d 28 24 61 64 64 72 29 20 30 5d  x $mem($addr) 0]
0b50: 20 21 3d 20 24 62 79 74 65 73 20 7d 20 7b 0a 20   != $bytes } {. 
0b60: 20 20 20 20 20 20 20 65 72 72 6f 72 20 22 62 79         error "by
0b70: 74 65 20 63 6f 75 6e 74 20 6d 69 73 6d 61 74 63  te count mismatc
0b80: 68 22 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  h".      }.     
0b90: 20 75 6e 73 65 74 20 6d 65 6d 28 24 61 64 64 72   unset mem($addr
0ba0: 29 20 0a 0a 20 20 20 20 7d 20 65 6c 73 65 69 66  ) ..    } elseif
0bb0: 20 7b 20 5b 72 65 67 65 78 70 20 24 52 45 41 4c   { [regexp $REAL
0bc0: 4c 4f 43 20 24 6c 69 6e 65 20 64 75 6d 6d 79 20  LOC $line dummy 
0bd0: 6d 61 6c 6c 6f 63 69 64 20 6f 62 20 62 20 6f 61  mallocid ob b oa
0be0: 20 61 5d 20 7d 20 7b 0a 20 20 20 20 20 20 23 20   a] } {.      # 
0bf0: 49 66 20 69 74 20 69 73 20 61 20 72 65 61 6c 6c  If it is a reall
0c00: 6f 63 20 6c 69 6e 65 2c 20 72 65 6d 6f 76 65 20  oc line, remove 
0c10: 74 68 65 20 6f 6c 64 20 6d 65 6d 20 65 6e 74 72  the old mem entr
0c20: 79 20 61 6e 64 20 61 64 64 20 61 20 6e 65 77 20  y and add a new 
0c30: 6f 6e 65 2e 0a 20 20 20 20 20 20 75 6e 73 65 74  one..      unset
0c40: 20 6d 65 6d 28 24 6f 61 29 3b 0a 20 20 20 20 20   mem($oa);.     
0c50: 20 73 65 74 20 6d 65 6d 28 24 61 29 20 5b 6c 69   set mem($a) [li
0c60: 73 74 20 24 62 20 22 72 65 61 6c 6c 6f 63 20 24  st $b "realloc $
0c70: 6d 61 6c 6c 6f 63 69 64 22 20 24 73 74 61 63 6b  mallocid" $stack
0c80: 5d 0a 20 20 20 20 20 20 73 65 74 20 73 74 61 63  ].      set stac
0c90: 6b 20 22 22 0a 20 20 20 20 7d 20 65 6c 73 65 20  k "".    } else 
0ca0: 7b 0a 20 20 20 20 20 20 23 20 70 75 74 73 20 22  {.      # puts "
0cb0: 52 45 4a 45 43 54 3a 20 24 6c 69 6e 65 22 0a 20  REJECT: $line". 
0cc0: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 63 6c 6f 73     }.  }..  clos
0cd0: 65 20 24 69 6e 70 75 74 0a 7d 0a 0a 70 72 6f 63  e $input.}..proc
0ce0: 65 73 73 5f 69 6e 70 75 74 20 5b 6c 69 6e 64 65  ess_input [linde
0cf0: 78 20 24 61 72 67 76 20 31 5d 20 6d 65 6d 0a 73  x $argv 1] mem.s
0d00: 65 74 20 65 78 65 20 5b 6c 69 6e 64 65 78 20 24  et exe [lindex $
0d10: 61 72 67 76 20 30 5d 0a 0a 66 6f 72 65 61 63 68  argv 0]..foreach
0d20: 20 6b 65 79 20 5b 61 72 72 61 79 20 6e 61 6d 65   key [array name
0d30: 73 20 6d 65 6d 5d 20 7b 0a 20 20 73 65 74 20 62  s mem] {.  set b
0d40: 79 74 65 73 20 5b 6c 69 6e 64 65 78 20 24 6d 65  ytes [lindex $me
0d50: 6d 28 24 6b 65 79 29 20 30 5d 0a 20 20 73 65 74  m($key) 0].  set
0d60: 20 6d 61 6c 6c 6f 63 69 64 20 5b 6c 69 6e 64 65   mallocid [linde
0d70: 78 20 24 6d 65 6d 28 24 6b 65 79 29 20 31 5d 0a  x $mem($key) 1].
0d80: 20 20 73 65 74 20 73 74 61 63 6b 20 5b 6c 69 6e    set stack [lin
0d90: 64 65 78 20 24 6d 65 6d 28 24 6b 65 79 29 20 32  dex $mem($key) 2
0da0: 5d 0a 20 20 70 75 74 73 20 22 4c 65 61 6b 65 64  ].  puts "Leaked
0db0: 20 24 62 79 74 65 73 20 62 79 74 65 73 20 61 74   $bytes bytes at
0dc0: 20 30 78 24 6b 65 79 3a 20 24 6d 61 6c 6c 6f 63   0x$key: $malloc
0dd0: 69 64 22 0a 20 20 66 6f 72 65 61 63 68 20 66 72  id".  foreach fr
0de0: 61 6d 65 20 5b 6c 72 61 6e 67 65 20 24 73 74 61  ame [lrange $sta
0df0: 63 6b 20 31 20 31 30 5d 20 7b 0a 20 20 20 20 66  ck 1 10] {.    f
0e00: 6f 72 65 61 63 68 20 7b 66 20 6c 7d 20 5b 73 70  oreach {f l} [sp
0e10: 6c 69 74 20 5b 65 78 65 63 20 24 61 64 64 72 32  lit [exec $addr2
0e20: 6c 69 6e 65 20 2d 66 20 2d 2d 65 78 65 3d 24 65  line -f --exe=$e
0e30: 78 65 20 24 66 72 61 6d 65 5d 20 5c 6e 5d 20 7b  xe $frame] \n] {
0e40: 7d 0a 20 20 20 20 70 75 74 73 20 5b 66 6f 72 6d  }.    puts [form
0e50: 61 74 20 22 25 2d 33 30 73 20 25 73 22 20 24 66  at "%-30s %s" $f
0e60: 20 24 6c 5d 0a 20 20 7d 0a 20 20 69 66 20 7b 5b   $l].  }.  if {[
0e70: 6c 6c 65 6e 67 74 68 20 24 73 74 61 63 6b 5d 3e  llength $stack]>
0e80: 30 20 7d 20 7b 70 75 74 73 20 22 22 7d 0a 7d 0a  0 } {puts ""}.}.
0e90: 0a                                               .