1 files changed, 15 insertions, 0 deletions
diff --git a/tool/vtlh.rb b/tool/vtlh.rb
new file mode 100644
index 0000000000..fcd3630821
--- /dev/null
+++ b/tool/vtlh.rb
@@ -0,0 +1,15 @@
+# ARGF = open('ha')
+cd = `pwd`.chomp + '/'
+ARGF.each{|line|
+  if /^0x([a-z0-9]+),/ =~ line
+    stat = line.split(',')
+    addr = stat[0].hex + 0x00400000
+    retired = stat[2].to_i
+    ticks   = stat[3].to_i
+
+    src = `addr2line -e miniruby.exe #{addr.to_s(16)}`.chomp
+    src.sub!(cd, '')
+    puts '%-40s 0x%08x %8d %8d' % [src, addr, retired, ticks]
+  end
+}
+