c1119d264a
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@9718 626c5289-ae23-0410-ae9c-e8d60b6d4f22
54 lines
1 KiB
Ruby
Executable file
54 lines
1 KiB
Ruby
Executable file
#!/usr/bin/env ruby
|
|
#
|
|
# Put script description here.
|
|
#
|
|
# Author::
|
|
# Copyright::
|
|
# License:: Ruby
|
|
#
|
|
|
|
#
|
|
# VERY nice function from Robert Klemme to check memory leaks
|
|
# and check on what GC has collected since last call.
|
|
#
|
|
if $VERBOSE
|
|
module GC
|
|
|
|
class << self
|
|
|
|
attr :last_stat
|
|
attr_accessor :track_class
|
|
|
|
alias :_start :start
|
|
|
|
def start
|
|
_start
|
|
stats
|
|
end
|
|
|
|
def stats
|
|
stats = Hash.new(0)
|
|
ObjectSpace.each_object {|o| stats[o.class] += 1}
|
|
|
|
if track_class
|
|
v = stats[track_class]
|
|
printf "\t%-30s %10d", track_class.to_s, v
|
|
if last_stat
|
|
printf " | delta %10d", (v - last_stat[track_class])
|
|
end
|
|
puts
|
|
else
|
|
stats.sort {|(k1,v1),(k2,v2)| v2 <=> v1}.each do |k,v|
|
|
printf "\t%-30s %10d", k, v
|
|
printf " | delta %10d", (v - last_stat[k]) if last_stat
|
|
puts
|
|
end
|
|
end
|
|
|
|
last_stat = stats
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
end
|