Fix cdhash induced crash in `iseq_data_to_ary`HEADmaster

Followup: https://github.com/ruby/ruby/pull/17016

`cdhash` is no longer a RHash, also its values are no
longer boxed.

2 files changed, 4 insertions, 4 deletions

diff --git a/compile.c b/compile.c
index b2a2cb606f..009b83105d 100644
--- a/compile.c
+++ b/compile.c
@@ -12204,7 +12204,7 @@ iseq_build_from_ary_body(rb_iseq_t *iseq, LINK_ANCHOR *const anchor,
                                 VALUE sym = RARRAY_AREF(op, i+1);
                                 LABEL *label =
                                   register_label(iseq, labels_table, sym);
-                                rb_hash_aset(map, key, (VALUE)label | 1);
+                                cdhash_aset(map, key, (VALUE)label);
                             }
                             RB_GC_GUARD(op);
                             RB_OBJ_SET_SHAREABLE(map); // allow mutation while compiling
diff --git a/iseq.c b/iseq.c
index e7fa5d4103..b90fcb4334 100644
--- a/iseq.c
+++ b/iseq.c
@@ -3340,7 +3340,7 @@ static int
 cdhash_each(VALUE key, VALUE value, VALUE ary)
 {
     rb_ary_push(ary, obj_resurrect(key));
-    rb_ary_push(ary, value);
+    rb_ary_push(ary, INT2FIX(value));
     return ST_CONTINUE;
 }
 
@@ -3581,11 +3581,11 @@ iseq_data_to_ary(const rb_iseq_t *iseq)
                 break;
               case TS_CDHASH:
                 {
-                    VALUE hash = *seq;
+                    VALUE cdhash = *seq;
                     VALUE val = rb_ary_new();
                     int i;
 
-                    rb_hash_foreach(hash, cdhash_each, val);
+                    st_foreach(rb_imemo_cdhash_tbl(cdhash), cdhash_each, val);
 
                     for (i=0; i<RARRAY_LEN(val); i+=2) {
                         VALUE pos = FIX2INT(rb_ary_entry(val, i+1));