3 files changed, 22 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 344ad21acb..c59d0b6963 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+Wed Apr  2 20:57:15 2014  Koichi Sasada  <ko1@atdot.net>
+
+	* gc.c, gc.h (rb_objspace_each_objects_without_setup): 
+	  Add a new (hidden) C-API to iterate objspace snapshot.
+
+	  This API is not safe to call any C-APIs in a given callback
+	  function. Be careful to use this C-API. 
+
 Wed Apr  2 17:43:17 2014  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* configure.in (ac_cv_func___builtin_setjmp): gcc 4.9 disallows a
diff --git a/gc.c b/gc.c
index fb7008bacd..2e7f0b1e58 100644
--- a/gc.c
+++ b/gc.c
@@ -1788,6 +1788,16 @@ rb_objspace_each_objects(each_obj_callback *callback, void *data)
     }
 }
 
+void
+rb_objspace_each_objects_without_setup(each_obj_callback *callback, void *data)
+{
+    struct each_obj_args args;
+    args.callback = callback;
+    args.data = data;
+
+    objspace_each_objects((VALUE)&args);
+}
+
 struct os_each_struct {
     size_t num;
     VALUE of;
diff --git a/gc.h b/gc.h
index ae62b091af..d3bf71026c 100644
--- a/gc.h
+++ b/gc.h
@@ -97,6 +97,10 @@ void rb_objspace_each_objects(
     int (*callback)(void *start, void *end, size_t stride, void *data),
     void *data);
 
+void rb_objspace_each_objects_without_setup(
+    int (*callback)(void *, void *, size_t, void *),
+    void *data);
+
 RUBY_SYMBOL_EXPORT_END
 
 #endif /* RUBY_GC_H */