Artifact 124db2afe9bc2adab4e0ec405998d5df657e82f7:

File tools/cvs2fossil/lib/mem.tcl part of check-in [8287044ecd] - Created a memory tracking subsystem to investigate memory consumption of the system in general, and pass InitCsets in particular. getmemory series is a postprocessor pulling the data out of the log and into a tables gnuplot is able to handle. by aku on 2008-02-16 06:43:54.

0000: 23 23 20 2d 2a 2d 20 74 63 6c 20 2d 2a 2d 0a 23  ## -*- tcl -*-.#
0010: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20   # ## ### ##### 
0020: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23  ######## #######
0030: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23  ###### #########
0040: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20  ############.## 
0050: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30  Copyright (c) 20
0060: 30 38 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69  08 Andreas Kupri
0070: 65 73 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66  es..#.# This sof
0080: 74 77 61 72 65 20 69 73 20 6c 69 63 65 6e 73 65  tware is license
0090: 64 20 61 73 20 64 65 73 63 72 69 62 65 64 20 69  d as described i
00a0: 6e 20 74 68 65 20 66 69 6c 65 20 4c 49 43 45 4e  n the file LICEN
00b0: 53 45 2c 20 77 68 69 63 68 0a 23 20 79 6f 75 20  SE, which.# you 
00c0: 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65  should have rece
00d0: 69 76 65 64 20 61 73 20 70 61 72 74 20 6f 66 20  ived as part of 
00e0: 74 68 69 73 20 64 69 73 74 72 69 62 75 74 69 6f  this distributio
00f0: 6e 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66 74  n..#.# This soft
0100: 77 61 72 65 20 63 6f 6e 73 69 73 74 73 20 6f 66  ware consists of
0110: 20 76 6f 6c 75 6e 74 61 72 79 20 63 6f 6e 74 72   voluntary contr
0120: 69 62 75 74 69 6f 6e 73 20 6d 61 64 65 20 62 79  ibutions made by
0130: 20 6d 61 6e 79 0a 23 20 69 6e 64 69 76 69 64 75   many.# individu
0140: 61 6c 73 2e 20 20 46 6f 72 20 65 78 61 63 74 20  als.  For exact 
0150: 63 6f 6e 74 72 69 62 75 74 69 6f 6e 20 68 69 73  contribution his
0160: 74 6f 72 79 2c 20 73 65 65 20 74 68 65 20 72 65  tory, see the re
0170: 76 69 73 69 6f 6e 0a 23 20 68 69 73 74 6f 72 79  vision.# history
0180: 20 61 6e 64 20 6c 6f 67 73 2c 20 61 76 61 69 6c   and logs, avail
0190: 61 62 6c 65 20 61 74 20 68 74 74 70 3a 2f 2f 66  able at http://f
01a0: 6f 73 73 69 6c 2d 73 63 6d 2e 68 77 61 63 69 2e  ossil-scm.hwaci.
01b0: 63 6f 6d 2f 66 6f 73 73 69 6c 0a 23 20 23 20 23  com/fossil.# # #
01c0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23  # ### ##### ####
01d0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23  #### ###########
01e0: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23  ## #############
01f0: 23 23 23 23 23 23 23 23 0a 0a 23 23 20 55 74 69  ########..## Uti
0200: 6c 69 74 69 65 73 20 66 6f 72 20 6d 65 6d 6f 72  lities for memor
0210: 79 20 74 72 61 63 6b 69 6e 67 0a 0a 23 20 23 20  y tracking..# # 
0220: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23  ## ### ##### ###
0230: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23  ##### ##########
0240: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23  ### ############
0250: 23 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 71  #########.## Req
0260: 75 69 72 65 6d 65 6e 74 73 0a 0a 70 61 63 6b 61  uirements..packa
0270: 67 65 20 72 65 71 75 69 72 65 20 54 63 6c 20 38  ge require Tcl 8
0280: 2e 34 20 20 20 20 20 20 3b 20 23 20 52 65 71 75  .4      ; # Requ
0290: 69 72 65 64 20 72 75 6e 74 69 6d 65 0a 70 61 63  ired runtime.pac
02a0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 73 74 72  kage require str
02b0: 75 63 74 3a 3a 6c 69 73 74 20 3b 20 23 20 4c 69  uct::list ; # Li
02c0: 73 74 20 61 73 73 69 67 6e 6d 65 6e 74 0a 0a 23  st assignment..#
02d0: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20   # ## ### ##### 
02e0: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23  ######## #######
02f0: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23  ###### #########
0300: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 0a  ############.##.
0310: 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20  .namespace eval 
0320: 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 65 6d  ::vc::tools::mem
0330: 20 7b 0a 20 20 20 20 23 20 23 20 23 23 20 23 23   {.    # # ## ##
0340: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23  # ##### ########
0350: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20   #############. 
0360: 20 20 20 23 23 20 50 75 62 6c 69 63 20 41 50 49     ## Public API
0370: 2c 20 4d 65 74 68 6f 64 73 0a 0a 20 20 20 20 69  , Methods..    i
0380: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 5b 69 6e 66  f {[llength [inf
0390: 6f 20 63 6f 6d 6d 61 6e 64 73 20 6d 65 6d 6f 72  o commands memor
03a0: 79 5d 5d 7d 20 7b 0a 09 70 72 6f 63 20 6d 69 6e  y]]} {..proc min
03b0: 66 6f 20 7b 7d 20 7b 0a 09 20 20 20 20 23 20 6d  fo {} {..    # m
03c0: 65 6d 6f 72 79 20 69 6e 66 6f 20 72 65 64 75 63  emory info reduc
03d0: 65 64 20 74 6f 20 74 68 65 20 73 65 74 20 6f 66  ed to the set of
03e0: 20 72 65 6c 65 76 61 6e 74 20 6e 75 6d 62 65 72   relevant number
03f0: 73 20 69 6e 20 74 68 65 20 6f 75 74 70 75 74 0a  s in the output.
0400: 09 20 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73  .    struct::lis
0410: 74 20 61 73 73 69 67 6e 20 5b 73 70 6c 69 74 20  t assign [split 
0420: 5b 6d 65 6d 6f 72 79 20 69 6e 66 6f 5d 20 5c 6e  [memory info] \n
0430: 5d 20 74 6d 20 74 66 20 63 70 61 20 63 62 61 20  ] tm tf cpa cba 
0440: 6d 70 61 20 6d 62 61 0a 09 20 20 20 20 73 74 72  mpa mba..    str
0450: 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e  uct::list assign
0460: 20 24 74 6d 20 20 5f 20 5f 20 20 20 74 6d 0a 09   $tm  _ _   tm..
0470: 20 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 74      struct::list
0480: 20 61 73 73 69 67 6e 20 24 74 66 20 20 5f 20 5f   assign $tf  _ _
0490: 20 20 20 74 66 0a 09 20 20 20 20 73 74 72 75 63     tf..    struc
04a0: 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 24  t::list assign $
04b0: 63 70 61 20 5f 20 5f 20 5f 20 63 70 61 0a 09 20  cpa _ _ _ cpa.. 
04c0: 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 20     struct::list 
04d0: 61 73 73 69 67 6e 20 24 63 62 61 20 5f 20 5f 20  assign $cba _ _ 
04e0: 5f 20 63 62 61 0a 09 20 20 20 20 73 74 72 75 63  _ cba..    struc
04f0: 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 24  t::list assign $
0500: 6d 70 61 20 5f 20 5f 20 5f 20 6d 70 61 0a 09 20  mpa _ _ _ mpa.. 
0510: 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 20     struct::list 
0520: 61 73 73 69 67 6e 20 24 6d 62 61 20 5f 20 5f 20  assign $mba _ _ 
0530: 5f 20 6d 62 61 0a 09 20 20 20 20 72 65 74 75 72  _ mba..    retur
0540: 6e 20 5b 6c 69 73 74 20 24 74 6d 20 24 74 66 20  n [list $tm $tf 
0550: 24 63 70 61 20 24 63 62 61 20 24 6d 70 61 20 24  $cpa $cba $mpa $
0560: 6d 62 61 5d 0a 09 7d 0a 20 20 20 20 7d 20 65 6c  mba]..}.    } el
0570: 73 65 20 7b 0a 09 70 72 6f 63 20 6d 69 6e 66 6f  se {..proc minfo
0580: 20 7b 7d 20 7b 72 65 74 75 72 6e 20 7b 30 20 30   {} {return {0 0
0590: 20 30 20 30 20 30 20 30 7d 7d 0a 20 20 20 20 7d   0 0 0 0}}.    }
05a0: 0a 0a 20 20 20 20 70 72 6f 63 20 6d 6c 6f 67 20  ..    proc mlog 
05b0: 7b 7d 20 7b 0a 09 76 61 72 69 61 62 6c 65 20 74  {} {..variable t
05c0: 72 61 63 6b 20 3b 20 69 66 20 7b 21 24 74 72 61  rack ; if {!$tra
05d0: 63 6b 7d 20 7b 20 72 65 74 75 72 6e 20 7b 7d 20  ck} { return {} 
05e0: 7d 0a 0a 09 76 61 72 69 61 62 6c 65 20 6c 63 62  }...variable lcb
05f0: 61 0a 09 76 61 72 69 61 62 6c 65 20 6c 6d 62 61  a..variable lmba
0600: 0a 09 76 61 72 69 61 62 6c 65 20 6d 69 64 0a 0a  ..variable mid..
0610: 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73  .struct::list as
0620: 73 69 67 6e 20 5b 6d 69 6e 66 6f 5d 20 5f 20 5f  sign [minfo] _ _
0630: 20 5f 20 63 62 61 20 5f 20 6d 62 61 0a 0a 09 73   _ cba _ mba...s
0640: 65 74 20 64 63 20 5b 65 78 70 72 20 24 63 62 61  et dc [expr $cba
0650: 20 2d 20 24 6c 63 62 61 5d 20 3b 20 73 65 74 20   - $lcba] ; set 
0660: 6c 63 62 61 20 24 63 62 61 09 0a 09 73 65 74 20  lcba $cba...set 
0670: 64 6d 20 5b 65 78 70 72 20 24 6d 62 61 20 2d 20  dm [expr $mba - 
0680: 24 6c 6d 62 61 5d 20 3b 20 73 65 74 20 6c 6d 62  $lmba] ; set lmb
0690: 61 20 24 6d 62 61 09 0a 0a 09 23 20 70 72 6f 6a  a $mba....# proj
06a0: 65 63 74 69 6f 6e 3a 20 31 20 20 20 20 20 20 20  ection: 1       
06b0: 20 20 20 32 20 33 20 20 20 20 20 20 20 20 20 20     2 3          
06c0: 34 20 35 20 20 20 20 20 20 20 20 20 36 20 37 20  4 5         6 7 
06d0: 20 20 20 20 20 20 20 20 20 36 20 38 20 20 20 20           6 8    
06e0: 20 20 20 20 20 31 30 0a 09 72 65 74 75 72 6e 20       10..return 
06f0: 22 5b 46 20 5b 69 6e 63 72 20 6d 69 64 5d 5d 20  "[F [incr mid]] 
0700: 7c 20 5b 46 20 24 63 62 61 5d 20 7c 20 5b 46 20  | [F $cba] | [F 
0710: 24 64 63 5d 20 7c 20 5b 46 20 24 6d 62 61 5d 20  $dc] | [F $mba] 
0720: 7c 20 5b 46 20 24 64 6d 5d 20 7c 3d 7c 20 22 0a  | [F $dm] |=| ".
0730: 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20      }..    proc 
0740: 6d 61 72 6b 20 7b 7d 20 7b 0a 09 76 61 72 69 61  mark {} {..varia
0750: 62 6c 65 20 74 72 61 63 6b 20 3b 20 69 66 20 7b  ble track ; if {
0760: 21 24 74 72 61 63 6b 7d 20 72 65 74 75 72 6e 0a  !$track} return.
0770: 09 76 61 72 69 61 62 6c 65 20 6d 69 64 0a 09 76  .variable mid..v
0780: 61 72 69 61 62 6c 65 20 6c 63 62 61 0a 09 76 61  ariable lcba..va
0790: 72 69 61 62 6c 65 20 6c 6d 61 72 6b 0a 09 73 65  riable lmark..se
07a0: 74 20 64 6d 20 5b 65 78 70 72 20 7b 24 6c 63 62  t dm [expr {$lcb
07b0: 61 20 2d 20 24 6c 6d 61 72 6b 7d 5d 0a 09 70 75  a - $lmark}]..pu
07c0: 74 73 20 20 22 5b 46 20 24 6d 69 64 5d 20 7c 20  ts  "[F $mid] | 
07d0: 5b 46 20 24 6c 63 62 61 5d 20 7c 20 5b 46 20 24  [F $lcba] | [F $
07e0: 64 6d 5d 20 7c 20 5b 58 20 25 5d 20 7c 20 5b 58  dm] | [X %] | [X
07f0: 20 25 5d 20 7c 40 7c 20 5b 58 20 25 5d 22 0a 09   %] |@| [X %]"..
0800: 73 65 74 20 6c 6d 61 72 6b 20 24 6c 63 62 61 0a  set lmark $lcba.
0810: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20  .return.    }.. 
0820: 20 20 20 70 72 6f 63 20 46 20 7b 6e 7d 20 7b 20     proc F {n} { 
0830: 66 6f 72 6d 61 74 20 25 31 30 64 20 24 6e 20 7d  format %10d $n }
0840: 0a 20 20 20 20 70 72 6f 63 20 58 20 7b 63 7d 20  .    proc X {c} 
0850: 7b 20 73 74 72 69 6e 67 20 72 65 70 65 61 74 20  { string repeat 
0860: 24 63 20 31 30 20 7d 0a 0a 20 20 20 20 70 72 6f  $c 10 }..    pro
0870: 63 20 6d 6c 69 6d 69 74 20 7b 7d 20 7b 0a 09 76  c mlimit {} {..v
0880: 61 72 69 61 62 6c 65 20 74 72 61 63 6b 20 3b 20  ariable track ; 
0890: 69 66 20 7b 21 24 74 72 61 63 6b 7d 20 72 65 74  if {!$track} ret
08a0: 75 72 6e 20 3b 20 23 20 4e 6f 20 63 68 65 63 6b  urn ; # No check
08b0: 73 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f  s if there is no
08c0: 20 6d 65 6d 6f 72 79 20 74 72 61 63 6b 69 6e 67   memory tracking
08d0: 0a 09 76 61 72 69 61 62 6c 65 20 6c 69 6d 69 74  ..variable limit
08e0: 20 3b 20 69 66 20 7b 21 24 6c 69 6d 69 74 7d 20   ; if {!$limit} 
08f0: 72 65 74 75 72 6e 20 3b 20 23 20 4e 6f 20 63 68  return ; # No ch
0900: 65 63 6b 73 20 69 66 20 74 68 65 72 65 20 69 73  ecks if there is
0910: 20 6e 6f 20 6d 65 6d 6f 72 79 20 6c 69 6d 69 74   no memory limit
0920: 20 73 65 74 0a 0a 09 73 74 72 75 63 74 3a 3a 6c   set...struct::l
0930: 69 73 74 20 61 73 73 69 67 6e 20 5b 6d 69 6e 66  ist assign [minf
0940: 6f 5d 20 5f 20 5f 20 5f 20 63 62 61 20 5f 20 5f  o] _ _ _ cba _ _
0950: 0a 0a 09 23 20 4e 6f 74 68 69 6e 67 20 74 6f 20  ...# Nothing to 
0960: 64 6f 20 69 66 20 77 65 20 61 72 65 20 73 74 69  do if we are sti
0970: 6c 6c 20 75 6e 64 65 72 20 74 68 65 20 6c 69 6d  ll under the lim
0980: 69 74 0a 09 69 66 20 7b 24 63 62 61 20 3c 3d 20  it..if {$cba <= 
0990: 24 6c 69 6d 69 74 7d 20 72 65 74 75 72 6e 0a 0a  $limit} return..
09a0: 09 23 20 4e 6f 74 69 66 79 20 75 73 65 72 20 61  .# Notify user a
09b0: 6e 64 20 6b 69 6c 6c 20 74 68 65 20 69 6d 70 6f  nd kill the impo
09c0: 72 74 65 72 0a 09 70 75 74 73 20 22 22 0a 09 70  rter..puts ""..p
09d0: 75 74 73 20 22 5c 74 4d 65 6d 6f 72 79 20 6c 69  uts "\tMemory li
09e0: 6d 69 74 20 62 72 65 61 63 68 65 64 3a 20 24 63  mit breached: $c
09f0: 62 61 20 3e 20 24 6c 69 6d 69 74 22 0a 09 70 75  ba > $limit"..pu
0a00: 74 73 20 22 22 0a 09 65 78 69 74 20 31 0a 20 20  ts ""..exit 1.  
0a10: 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 73 65    }..    proc se
0a20: 74 6c 69 6d 69 74 20 7b 74 68 65 6c 69 6d 69 74  tlimit {thelimit
0a30: 7d 20 7b 0a 09 23 20 41 63 74 69 76 61 74 65 20  } {..# Activate 
0a40: 6d 65 6d 6f 72 79 20 74 72 61 63 6b 69 6e 67 2c  memory tracking,
0a50: 20 61 6e 64 20 73 65 74 20 74 68 65 20 6c 69 6d   and set the lim
0a60: 69 74 2e 20 54 68 65 20 73 70 65 63 69 66 69 65  it. The specifie
0a70: 64 0a 09 23 20 6c 69 6d 69 74 20 69 73 20 74 61  d..# limit is ta
0a80: 6b 65 6e 20 72 65 6c 61 74 69 76 65 20 74 6f 20  ken relative to 
0a90: 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 6d 65  the amount of me
0aa0: 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 65 64 20 61  mory allocated a
0ab0: 74 0a 09 23 20 74 68 65 20 74 69 6d 65 20 6f 66  t..# the time of
0ac0: 20 74 68 65 20 63 61 6c 6c 2e 0a 0a 09 76 61 72   the call....var
0ad0: 69 61 62 6c 65 20 6c 69 6d 69 74 0a 09 73 74 72  iable limit..str
0ae0: 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e  uct::list assign
0af0: 20 5b 6d 69 6e 66 6f 5d 20 5f 20 5f 20 5f 20 63   [minfo] _ _ _ c
0b00: 62 61 20 5f 20 5f 0a 09 73 65 74 20 6c 69 6d 69  ba _ _..set limi
0b10: 74 20 5b 65 78 70 72 20 24 63 62 61 20 2b 20 24  t [expr $cba + $
0b20: 74 68 65 6c 69 6d 69 74 5d 0a 0a 09 74 72 61 63  thelimit]...trac
0b30: 6b 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a  k..return.    }.
0b40: 0a 20 20 20 20 70 72 6f 63 20 6e 6f 74 72 61 63  .    proc notrac
0b50: 6b 20 7b 7d 20 7b 0a 09 76 61 72 69 61 62 6c 65  k {} {..variable
0b60: 20 74 72 61 63 6b 20 30 0a 09 72 65 74 75 72 6e   track 0..return
0b70: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63  .    }..    proc
0b80: 20 74 72 61 63 6b 20 7b 7d 20 7b 0a 09 76 61 72   track {} {..var
0b90: 69 61 62 6c 65 20 74 72 61 63 6b 20 31 0a 09 72  iable track 1..r
0ba0: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20  eturn.    }..   
0bb0: 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23   # # ## ### ####
0bc0: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23  # ######## #####
0bd0: 23 23 23 23 23 23 23 23 0a 0a 20 20 20 20 76 61  ########..    va
0be0: 72 69 61 62 6c 65 20 74 72 61 63 6b 20 30 20 3b  riable track 0 ;
0bf0: 20 23 20 42 6f 6f 6c 65 61 6e 20 66 6c 61 67 2e   # Boolean flag.
0c00: 20 49 66 20 73 65 74 20 74 68 69 73 20 6d 6f 64   If set this mod
0c10: 75 6c 65 20 77 69 6c 6c 20 74 72 61 63 6b 0a 09  ule will track..
0c20: 09 20 20 20 20 20 20 20 23 20 6d 65 6d 6f 72 79  .       # memory
0c30: 2c 20 69 6e 73 65 72 74 69 6e 67 20 74 68 65 20  , inserting the 
0c40: 72 65 6c 65 76 61 6e 74 20 69 6e 66 6f 72 6d 61  relevant informa
0c50: 74 69 6f 6e 0a 09 09 20 20 20 20 20 20 20 23 20  tion...       # 
0c60: 77 68 65 6e 65 76 65 72 20 74 68 65 20 61 70 70  whenever the app
0c70: 6c 69 63 61 74 69 6f 6e 20 6c 6f 67 73 20 73 6f  lication logs so
0c80: 6d 65 74 68 69 6e 67 2e 0a 20 20 20 20 76 61 72  mething..    var
0c90: 69 61 62 6c 65 20 6c 69 6d 69 74 20 30 20 3b 20  iable limit 0 ; 
0ca0: 23 20 54 68 65 20 6d 61 78 69 6d 75 6d 20 61 6d  # The maximum am
0cb0: 6f 75 6e 74 20 6f 66 20 6d 65 6d 6f 72 79 20 61  ount of memory a
0cc0: 6c 6c 6f 77 65 64 20 74 6f 20 74 68 65 0a 09 09  llowed to the...
0cd0: 20 20 20 20 20 20 20 23 20 61 70 70 6c 69 63 61         # applica
0ce0: 74 69 6f 6e 2e 20 54 68 69 73 20 6d 6f 64 75 6c  tion. This modul
0cf0: 65 20 77 69 6c 6c 20 61 62 6f 72 74 20 77 68 65  e will abort whe
0d00: 6e 0a 09 09 20 20 20 20 20 20 20 23 20 27 63 75  n...       # 'cu
0d10: 72 72 65 6e 74 20 62 79 74 65 73 20 61 6c 6c 6f  rrent bytes allo
0d20: 63 61 74 65 64 27 20 67 6f 65 73 20 6f 76 65 72  cated' goes over
0d30: 20 74 68 69 73 0a 09 09 20 20 20 20 20 20 20 23   this...       #
0d40: 20 76 61 6c 75 65 2e 0a 0a 20 20 20 20 76 61 72   value...    var
0d50: 69 61 62 6c 65 20 6c 63 62 61 20 30 20 3b 20 23  iable lcba 0 ; #
0d60: 20 4c 61 73 74 20 27 63 75 72 72 65 6e 74 20 62   Last 'current b
0d70: 79 74 65 73 20 61 6c 6c 6f 63 61 74 65 64 27 20  ytes allocated' 
0d80: 28 63 62 61 29 0a 20 20 20 20 76 61 72 69 61 62  (cba).    variab
0d90: 6c 65 20 6c 6d 62 61 20 30 20 3b 20 23 20 4c 61  le lmba 0 ; # La
0da0: 73 74 20 27 6d 61 78 69 6d 75 6d 20 62 79 74 65  st 'maximum byte
0db0: 73 20 61 6c 6c 6f 63 61 74 65 64 27 20 28 6d 62  s allocated' (mb
0dc0: 61 29 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20  a).    variable 
0dd0: 6d 69 64 20 20 30 20 3b 20 23 20 4d 65 6d 6f 72  mid  0 ; # Memor
0de0: 79 20 69 64 2c 20 61 62 73 74 72 61 63 74 20 74  y id, abstract t
0df0: 69 6d 65 0a 20 20 20 20 76 61 72 69 61 62 6c 65  ime.    variable
0e00: 20 6c 6d 61 72 6b 20 30 20 3b 20 23 0a 0a 20 20   lmark 0 ; #..  
0e10: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23    # # ## ### ###
0e20: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23  ## ######## ####
0e30: 23 23 23 23 23 23 23 23 23 0a 7d 0a 0a 6e 61 6d  #########.}..nam
0e40: 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 63  espace eval ::vc
0e50: 3a 3a 74 6f 6f 6c 73 3a 3a 6d 65 6d 20 7b 0a 20  ::tools::mem {. 
0e60: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70     namespace exp
0e70: 6f 72 74 20 6d 69 6e 66 6f 20 6d 6c 6f 67 20 74  ort minfo mlog t
0e80: 72 61 63 6b 20 6e 6f 74 72 61 63 6b 20 6d 6c 69  rack notrack mli
0e90: 6d 69 74 20 73 65 74 6c 69 6d 69 74 20 6d 61 72  mit setlimit mar
0ea0: 6b 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d  k.}..# ---------
0eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ef0: 2d 2d 2d 2d 0a 23 20 52 65 61 64 79 0a 0a 70 61  ----.# Ready..pa
0f00: 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63  ckage provide vc
0f10: 3a 3a 74 6f 6f 6c 73 3a 3a 6d 65 6d 20 31 2e 30  ::tools::mem 1.0
0f20: 0a 72 65 74 75 72 6e 0a                          .return.