Need to setup singleton_class chain; fix #3509

matz · matz · commit fa502b498ed4 · 2017-03-18T18:06:37.000+09:00
diff --git a/src/class.c b/src/class.c
@@ -97,6 +97,7 @@ prepare_singleton_class(mrb_state *mrb, struct RBasic *o)
   }
   else {
     sc->super = o->c;
+    prepare_singleton_class(mrb, (struct RBasic*)sc);
   }
   o->c = sc;
   mrb_field_write_barrier(mrb, (struct RBasic*)o, (struct RBasic*)sc);

Original file line number	Diff line number	Diff line change
`@@ -97,6 +97,7 @@ prepare_singleton_class(mrb_state mrb, struct RBasic o)`
`97`	`97`	`}`
`98`	`98`	`else {`
`99`	`99`	`sc->super = o->c;`
	`100`	`+ prepare_singleton_class(mrb, (struct RBasic*)sc);`
`100`	`101`	`}`
`101`	`102`	`o->c = sc;`
`102`	`103`	`mrb_field_write_barrier(mrb, (struct RBasic)o, (struct RBasic)sc);`