/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact 7707006ee908cffff210c98158788d85bb3fcdbf:


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 49 66 20 74 68 65 20 5c  ation...If the \
0430: 22 2d 72 20 3c 6e 3e 5c 22 20 6f 70 74 69 6f 6e  "-r <n>\" option
0440: 20 69 73 20 70 61 73 73 65 64 2c 20 74 68 65 6e   is passed, then
0450: 20 74 68 65 20 70 72 6f 67 72 61 6d 20 73 74 6f   the program sto
0460: 70 73 20 61 6e 64 20 70 72 69 6e 74 73 20 6f 75  ps and prints ou
0470: 74 0a 74 68 65 20 73 74 61 74 65 20 6f 66 20 74  t.the state of t
0480: 68 65 20 68 65 61 70 20 69 6d 6d 65 64 69 61 74  he heap immediat
0490: 65 6c 79 20 61 66 74 65 72 20 74 68 65 20 3c 6e  ely after the <n
04a0: 3e 74 68 20 63 61 6c 6c 20 74 6f 20 6d 61 6c 6c  >th call to mall
04b0: 6f 63 28 29 20 6f 72 0a 72 65 61 6c 6c 6f 63 28  oc() or.realloc(
04c0: 29 2e 0a 0a 45 78 61 6d 70 6c 65 3a 0a 0a 24 20  )...Example:..$ 
04d0: 2e 2f 74 65 73 74 66 69 78 74 75 72 65 20 2e 2e  ./testfixture ..
04e0: 2f 73 71 6c 69 74 65 2f 74 65 73 74 2f 73 65 6c  /sqlite/test/sel
04f0: 65 63 74 31 2e 74 65 73 74 20 32 3e 20 6d 65 6d  ect1.test 2> mem
0500: 74 72 61 63 65 2e 6f 75 74 0a 24 20 74 63 6c 73  trace.out.$ tcls
0510: 68 20 24 61 72 67 76 30 20 3f 2d 72 20 3c 6d 61  h $argv0 ?-r <ma
0520: 6c 6c 6f 63 2d 6e 75 6d 62 65 72 3e 3f 20 2e 2f  lloc-number>? ./
0530: 74 65 73 74 66 69 78 74 75 72 65 20 6d 65 6d 74  testfixture memt
0540: 72 61 63 65 2e 6f 75 74 0a 22 0a 0a 0a 70 72 6f  race.out."...pro
0550: 63 20 75 73 61 67 65 20 7b 7d 20 7b 0a 20 20 73  c usage {} {.  s
0560: 65 74 20 70 72 67 20 5b 66 69 6c 65 20 74 61 69  et prg [file tai
0570: 6c 20 24 3a 3a 61 72 67 76 30 5d 0a 20 20 70 75  l $::argv0].  pu
0580: 74 73 20 22 55 73 61 67 65 3a 20 24 70 72 67 20  ts "Usage: $prg 
0590: 3f 2d 72 20 3c 6d 61 6c 6c 6f 63 2d 6e 75 6d 62  ?-r <malloc-numb
05a0: 65 72 3e 3f 20 3c 62 69 6e 61 72 79 20 66 69 6c  er>? <binary fil
05b0: 65 3e 20 3c 6d 65 6d 20 74 72 61 63 65 20 66 69  e> <mem trace fi
05c0: 6c 65 3e 22 0a 20 20 70 75 74 73 20 22 22 0a 20  le>".  puts "". 
05d0: 20 70 75 74 73 20 5b 73 74 72 69 6e 67 20 74 72   puts [string tr
05e0: 69 6d 20 24 3a 3a 64 6f 63 6f 5d 0a 20 20 65 78  im $::doco].  ex
05f0: 69 74 20 2d 31 0a 7d 0a 0a 70 72 6f 63 20 73 68  it -1.}..proc sh
0600: 69 66 74 20 7b 6c 69 73 74 76 61 72 7d 20 7b 0a  ift {listvar} {.
0610: 20 20 75 70 76 61 72 20 24 6c 69 73 74 76 61 72    upvar $listvar
0620: 20 6c 0a 20 20 73 65 74 20 72 65 74 20 5b 6c 69   l.  set ret [li
0630: 6e 64 65 78 20 24 6c 20 30 5d 0a 20 20 73 65 74  ndex $l 0].  set
0640: 20 6c 20 5b 6c 72 61 6e 67 65 20 24 6c 20 31 20   l [lrange $l 1 
0650: 65 6e 64 5d 0a 20 20 72 65 74 75 72 6e 20 24 72  end].  return $r
0660: 65 74 0a 7d 0a 0a 23 20 41 72 67 75 6d 65 6e 74  et.}..# Argument
0670: 20 68 61 6e 64 6c 69 6e 67 2e 20 54 68 65 20 66   handling. The f
0680: 6f 6c 6c 6f 77 69 6e 67 20 76 61 72 73 20 61 72  ollowing vars ar
0690: 65 20 73 65 74 3a 0a 23 0a 23 20 24 65 78 65 20  e set:.#.# $exe 
06a0: 20 20 20 20 20 20 2d 20 74 68 65 20 6e 61 6d 65        - the name
06b0: 20 6f 66 20 74 68 65 20 65 78 65 63 75 74 61 62   of the executab
06c0: 6c 65 20 28 69 2e 65 2e 20 22 74 65 73 74 66 69  le (i.e. "testfi
06d0: 78 74 75 72 65 22 20 6f 72 20 22 2e 2f 73 71 6c  xture" or "./sql
06e0: 69 74 65 33 22 29 0a 23 20 24 6d 65 6d 66 69 6c  ite3").# $memfil
06f0: 65 20 20 20 2d 20 74 68 65 20 6e 61 6d 65 20 6f  e   - the name o
0700: 66 20 74 68 65 20 66 69 6c 65 20 63 6f 6e 74 61  f the file conta
0710: 69 6e 69 6e 67 20 74 68 65 20 74 72 61 63 65 20  ining the trace 
0720: 6f 75 74 70 75 74 2e 0a 23 20 24 72 65 70 6f 72  output..# $repor
0730: 74 5f 61 74 20 2d 20 54 68 65 20 6d 61 6c 6c 6f  t_at - The mallo
0740: 63 20 6e 75 6d 62 65 72 20 74 6f 20 73 74 6f 70  c number to stop
0750: 20 61 6e 64 20 72 65 70 6f 72 74 20 61 74 2e 20   and report at. 
0760: 4f 72 20 2d 31 20 74 6f 20 72 65 61 64 20 0a 23  Or -1 to read .#
0770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c                al
0780: 6c 20 6f 66 20 24 6d 65 6d 66 69 6c 65 2e 0a 23  l of $memfile..#
0790: 0a 73 65 74 20 72 65 70 6f 72 74 5f 61 74 20 2d  .set report_at -
07a0: 31 0a 77 68 69 6c 65 20 7b 5b 6c 6c 65 6e 67 74  1.while {[llengt
07b0: 68 20 24 61 72 67 76 5d 3e 32 7d 20 7b 0a 20 20  h $argv]>2} {.  
07c0: 73 65 74 20 61 72 67 20 5b 73 68 69 66 74 20 61  set arg [shift a
07d0: 72 67 76 5d 0a 20 20 73 77 69 74 63 68 20 2d 2d  rgv].  switch --
07e0: 20 24 61 72 67 20 7b 0a 20 20 20 20 22 2d 72 22   $arg {.    "-r"
07f0: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72 65 70   {.      set rep
0800: 6f 72 74 5f 61 74 20 5b 73 68 69 66 74 20 61 72  ort_at [shift ar
0810: 67 76 5d 0a 20 20 20 20 7d 0a 20 20 20 20 64 65  gv].    }.    de
0820: 66 61 75 6c 74 20 7b 0a 20 20 20 20 20 20 75 73  fault {.      us
0830: 61 67 65 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  age.    }.  }.}.
0840: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72  if {[llength $ar
0850: 67 76 5d 21 3d 32 7d 20 75 73 61 67 65 0a 73 65  gv]!=2} usage.se
0860: 74 20 65 78 65 20 5b 6c 69 6e 64 65 78 20 24 61  t exe [lindex $a
0870: 72 67 76 20 30 5d 0a 73 65 74 20 6d 65 6d 66 69  rgv 0].set memfi
0880: 6c 65 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76  le [lindex $argv
0890: 20 31 5d 0a 0a 23 20 49 66 20 73 74 61 63 6b 20   1]..# If stack 
08a0: 74 72 61 63 65 73 20 61 72 65 20 65 6e 61 62 6c  traces are enabl
08b0: 65 64 2c 20 74 68 65 20 27 61 64 64 72 32 6c 69  ed, the 'addr2li
08c0: 6e 65 27 20 70 72 6f 67 72 61 6d 20 69 73 20 63  ne' program is c
08d0: 61 6c 6c 65 64 20 74 6f 0a 23 20 74 72 61 6e 73  alled to.# trans
08e0: 6c 61 74 65 20 61 20 62 69 6e 61 72 79 20 73 74  late a binary st
08f0: 61 63 6b 20 61 64 64 72 65 73 73 20 69 6e 74 6f  ack address into
0900: 20 61 20 68 75 6d 61 6e 2d 72 65 61 64 61 62 6c   a human-readabl
0910: 65 20 66 6f 72 6d 2e 0a 73 65 74 20 61 64 64 72  e form..set addr
0920: 32 6c 69 6e 65 20 61 64 64 72 32 6c 69 6e 65 0a  2line addr2line.
0930: 0a 23 20 57 68 65 6e 20 74 68 65 20 53 51 4c 49  .# When the SQLI
0940: 54 45 5f 4d 45 4d 44 45 42 55 47 20 69 73 20 73  TE_MEMDEBUG is s
0950: 65 74 20 61 73 20 64 65 73 63 72 69 62 65 64 20  et as described 
0960: 61 62 6f 76 65 2c 20 53 51 4c 69 74 65 20 70 72  above, SQLite pr
0970: 69 6e 74 73 0a 23 20 6f 75 74 20 61 20 6c 69 6e  ints.# out a lin
0980: 65 20 66 6f 72 20 65 61 63 68 20 6d 61 6c 6c 6f  e for each mallo
0990: 63 28 29 2c 20 72 65 61 6c 6c 6f 63 28 29 20 6f  c(), realloc() o
09a0: 72 20 66 72 65 65 28 29 20 63 61 6c 6c 20 74 68  r free() call th
09b0: 61 74 20 74 68 65 0a 23 20 6c 69 62 72 61 72 79  at the.# library
09c0: 20 6d 61 6b 65 73 2e 20 49 66 20 53 51 4c 49 54   makes. If SQLIT
09d0: 45 5f 4d 45 4d 44 45 42 55 47 20 69 73 20 33 2c  E_MEMDEBUG is 3,
09e0: 20 74 68 65 6e 20 61 20 73 74 61 63 6b 20 74 72   then a stack tr
09f0: 61 63 65 20 69 73 20 70 72 69 6e 74 65 64 0a 23  ace is printed.#
0a00: 20 6f 75 74 20 62 65 66 6f 72 65 20 65 61 63 68   out before each
0a10: 20 6d 61 6c 6c 6f 63 28 29 20 61 6e 64 20 72 65   malloc() and re
0a20: 61 6c 6c 6f 63 28 29 20 6c 69 6e 65 2e 0a 23 0a  alloc() line..#.
0a30: 23 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 70  # This program p
0a40: 61 72 73 65 73 20 65 61 63 68 20 6c 69 6e 65 20  arses each line 
0a50: 74 68 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61  the SQLite libra
0a60: 72 79 20 6f 75 74 70 75 74 73 20 61 6e 64 20 75  ry outputs and u
0a70: 70 64 61 74 65 73 0a 23 20 74 68 65 20 66 6f 6c  pdates.# the fol
0a80: 6c 6f 77 69 6e 67 20 67 6c 6f 62 61 6c 20 54 63  lowing global Tc
0a90: 6c 20 76 61 72 69 61 62 6c 65 73 20 74 6f 20 72  l variables to r
0aa0: 65 66 6c 65 63 74 20 74 68 65 20 22 63 75 72 72  eflect the "curr
0ab0: 65 6e 74 22 20 73 74 61 74 65 20 6f 66 0a 23 20  ent" state of.# 
0ac0: 74 68 65 20 68 65 61 70 20 75 73 65 64 20 62 79  the heap used by
0ad0: 20 53 51 4c 69 74 65 2e 0a 23 0a 73 65 74 20 6e   SQLite..#.set n
0ae0: 42 79 74 65 73 20 30 20 20 20 20 20 20 20 20 20  Bytes 0         
0af0: 20 20 20 20 20 20 3b 23 20 54 6f 74 61 6c 20 6e        ;# Total n
0b00: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 63  umber of bytes c
0b10: 75 72 72 65 6e 74 6c 79 20 61 6c 6c 6f 63 61 74  urrently allocat
0b20: 65 64 2e 0a 73 65 74 20 6e 4d 61 6c 6c 6f 63 20  ed..set nMalloc 
0b30: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b  0              ;
0b40: 23 20 54 6f 74 61 6c 20 6e 75 6d 62 65 72 20 6f  # Total number o
0b50: 66 20 6d 61 6c 6c 6f 63 28 29 2f 72 65 61 6c 6c  f malloc()/reall
0b60: 6f 63 28 29 20 63 61 6c 6c 73 2e 0a 73 65 74 20  oc() calls..set 
0b70: 6e 50 65 61 6b 20 30 20 20 20 20 20 20 20 20 20  nPeak 0         
0b80: 20 20 20 20 20 20 20 3b 23 20 50 65 61 6b 20 6f         ;# Peak o
0b90: 66 20 6e 42 79 74 65 73 2e 0a 73 65 74 20 69 50  f nBytes..set iP
0ba0: 65 61 6b 20 30 20 20 20 20 20 20 20 20 20 20 20  eak 0           
0bb0: 20 20 20 20 20 3b 23 20 6e 4d 61 6c 6c 6f 63 20       ;# nMalloc 
0bc0: 77 68 65 6e 20 6e 50 65 61 6b 20 77 61 73 20 73  when nPeak was s
0bd0: 65 74 2e 0a 23 0a 23 20 4d 6f 72 65 20 64 65 74  et..#.# More det
0be0: 61 69 6c 65 64 20 73 74 61 74 65 20 69 6e 66 6f  ailed state info
0bf0: 72 6d 61 74 69 6f 6e 20 69 73 20 73 74 6f 72 65  rmation is store
0c00: 64 20 69 6e 20 74 68 65 20 24 6d 65 6d 6d 61 70  d in the $memmap
0c10: 20 61 72 72 61 79 2e 20 0a 23 20 45 61 63 68 20   array. .# Each 
0c20: 6b 65 79 20 69 6e 20 74 68 65 20 6d 65 6d 6d 61  key in the memma
0c30: 70 20 61 72 72 61 79 20 69 73 20 74 68 65 20 61  p array is the a
0c40: 64 64 72 65 73 73 20 6f 66 20 61 20 63 68 75 6e  ddress of a chun
0c50: 6b 20 6f 66 20 6d 65 6d 6f 72 79 0a 23 20 63 75  k of memory.# cu
0c60: 72 72 65 6e 74 6c 79 20 61 6c 6c 6f 63 61 74 65  rrently allocate
0c70: 64 20 66 72 6f 6d 20 74 68 65 20 68 65 61 70 2e  d from the heap.
0c80: 20 54 68 65 20 76 61 6c 75 65 20 69 73 20 61 20   The value is a 
0c90: 6c 69 73 74 20 6f 66 20 74 68 65 20 0a 23 20 66  list of the .# f
0ca0: 6f 6c 6c 6f 77 69 6e 67 20 66 6f 72 6d 0a 23 20  ollowing form.# 
0cb0: 0a 23 20 20 20 20 20 7b 3c 6e 75 6d 62 65 72 2d  .#     {<number-
0cc0: 6f 66 2d 62 79 74 65 73 3e 20 3c 6d 61 6c 6c 6f  of-bytes> <mallo
0cd0: 63 20 69 64 3e 20 3c 73 74 61 63 6b 20 74 72 61  c id> <stack tra
0ce0: 63 65 3e 7d 0a 23 0a 61 72 72 61 79 20 75 6e 73  ce>}.#.array uns
0cf0: 65 74 20 6d 65 6d 6d 61 70 0a 0a 70 72 6f 63 20  et memmap..proc 
0d00: 70 72 6f 63 65 73 73 5f 69 6e 70 75 74 20 7b 69  process_input {i
0d10: 6e 70 75 74 5f 66 69 6c 65 20 61 72 72 61 79 5f  nput_file array_
0d20: 6e 61 6d 65 7d 20 7b 0a 20 20 75 70 76 61 72 20  name} {.  upvar 
0d30: 24 61 72 72 61 79 5f 6e 61 6d 65 20 6d 65 6d 20  $array_name mem 
0d40: 0a 20 20 73 65 74 20 69 6e 70 75 74 20 5b 6f 70  .  set input [op
0d50: 65 6e 20 24 69 6e 70 75 74 5f 66 69 6c 65 5d 0a  en $input_file].
0d60: 0a 20 20 73 65 74 20 4d 41 4c 4c 4f 43 20 7b 28  .  set MALLOC {(
0d70: 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b 29 20 6d 61  [[:digit:]]+) ma
0d80: 6c 6c 6f 63 20 28 5b 5b 3a 64 69 67 69 74 3a 5d  lloc ([[:digit:]
0d90: 5d 2b 29 20 62 79 74 65 73 20 61 74 20 30 78 28  ]+) bytes at 0x(
0da0: 5b 5b 3a 78 64 69 67 69 74 3a 5d 5d 2b 29 7d 0a  [[:xdigit:]]+)}.
0db0: 20 20 23 20 73 65 74 20 53 54 41 43 4b 20 7b 5e    # set STACK {^
0dc0: 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b 3a 20 53 54  [[:digit:]]+: ST
0dd0: 41 43 4b 3a 20 28 2e 2a 29 24 7d 0a 20 20 73 65  ACK: (.*)$}.  se
0de0: 74 20 53 54 41 43 4b 20 7b 5e 53 54 41 43 4b 3a  t STACK {^STACK:
0df0: 20 28 2e 2a 29 24 7d 0a 20 20 73 65 74 20 46 52   (.*)$}.  set FR
0e00: 45 45 20 7b 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b  EE {[[:digit:]]+
0e10: 20 66 72 65 65 20 28 5b 5b 3a 64 69 67 69 74 3a   free ([[:digit:
0e20: 5d 5d 2b 29 20 62 79 74 65 73 20 61 74 20 30 78  ]]+) bytes at 0x
0e30: 28 5b 5b 3a 78 64 69 67 69 74 3a 5d 5d 2b 29 7d  ([[:xdigit:]]+)}
0e40: 0a 20 20 73 65 74 20 52 45 41 4c 4c 4f 43 20 7b  .  set REALLOC {
0e50: 28 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b 29 20 72  ([[:digit:]]+) r
0e60: 65 61 6c 6c 6f 63 20 28 5b 5b 3a 64 69 67 69 74  ealloc ([[:digit
0e70: 3a 5d 5d 2b 29 20 74 6f 20 28 5b 5b 3a 64 69 67  :]]+) to ([[:dig
0e80: 69 74 3a 5d 5d 2b 29 7d 0a 20 20 61 70 70 65 6e  it:]]+)}.  appen
0e90: 64 20 52 45 41 4c 4c 4f 43 20 7b 20 62 79 74 65  d REALLOC { byte
0ea0: 73 20 61 74 20 30 78 28 5b 5b 3a 78 64 69 67 69  s at 0x([[:xdigi
0eb0: 74 3a 5d 5d 2b 29 20 74 6f 20 30 78 28 5b 5b 3a  t:]]+) to 0x([[:
0ec0: 78 64 69 67 69 74 3a 5d 5d 2b 29 7d 0a 0a 20 20  xdigit:]]+)}..  
0ed0: 73 65 74 20 73 74 61 63 6b 20 22 22 0a 20 20 77  set stack "".  w
0ee0: 68 69 6c 65 20 7b 20 21 5b 65 6f 66 20 24 69 6e  hile { ![eof $in
0ef0: 70 75 74 5d 20 7d 20 7b 0a 20 20 20 20 73 65 74  put] } {.    set
0f00: 20 6c 69 6e 65 20 5b 67 65 74 73 20 24 69 6e 70   line [gets $inp
0f10: 75 74 5d 0a 20 20 20 20 69 66 20 7b 5b 72 65 67  ut].    if {[reg
0f20: 65 78 70 20 24 53 54 41 43 4b 20 24 6c 69 6e 65  exp $STACK $line
0f30: 20 64 75 6d 6d 79 20 73 74 61 63 6b 5d 7d 20 7b   dummy stack]} {
0f40: 0a 20 20 20 20 20 20 23 20 44 6f 20 6e 6f 74 68  .      # Do noth
0f50: 69 6e 67 2e 20 54 68 65 20 76 61 72 69 61 62 6c  ing. The variabl
0f60: 65 20 24 73 74 61 63 6b 20 6e 6f 77 20 73 74 6f  e $stack now sto
0f70: 72 65 73 20 74 68 65 20 68 65 78 61 64 65 63 69  res the hexadeci
0f80: 6d 61 6c 20 73 74 61 63 6b 20 64 75 6d 70 0a 20  mal stack dump. 
0f90: 20 20 20 20 20 23 20 66 6f 72 20 74 68 65 20 6e       # for the n
0fa0: 65 78 74 20 6d 61 6c 6c 6f 63 28 29 20 6f 72 20  ext malloc() or 
0fb0: 72 65 61 6c 6c 6f 63 28 29 2e 0a 0a 20 20 20 20  realloc()...    
0fc0: 7d 20 65 6c 73 65 69 66 20 7b 20 5b 72 65 67 65  } elseif { [rege
0fd0: 78 70 20 24 4d 41 4c 4c 4f 43 20 24 6c 69 6e 65  xp $MALLOC $line
0fe0: 20 64 75 6d 6d 79 20 6d 61 6c 6c 6f 63 69 64 20   dummy mallocid 
0ff0: 62 79 74 65 73 20 61 64 64 72 5d 20 20 7d 20 7b  bytes addr]  } {
1000: 0a 20 20 20 20 20 20 23 20 49 66 20 74 68 69 73  .      # If this
1010: 20 69 73 20 61 20 27 6d 61 6c 6c 6f 63 27 20 6c   is a 'malloc' l
1020: 69 6e 65 2c 20 73 65 74 20 61 6e 20 65 6e 74 72  ine, set an entr
1030: 79 20 69 6e 20 74 68 65 20 6d 65 6d 20 61 72 72  y in the mem arr
1040: 61 79 2e 20 45 61 63 68 20 65 6e 74 72 79 0a 20  ay. Each entry. 
1050: 20 20 20 20 20 23 20 69 73 20 61 20 6c 69 73 74       # is a list
1060: 20 6f 66 20 6c 65 6e 67 74 68 20 74 68 72 65 65   of length three
1070: 2c 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20  , the number of 
1080: 62 79 74 65 73 20 61 6c 6c 6f 63 61 74 65 64 20  bytes allocated 
1090: 2c 20 74 68 65 20 6d 61 6c 6c 6f 63 0a 20 20 20  , the malloc.   
10a0: 20 20 20 23 20 6e 75 6d 62 65 72 20 61 6e 64 20     # number and 
10b0: 74 68 65 20 73 74 61 63 6b 20 64 75 6d 70 20 77  the stack dump w
10c0: 68 65 6e 20 69 74 20 77 61 73 20 61 6c 6c 6f 63  hen it was alloc
10d0: 61 74 65 64 2e 0a 20 20 20 20 20 20 73 65 74 20  ated..      set 
10e0: 6d 65 6d 28 24 61 64 64 72 29 20 5b 6c 69 73 74  mem($addr) [list
10f0: 20 24 62 79 74 65 73 20 22 6d 61 6c 6c 6f 63 20   $bytes "malloc 
1100: 24 6d 61 6c 6c 6f 63 69 64 22 20 24 73 74 61 63  $mallocid" $stac
1110: 6b 5d 0a 20 20 20 20 20 20 73 65 74 20 73 74 61  k].      set sta
1120: 63 6b 20 22 22 0a 0a 20 20 20 20 20 20 23 20 49  ck ""..      # I
1130: 6e 63 72 65 61 73 65 20 74 68 65 20 63 75 72 72  ncrease the curr
1140: 65 6e 74 20 68 65 61 70 20 75 73 61 67 65 0a 20  ent heap usage. 
1150: 20 20 20 20 20 69 6e 63 72 20 3a 3a 6e 42 79 74       incr ::nByt
1160: 65 73 20 24 62 79 74 65 73 0a 0a 20 20 20 20 20  es $bytes..     
1170: 20 23 20 49 6e 63 72 65 61 73 65 20 74 68 65 20   # Increase the 
1180: 6e 75 6d 62 65 72 20 6f 66 20 6d 61 6c 6c 6f 63  number of malloc
1190: 28 29 20 63 61 6c 6c 73 0a 20 20 20 20 20 20 69  () calls.      i
11a0: 6e 63 72 20 3a 3a 6e 4d 61 6c 6c 6f 63 0a 0a 20  ncr ::nMalloc.. 
11b0: 20 20 20 20 20 69 66 20 7b 24 3a 3a 6e 42 79 74       if {$::nByt
11c0: 65 73 20 3e 20 24 3a 3a 6e 50 65 61 6b 7d 20 7b  es > $::nPeak} {
11d0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 6e  .        set ::n
11e0: 50 65 61 6b 20 24 3a 3a 6e 42 79 74 65 73 0a 20  Peak $::nBytes. 
11f0: 20 20 20 20 20 20 20 73 65 74 20 3a 3a 69 50 65         set ::iPe
1200: 61 6b 20 24 3a 3a 6e 4d 61 6c 6c 6f 63 0a 20 20  ak $::nMalloc.  
1210: 20 20 20 20 7d 0a 0a 20 20 20 20 7d 20 65 6c 73      }..    } els
1220: 65 69 66 20 7b 20 5b 72 65 67 65 78 70 20 24 46  eif { [regexp $F
1230: 52 45 45 20 24 6c 69 6e 65 20 64 75 6d 6d 79 20  REE $line dummy 
1240: 62 79 74 65 73 20 61 64 64 72 5d 20 7d 20 7b 0a  bytes addr] } {.
1250: 20 20 20 20 20 20 23 20 49 66 20 74 68 69 73 20        # If this 
1260: 69 73 20 61 20 27 66 72 65 65 27 20 6c 69 6e 65  is a 'free' line
1270: 2c 20 72 65 6d 6f 76 65 20 74 68 65 20 65 6e 74  , remove the ent
1280: 72 79 20 66 72 6f 6d 20 74 68 65 20 6d 65 6d 20  ry from the mem 
1290: 61 72 72 61 79 2e 20 49 66 20 74 68 65 20 0a 20  array. If the . 
12a0: 20 20 20 20 20 23 20 65 6e 74 72 79 20 64 6f 65       # entry doe
12b0: 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 6f 72 20  s not exist, or 
12c0: 69 73 20 74 68 65 20 77 72 6f 6e 67 20 6e 75 6d  is the wrong num
12d0: 62 65 72 20 6f 66 20 62 79 74 65 73 2c 20 61 6e  ber of bytes, an
12e0: 6e 6f 75 6e 63 65 20 61 0a 20 20 20 20 20 20 23  nounce a.      #
12f0: 20 70 72 6f 62 6c 65 6d 2e 20 54 68 69 73 20 69   problem. This i
1300: 73 20 6d 6f 72 65 20 6c 69 6b 65 6c 79 20 61 20  s more likely a 
1310: 62 75 67 20 69 6e 20 74 68 65 20 72 65 67 75 6c  bug in the regul
1320: 61 72 20 65 78 70 72 65 73 73 69 6f 6e 73 20 66  ar expressions f
1330: 6f 72 0a 20 20 20 20 20 20 23 20 74 68 69 73 20  or.      # this 
1340: 73 63 72 69 70 74 20 74 68 61 6e 20 61 6e 20 53  script than an S
1350: 51 4c 69 74 65 20 64 65 66 65 63 74 2e 0a 20 20  QLite defect..  
1360: 20 20 20 20 69 66 20 7b 20 5b 6c 69 6e 64 65 78      if { [lindex
1370: 20 24 6d 65 6d 28 24 61 64 64 72 29 20 30 5d 20   $mem($addr) 0] 
1380: 21 3d 20 24 62 79 74 65 73 20 7d 20 7b 0a 20 20  != $bytes } {.  
1390: 20 20 20 20 20 20 65 72 72 6f 72 20 22 62 79 74        error "byt
13a0: 65 20 63 6f 75 6e 74 20 6d 69 73 6d 61 74 63 68  e count mismatch
13b0: 22 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ".      }.      
13c0: 75 6e 73 65 74 20 6d 65 6d 28 24 61 64 64 72 29  unset mem($addr)
13d0: 20 0a 0a 20 20 20 20 20 20 23 20 44 65 63 72 65   ..      # Decre
13e0: 61 73 65 20 74 68 65 20 63 75 72 72 65 6e 74 20  ase the current 
13f0: 68 65 61 70 20 75 73 61 67 65 0a 20 20 20 20 20  heap usage.     
1400: 20 69 6e 63 72 20 3a 3a 6e 42 79 74 65 73 20 5b   incr ::nBytes [
1410: 65 78 70 72 20 2d 31 20 2a 20 24 62 79 74 65 73  expr -1 * $bytes
1420: 5d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 69 66 20  ]..    } elseif 
1430: 7b 20 5b 72 65 67 65 78 70 20 24 52 45 41 4c 4c  { [regexp $REALL
1440: 4f 43 20 24 6c 69 6e 65 20 64 75 6d 6d 79 20 6d  OC $line dummy m
1450: 61 6c 6c 6f 63 69 64 20 6f 62 20 62 20 6f 61 20  allocid ob b oa 
1460: 61 5d 20 7d 20 7b 0a 20 20 20 20 20 20 23 20 22  a] } {.      # "
1470: 66 72 65 65 22 20 74 68 65 20 6f 6c 64 20 61 6c  free" the old al
1480: 6c 6f 63 61 74 69 6f 6e 20 69 6e 20 74 68 65 20  location in the 
1490: 69 6e 74 65 72 6e 61 6c 20 6d 6f 64 65 6c 3a 0a  internal model:.
14a0: 20 20 20 20 20 20 69 6e 63 72 20 3a 3a 6e 42 79        incr ::nBy
14b0: 74 65 73 20 5b 65 78 70 72 20 2d 31 20 2a 20 24  tes [expr -1 * $
14c0: 6f 62 5d 0a 20 20 20 20 20 20 75 6e 73 65 74 20  ob].      unset 
14d0: 6d 65 6d 28 24 6f 61 29 3b 0a 0a 20 20 20 20 20  mem($oa);..     
14e0: 20 23 20 22 6d 61 6c 6c 6f 63 22 20 74 68 65 20   # "malloc" the 
14f0: 6e 65 77 20 61 6c 6c 6f 63 61 74 69 6f 6e 0a 20  new allocation. 
1500: 20 20 20 20 20 73 65 74 20 6d 65 6d 28 24 61 29       set mem($a)
1510: 20 5b 6c 69 73 74 20 24 62 20 22 72 65 61 6c 6c   [list $b "reall
1520: 6f 63 20 24 6d 61 6c 6c 6f 63 69 64 22 20 24 73  oc $mallocid" $s
1530: 74 61 63 6b 5d 0a 20 20 20 20 20 20 69 6e 63 72  tack].      incr
1540: 20 3a 3a 6e 42 79 74 65 73 20 24 62 0a 20 20 20   ::nBytes $b.   
1550: 20 20 20 73 65 74 20 73 74 61 63 6b 20 22 22 0a     set stack "".
1560: 0a 20 20 20 20 20 20 23 20 49 6e 63 72 65 61 73  .      # Increas
1570: 65 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20  e the number of 
1580: 6d 61 6c 6c 6f 63 28 29 20 63 61 6c 6c 73 0a 20  malloc() calls. 
1590: 20 20 20 20 20 69 6e 63 72 20 3a 3a 6e 4d 61 6c       incr ::nMal
15a0: 6c 6f 63 0a 0a 20 20 20 20 20 20 69 66 20 7b 24  loc..      if {$
15b0: 3a 3a 6e 42 79 74 65 73 20 3e 20 24 3a 3a 6e 50  ::nBytes > $::nP
15c0: 65 61 6b 7d 20 7b 0a 20 20 20 20 20 20 20 20 73  eak} {.        s
15d0: 65 74 20 3a 3a 6e 50 65 61 6b 20 24 3a 3a 6e 42  et ::nPeak $::nB
15e0: 79 74 65 73 0a 20 20 20 20 20 20 20 20 73 65 74  ytes.        set
15f0: 20 3a 3a 69 50 65 61 6b 20 24 3a 3a 6e 4d 61 6c   ::iPeak $::nMal
1600: 6c 6f 63 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20  loc.      }..   
1610: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
1620: 23 20 70 75 74 73 20 22 52 45 4a 45 43 54 3a 20  # puts "REJECT: 
1630: 24 6c 69 6e 65 22 0a 20 20 20 20 7d 0a 0a 20 20  $line".    }..  
1640: 20 20 69 66 20 7b 24 3a 3a 6e 4d 61 6c 6c 6f 63    if {$::nMalloc
1650: 3d 3d 24 3a 3a 72 65 70 6f 72 74 5f 61 74 7d 20  ==$::report_at} 
1660: 72 65 70 6f 72 74 0a 20 20 7d 0a 0a 20 20 63 6c  report.  }..  cl
1670: 6f 73 65 20 24 69 6e 70 75 74 0a 7d 0a 0a 70 72  ose $input.}..pr
1680: 6f 63 20 70 72 69 6e 74 73 74 61 63 6b 20 7b 73  oc printstack {s
1690: 74 61 63 6b 7d 20 7b 0a 20 20 73 65 74 20 66 63  tack} {.  set fc
16a0: 6f 75 6e 74 20 31 30 0a 20 20 69 66 20 7b 5b 6c  ount 10.  if {[l
16b0: 6c 65 6e 67 74 68 20 24 73 74 61 63 6b 5d 3c 31  length $stack]<1
16c0: 30 7d 20 7b 0a 20 20 20 20 73 65 74 20 66 63 6f  0} {.    set fco
16d0: 75 6e 74 20 5b 6c 6c 65 6e 67 74 68 20 24 73 74  unt [llength $st
16e0: 61 63 6b 5d 0a 20 20 7d 0a 20 20 66 6f 72 65 61  ack].  }.  forea
16f0: 63 68 20 66 72 61 6d 65 20 5b 6c 72 61 6e 67 65  ch frame [lrange
1700: 20 24 73 74 61 63 6b 20 31 20 24 66 63 6f 75 6e   $stack 1 $fcoun
1710: 74 5d 20 7b 0a 20 20 20 20 66 6f 72 65 61 63 68  t] {.    foreach
1720: 20 7b 66 20 6c 7d 20 5b 73 70 6c 69 74 20 5b 65   {f l} [split [e
1730: 78 65 63 20 24 3a 3a 61 64 64 72 32 6c 69 6e 65  xec $::addr2line
1740: 20 2d 66 20 2d 2d 65 78 65 3d 24 3a 3a 65 78 65   -f --exe=$::exe
1750: 20 24 66 72 61 6d 65 5d 20 5c 6e 5d 20 7b 7d 0a   $frame] \n] {}.
1760: 20 20 20 20 70 75 74 73 20 5b 66 6f 72 6d 61 74      puts [format
1770: 20 22 25 2d 33 30 73 20 25 73 22 20 24 66 20 24   "%-30s %s" $f $
1780: 6c 5d 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 6c 6c  l].  }.  if {[ll
1790: 65 6e 67 74 68 20 24 73 74 61 63 6b 5d 3e 30 20  ength $stack]>0 
17a0: 7d 20 7b 70 75 74 73 20 22 22 7d 0a 7d 0a 0a 70  } {puts ""}.}..p
17b0: 72 6f 63 20 72 65 70 6f 72 74 20 7b 7d 20 7b 0a  roc report {} {.
17c0: 0a 20 20 66 6f 72 65 61 63 68 20 6b 65 79 20 5b  .  foreach key [
17d0: 61 72 72 61 79 20 6e 61 6d 65 73 20 3a 3a 6d 65  array names ::me
17e0: 6d 6d 61 70 5d 20 7b 0a 20 20 20 20 73 65 74 20  mmap] {.    set 
17f0: 73 74 61 63 6b 20 5b 6c 69 6e 64 65 78 20 24 3a  stack [lindex $:
1800: 3a 6d 65 6d 6d 61 70 28 24 6b 65 79 29 20 32 5d  :memmap($key) 2]
1810: 0a 20 20 20 20 73 65 74 20 62 79 74 65 73 20 5b  .    set bytes [
1820: 6c 69 6e 64 65 78 20 24 3a 3a 6d 65 6d 6d 61 70  lindex $::memmap
1830: 28 24 6b 65 79 29 20 30 5d 0a 20 20 20 20 6c 61  ($key) 0].    la
1840: 70 70 65 6e 64 20 73 75 6d 6d 61 72 79 6d 61 70  ppend summarymap
1850: 28 24 73 74 61 63 6b 29 20 24 62 79 74 65 73 0a  ($stack) $bytes.
1860: 20 20 7d 0a 0a 20 20 73 65 74 20 73 6f 72 74 65    }..  set sorte
1870: 64 20 5b 6c 69 73 74 5d 0a 20 20 66 6f 72 65 61  d [list].  forea
1880: 63 68 20 73 74 61 63 6b 20 5b 61 72 72 61 79 20  ch stack [array 
1890: 6e 61 6d 65 73 20 73 75 6d 6d 61 72 79 6d 61 70  names summarymap
18a0: 5d 20 7b 0a 20 20 20 20 73 65 74 20 61 6c 6c 6f  ] {.    set allo
18b0: 63 73 20 24 73 75 6d 6d 61 72 79 6d 61 70 28 24  cs $summarymap($
18c0: 73 74 61 63 6b 29 0a 20 20 20 20 73 65 74 20 73  stack).    set s
18d0: 75 6d 20 30 0a 20 20 20 20 66 6f 72 65 61 63 68  um 0.    foreach
18e0: 20 61 20 24 61 6c 6c 6f 63 73 20 7b 0a 20 20 20   a $allocs {.   
18f0: 20 20 20 69 6e 63 72 20 73 75 6d 20 24 61 0a 20     incr sum $a. 
1900: 20 20 20 7d 0a 20 20 20 20 6c 61 70 70 65 6e 64     }.    lappend
1910: 20 73 6f 72 74 65 64 20 5b 6c 69 73 74 20 24 73   sorted [list $s
1920: 75 6d 20 24 73 74 61 63 6b 5d 0a 20 20 7d 0a 0a  um $stack].  }..
1930: 20 20 73 65 74 20 73 6f 72 74 65 64 20 5b 6c 73    set sorted [ls
1940: 6f 72 74 20 2d 69 6e 74 65 67 65 72 20 2d 69 6e  ort -integer -in
1950: 64 65 78 20 30 20 24 73 6f 72 74 65 64 5d 0a 20  dex 0 $sorted]. 
1960: 20 66 6f 72 65 61 63 68 20 73 20 24 73 6f 72 74   foreach s $sort
1970: 65 64 20 7b 0a 20 20 20 20 73 65 74 20 73 75 6d  ed {.    set sum
1980: 20 5b 6c 69 6e 64 65 78 20 24 73 20 30 5d 0a 20   [lindex $s 0]. 
1990: 20 20 20 73 65 74 20 73 74 61 63 6b 20 5b 6c 69     set stack [li
19a0: 6e 64 65 78 20 24 73 20 31 5d 0a 20 20 20 20 73  ndex $s 1].    s
19b0: 65 74 20 61 6c 6c 6f 63 73 20 24 73 75 6d 6d 61  et allocs $summa
19c0: 72 79 6d 61 70 28 24 73 74 61 63 6b 29 0a 20 20  rymap($stack).  
19d0: 20 20 70 75 74 73 20 22 24 73 75 6d 20 62 79 74    puts "$sum byt
19e0: 65 73 20 69 6e 20 5b 6c 6c 65 6e 67 74 68 20 24  es in [llength $
19f0: 61 6c 6c 6f 63 73 5d 20 63 68 75 6e 6b 73 20 28  allocs] chunks (
1a00: 24 61 6c 6c 6f 63 73 29 22 0a 20 20 20 20 70 72  $allocs)".    pr
1a10: 69 6e 74 73 74 61 63 6b 20 24 73 74 61 63 6b 0a  intstack $stack.
1a20: 20 20 7d 0a 0a 20 20 23 20 50 72 69 6e 74 20 6f    }..  # Print o
1a30: 75 74 20 73 75 6d 6d 61 72 79 20 73 74 61 74 69  ut summary stati
1a40: 73 74 69 63 73 0a 20 20 70 75 74 73 20 22 54 6f  stics.  puts "To
1a50: 74 61 6c 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 20  tal allocations 
1a60: 20 20 20 20 20 20 20 20 20 20 20 3a 20 24 3a 3a             : $::
1a70: 6e 4d 61 6c 6c 6f 63 22 0a 20 20 70 75 74 73 20  nMalloc".  puts 
1a80: 22 54 6f 74 61 6c 20 6f 75 74 73 74 61 6e 64 69  "Total outstandi
1a90: 6e 67 20 61 6c 6c 6f 63 61 74 69 6f 6e 73 3a 20  ng allocations: 
1aa0: 5b 61 72 72 61 79 20 73 69 7a 65 20 3a 3a 6d 65  [array size ::me
1ab0: 6d 6d 61 70 5d 22 20 0a 20 20 70 75 74 73 20 22  mmap]" .  puts "
1ac0: 43 75 72 72 65 6e 74 20 68 65 61 70 20 75 73 61  Current heap usa
1ad0: 67 65 20 20 20 20 20 20 20 20 20 20 20 3a 20 24  ge           : $
1ae0: 3a 3a 6e 42 79 74 65 73 20 62 79 74 65 73 22 0a  ::nBytes bytes".
1af0: 20 20 70 75 74 73 20 22 50 65 61 6b 20 68 65 61    puts "Peak hea
1b00: 70 20 75 73 61 67 65 20 20 20 20 20 20 20 20 20  p usage         
1b10: 20 20 20 20 20 3a 20 24 3a 3a 6e 50 65 61 6b 20       : $::nPeak 
1b20: 62 79 74 65 73 20 28 6d 61 6c 6c 6f 63 20 23 24  bytes (malloc #$
1b30: 3a 3a 69 50 65 61 6b 29 22 0a 0a 20 20 65 78 69  ::iPeak)"..  exi
1b40: 74 0a 7d 0a 0a 70 72 6f 63 65 73 73 5f 69 6e 70  t.}..process_inp
1b50: 75 74 20 24 6d 65 6d 66 69 6c 65 20 6d 65 6d 6d  ut $memfile memm
1b60: 61 70 0a 72 65 70 6f 72 74 0a 0a 0a 0a           ap.report....