Skip to content

Commit

Permalink
Remove Unused p6reprname Ext-Op For MoarVM
Browse files Browse the repository at this point in the history
it has been turned into a desugar in the compiler
a few months ago already, just not deleted from
this file yet.
  • Loading branch information
timo committed Jan 7, 2019
1 parent 8ae4310 commit 7229c67
Showing 1 changed file with 0 additions and 21 deletions.
21 changes: 0 additions & 21 deletions src/vm/moar/ops/perl6_ops.c
Expand Up @@ -81,26 +81,6 @@ static void discover_create(MVMThreadContext *tc, MVMSpeshGraph *g, MVMSpeshIns
tfacts->type = type;
}

static MVMuint8 s_p6reprname[] = {
MVM_operand_obj | MVM_operand_write_reg,
MVM_operand_obj | MVM_operand_read_reg,
};
static void p6reprname(MVMThreadContext *tc, MVMuint8 *cur_op) {
MVMObject *obj = GET_REG(tc, 2).o;
MVMROOT(tc, obj, {
MVMObject *name = MVM_repr_alloc_init(tc, tc->instance->boot_types.BOOTStr);
MVMROOT(tc, name, {
MVMString *str = MVM_string_utf8_decode(tc, tc->instance->VMString,
obj->st->REPR->name, strlen(obj->st->REPR->name));
MVM_repr_set_str(tc, name, str);
GET_REG(tc, 0).o = name;
});
});
}
static void p6reprname_discover(MVMThreadContext *tc, MVMSpeshGraph *g, MVMSpeshIns *ins) {
discover_create(tc, g, ins, tc->instance->boot_types.BOOTStr);
}

static MVMuint8 s_p6capturelex[] = {
MVM_operand_obj | MVM_operand_write_reg,
MVM_operand_obj | MVM_operand_read_reg,
Expand Down Expand Up @@ -462,7 +442,6 @@ static void p6invokeunder(MVMThreadContext *tc, MVMuint8 *cur_op) {
/* Registers the extops with MoarVM. */
MVM_DLL_EXPORT void Rakudo_ops_init(MVMThreadContext *tc) {
MVM_ext_register_extop(tc, "p6init", p6init, 0, NULL, NULL, NULL, 0);
MVM_ext_register_extop(tc, "p6reprname", p6reprname, 2, s_p6reprname, NULL, p6reprname_discover, MVM_EXTOP_PURE | MVM_EXTOP_ALLOCATING);
MVM_ext_register_extop(tc, "p6capturelex", p6capturelex, 2, s_p6capturelex, NULL, NULL, 0);
MVM_ext_register_extop(tc, "p6capturelexwhere", p6capturelexwhere, 2, s_p6capturelexwhere, NULL, NULL, 0);
MVM_ext_register_extop(tc, "p6getouterctx", p6getouterctx, 2, s_p6getouterctx, NULL, NULL, MVM_EXTOP_PURE | MVM_EXTOP_ALLOCATING);
Expand Down

0 comments on commit 7229c67

Please sign in to comment.