Force interning of callsites used in dispatch prog

MoarVM · Jun 15, 2020 · 1f70bc2 · 1f70bc2
1 parent cbbf5a4
commit 1f70bc2
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/disp/program.c b/src/disp/program.c
@@ -857,6 +857,9 @@ static MVMuint32 add_program_constant_num(MVMThreadContext *tc, compile_state *c
 }
 static MVMuint32 add_program_constant_callsite(MVMThreadContext *tc, compile_state *cs,
         MVMCallsite *value) {
+    /* The callsite must be interned to be used in a dispatch program. */
+    if (!value->is_interned)
+        MVM_callsite_intern(tc, &value, 1, 0);
     MVMDispProgramConstant c = { .cs = value };
     MVM_VECTOR_PUSH(cs->constants, c);
     return MVM_VECTOR_ELEMS(cs->constants) - 1;