From 54ec1c4fe81672ca66f327ef6ae170f458cd79e5 Mon Sep 17 00:00:00 2001 From: shyouhei Date: Wed, 15 Aug 2007 20:57:30 +0000 Subject: sorry. I made wrong tags. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_5_54@13009 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ruby_1_8_5/lib/profiler.rb | 59 ---------------------------------------------- 1 file changed, 59 deletions(-) delete mode 100644 ruby_1_8_5/lib/profiler.rb (limited to 'ruby_1_8_5/lib/profiler.rb') diff --git a/ruby_1_8_5/lib/profiler.rb b/ruby_1_8_5/lib/profiler.rb deleted file mode 100644 index 9762fa1181..0000000000 --- a/ruby_1_8_5/lib/profiler.rb +++ /dev/null @@ -1,59 +0,0 @@ -module Profiler__ - # internal values - @@start = @@stack = @@map = nil - PROFILE_PROC = proc{|event, file, line, id, binding, klass| - case event - when "call", "c-call" - now = Process.times[0] - @@stack.push [now, 0.0] - when "return", "c-return" - now = Process.times[0] - key = [klass, id] - if tick = @@stack.pop - data = (@@map[key] ||= [0, 0.0, 0.0, key]) - data[0] += 1 - cost = now - tick[0] - data[1] += cost - data[2] += cost - tick[1] - @@stack[-1][1] += cost if @@stack[-1] - end - end - } -module_function - def start_profile - @@start = Process.times[0] - @@stack = [] - @@map = {} - set_trace_func PROFILE_PROC - end - def stop_profile - set_trace_func nil - end - def print_profile(f) - stop_profile - total = Process.times[0] - @@start - if total == 0 then total = 0.01 end - data = @@map.values - data.sort!{|a,b| b[2] <=> a[2]} - sum = 0 - f.printf " %% cumulative self self total\n" - f.printf " time seconds seconds calls ms/call ms/call name\n" - for d in data - sum += d[2] - f.printf "%6.2f %8.2f %8.2f %8d ", d[2]/total*100, sum, d[2], d[0] - f.printf "%8.2f %8.2f %s\n", d[2]*1000/d[0], d[1]*1000/d[0], get_name(*d[3]) - end - f.printf "%6.2f %8.2f %8.2f %8d ", 0.0, total, 0.0, 1 # ??? - f.printf "%8.2f %8.2f %s\n", 0.0, total*1000, "#toplevel" # ??? - end - def get_name(klass, id) - name = klass.to_s || "" - if klass.kind_of? Class - name += "#" - else - name += "." - end - name + id.id2name - end - private :get_name -end -- cgit v1.2.3