More debug object_id

Author: byroot

gc.c

@@ -1912,10 +1912,16 @@ object_id_to_ref(void *objspace_ptr, VALUE object_id)
 static inline void
 obj_free_object_id(VALUE obj)
 {
+    if (FL_TEST_RAW(obj, RUBY_FL_UNUSED9)) {
+        rb_bug("already freed that object_id %s", rb_obj_info(obj));
+    }
+    else {
+        FL_SET_RAW(obj, RUBY_FL_UNUSED9);
+    }
+
     if (RB_UNLIKELY(id_to_obj_tbl)) {
         if (rb_shape_obj_has_id(obj)) {
             VALUE obj_id = rb_obj_id(obj);
-            fprintf(stderr, "obj_free_object_id id=%s obj=%s\n", rb_obj_info(obj_id), rb_obj_info(obj));
             st_data_t id = (st_data_t)obj_id;
             GC_ASSERT(id);
 
@@ -1934,6 +1940,7 @@ rb_gc_obj_free_vm_weak_references(VALUE obj)
     if (FL_TEST(obj, FL_EXIVAR)) {
         rb_free_generic_ivar((VALUE)obj);
         FL_UNSET(obj, FL_EXIVAR);
+        // obj_free_object_id(obj);
     }
 
     switch (BUILTIN_TYPE(obj)) {
@@ -5283,6 +5290,7 @@ rb_gc_after_fork(rb_pid_t pid)
 void
 Init_GC(void)
 {
+    id_to_obj_tbl = st_init_table(&object_id_hash_type);
 #undef rb_intern
     rb_gc_register_address(&id_to_obj_value);