Implement mmtk_is_pinned

gc/mmtk/mmtk.c

@@ -1221,8 +1221,7 @@ rb_gc_impl_object_moved_p(void *objspace_ptr, VALUE obj)
 bool
 rb_gc_impl_pinned_p(void *objspace_ptr, VALUE obj)
 {
-    /* MMTk tracks pinning separately */
-    return false;
+    return mmtk_is_pinned((MMTk_ObjectReference)obj);
 }
 
 VALUE

gc/mmtk/mmtk.h

@@ -140,6 +140,8 @@ size_t mmtk_weak_references_count(void);
 
 void mmtk_register_pinning_obj(MMTk_ObjectReference obj);
 
+bool mmtk_is_pinned(MMTk_ObjectReference object);
+
 void mmtk_object_reference_write_post(MMTk_Mutator *mutator, MMTk_ObjectReference object);
 
 void mmtk_register_wb_unprotected_object(MMTk_ObjectReference object);

gc/mmtk/src/api.rs

@@ -414,6 +414,11 @@ pub extern "C" fn mmtk_register_pinning_obj(obj: ObjectReference) {
     crate::binding().pinning_registry.register(obj);
 }
 
+#[unsafe(no_mangle)]
+pub extern "C" fn mmtk_is_pinned(object: ObjectReference) -> bool {
+    memory_manager::is_pinned(object)
+}
+
 // =============== Write barriers ===============
 
 #[unsafe(no_mangle)]