When configured with --enable-symbols=mem, Tcl includes a [memory] command that can be used to debug memory problems. The [memory trace] command dumps a record of all allocations and frees of memory.
When searching for a memory leak, that's a haystack of data to search for the needle of the leak. The following script pulls out the useful information:
proc ckalloc {addr size file line} {
variable store
variable i
if {[llength [array names store *,$addr,$size]]} {
puts stderr "Double alloc!: $addr $size $file $line"
}
set store([incr i],$addr,$size) "$file $line"
}
proc ckfree {addr size file line} {
variable store
array unset store *,$addr,$size
}
set i 0
source [lindex $argv 0]
foreach name [array names store] {
foreach {i addr size} [split $name ,] {break}
lappend out [list $i "LEAK: $addr $size $store($name)"]
}
puts [join [lsort -index 0 -integer $out] \n]