* gc.c (gc_profile_total_time): add GC::Profiler.total_time.

* NEWS: ditto.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@26814 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

3 files changed, 33 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index a06d354ea4..4096f5023e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Mon Mar  4 13:14:34 2010  wanabe  <s.wanabe@gmail.com>
+
+	* gc.c (gc_profile_total_time): add GC::Profiler.total_time.
+
+	* NEWS: ditto.
+
 Thu Mar  4 10:15:10 2010  NARUSE, Yui  <naruse@ruby-lang.org>
 
 	* complex.c (m_log, m_exp): remove unused functions.
diff --git a/NEWS b/NEWS
index 14d9fda382..b53816f851 100644
--- a/NEWS
+++ b/NEWS
@@ -69,6 +69,10 @@ with all sufficient information, see the ChangeLog file.
       * File.realpath
       * File.realdirpath
 
+  * GC::Profiler
+    * new method:
+      * GC::Profiler.total_time
+
   * IO
     * new method:
       * IO#fdatasync
diff --git a/gc.c b/gc.c
index fb2994066a..768337d84f 100644
--- a/gc.c
+++ b/gc.c
@@ -3129,6 +3129,28 @@ gc_profile_report(int argc, VALUE *argv, VALUE self)
 }
 
 /*
+ *  call-seq:
+ *     GC::Profiler.total_time -> float
+ *
+ *  return total time that GC used. (msec)
+ */
+
+static VALUE
+gc_profile_total_time(VALUE self)
+{
+    double time = 0;
+    rb_objspace_t *objspace = &rb_objspace;
+    size_t i;
+
+    if (objspace->profile.run && objspace->profile.count) {
+	for (i = 0; i < objspace->profile.count; i++) {
+	    time += objspace->profile.record[i].gc_time;
+	}
+    }
+    return DBL2NUM(time);
+}
+
+/*
  *  The <code>GC</code> module provides an interface to Ruby's mark and
  *  sweep garbage collection mechanism. Some of the underlying methods
  *  are also available via the <code>ObjectSpace</code> module.
@@ -3156,6 +3178,7 @@ Init_GC(void)
     rb_define_singleton_method(rb_mProfiler, "clear", gc_profile_clear, 0);
     rb_define_singleton_method(rb_mProfiler, "result", gc_profile_result, 0);
     rb_define_singleton_method(rb_mProfiler, "report", gc_profile_report, -1);
+    rb_define_singleton_method(rb_mProfiler, "total_time", gc_profile_total_time, 0);
 
     rb_mObSpace = rb_define_module("ObjectSpace");
     rb_define_module_function(rb_mObSpace, "each_object", os_each_obj, -1);