* gc.c, gc.h (rb_objspace_marked_object_p): added.

  This function *ONLY* works just after marking phase,
  before any sweeping.
  This function is highly depending current GC implementation
  and can be removed future version.



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

1 files changed, 11 insertions, 0 deletions

diff --git a/gc.c b/gc.c
index f24f707026..b3ee9b7c52 100644
--- a/gc.c
+++ b/gc.c
@@ -3597,6 +3597,17 @@ rb_gc_mark(VALUE ptr)
     gc_mark(&rb_objspace, ptr);
 }
 
+/* CAUTION: THIS FUNCTION ENABLE *ONLY BEFORE* SWEEPING.
+ * This function is only for GC_END_MARK timing.
+ */
+
+int
+rb_objspace_marked_object_p(VALUE obj)
+{
+    rb_objspace_t *objspace = &rb_objspace;
+    return gc_marked(objspace, obj) ? TRUE : FALSE;
+}
+
 /* resurrect non-marked `obj' if obj is before swept */
 
 void