trace: id_to_obj_tbl

Author: byroot

gc.c

@@ -1873,7 +1873,14 @@ build_id_to_obj_i(VALUE obj, void *data)
 {
     st_table *id_to_obj_tbl = (st_table *)data;
     if (rb_shape_obj_has_id(obj)) {
-        st_insert(id_to_obj_tbl, rb_obj_id(obj), obj);
+        VALUE id = rb_obj_id(obj);
+        if (FIXNUM_P(id)) {
+            fprintf(stderr, "build_id_to_obj_i insert id=%llu, obj=%"PRIxVALUE"\n", NUM2ULL(id), obj);
+        }
+        else {
+            rb_bug("Invalid object_id %s", rb_obj_info(id));
+        }
+        st_insert(id_to_obj_tbl, id, obj);
     }
 }
 
@@ -1917,7 +1924,10 @@ obj_free_object_id(VALUE obj)
         if (rb_shape_obj_has_id(obj)) {
             VALUE obj_id = rb_obj_id(obj);
             if (!FIXNUM_P(obj_id)) {
-                rb_bug("Corrupted object_id=%s obj=%s, shape_id=%d", rb_obj_info(obj_id), rb_obj_info(obj), shape_id);
+                rb_bug("Corrupted object_id=%s obj=%s / %"PRIxVALUE", shape_id=%d", rb_obj_info(obj_id), rb_obj_info(obj), obj, shape_id);
+            }
+            else {
+                fprintf(stderr, "obj_free_object_id delete id=%llu, obj=%"PRIxVALUE"\n", NUM2ULL(id), obj);
             }
             st_data_t id = (st_data_t)obj_id;
             GC_ASSERT(id);
@@ -3701,6 +3711,7 @@ vm_weak_table_id_to_obj_foreach(st_data_t key, st_data_t value, st_data_t data)
         if (value != new_value) {
             DURING_GC_COULD_MALLOC_REGION_START();
             {
+                fprintf(stderr, "vm_weak_table_id_to_obj_foreach insert id=%llu, obj=%"PRIxVALUE"\n", NUM2ULL((VALUE)key), new_value);
                 st_insert(id_to_obj_tbl, key, (st_data_t)new_value);
             }
             DURING_GC_COULD_MALLOC_REGION_END();
@@ -5298,7 +5309,7 @@ rb_gc_after_fork(rb_pid_t pid)
 void
 Init_GC(void)
 {
-    id_to_obj_tbl = st_init_table(&object_id_hash_type);
+    id_to_obj_tbl = st_init_table(&object_id_hash_type); // DEBUG: make bug more likely to trigger. 
 #undef rb_intern
     rb_gc_register_address(&id_to_obj_value);