[svn:parrot] r44802 - branches/ops_pct/src/ops
bacek at svn.parrot.org
bacek at svn.parrot.org
Tue Mar 9 11:27:42 UTC 2010
Author: bacek
Date: Tue Mar 9 11:27:40 2010
New Revision: 44802
URL: https://trac.parrot.org/parrot/changeset/44802
Log:
Regenerate ops without #line directives to simplify comparision with opsc
Modified:
branches/ops_pct/src/ops/core_ops.c
Modified: branches/ops_pct/src/ops/core_ops.c
==============================================================================
--- branches/ops_pct/src/ops/core_ops.c Tue Mar 9 11:27:07 2010 (r44801)
+++ branches/ops_pct/src/ops/core_ops.c Tue Mar 9 11:27:40 2010 (r44802)
@@ -17011,21 +17011,18 @@
opcode_t *
Parrot_end (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 55 "src/ops/core.ops"
return (opcode_t *)0;
}
opcode_t *
Parrot_noop (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 99 "src/ops/core.ops"
return (opcode_t *)cur_opcode + 1;}
opcode_t *
Parrot_cpu_ret (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 102 "src/ops/core.ops"
/* We only want to call __asm__("ret") if we're in the JIT core. Otherwise
we want to throw an error. Seriously people: Do not use this opcode
directly in PIR. Ever. It absolutely makes no sense and it doesn't do
@@ -17049,7 +17046,6 @@
opcode_t *
Parrot_check_events (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 122 "src/ops/core.ops"
opcode_t *next = cur_opcode + 1;
Parrot_cx_check_tasks(interp, interp->scheduler);
return (opcode_t *)next; /* force this being a branch op */
@@ -17058,7 +17054,6 @@
opcode_t *
Parrot_check_events__ (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 128 "src/ops/core.ops"
opcode_t *_this = CUR_OPCODE;
/* Restore op_func_table. */
disable_event_checking(interp);
@@ -17069,7 +17064,6 @@
opcode_t *
Parrot_wrapper__ (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 136 "src/ops/core.ops"
opcode_t *pc = CUR_OPCODE;
DO_OP(pc, interp);
return (opcode_t *)pc;
@@ -17078,7 +17072,6 @@
opcode_t *
Parrot_load_bytecode_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 142 "src/ops/core.ops"
Parrot_load_bytecode(interp, SREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -17086,7 +17079,6 @@
opcode_t *
Parrot_load_bytecode_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 142 "src/ops/core.ops"
Parrot_load_bytecode(interp, CONST(1)->u.string);
return (opcode_t *)cur_opcode + 2;}
@@ -17094,7 +17086,6 @@
opcode_t *
Parrot_load_language_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 153 "src/ops/core.ops"
Parrot_load_language(interp, SREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -17102,7 +17093,6 @@
opcode_t *
Parrot_load_language_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 153 "src/ops/core.ops"
Parrot_load_language(interp, CONST(1)->u.string);
return (opcode_t *)cur_opcode + 2;}
@@ -17110,21 +17100,18 @@
opcode_t *
Parrot_branch_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 179 "src/ops/core.ops"
return (opcode_t *)cur_opcode + IREG(1);
}
opcode_t *
Parrot_branch_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 179 "src/ops/core.ops"
return (opcode_t *)cur_opcode + cur_opcode[1];
}
opcode_t *
Parrot_local_branch_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/core.ops"
INTVAL return_addr;
opcode_t *dest = cur_opcode + 3;
@@ -17144,7 +17131,6 @@
opcode_t *
Parrot_local_branch_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/core.ops"
INTVAL return_addr;
opcode_t *dest = cur_opcode + 3;
@@ -17164,7 +17150,6 @@
opcode_t *
Parrot_local_return_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 216 "src/ops/core.ops"
INTVAL return_addr;
opcode_t *next;
opcode_t *dest = cur_opcode + 2;
@@ -17194,7 +17179,6 @@
opcode_t *
Parrot_jump_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 251 "src/ops/core.ops"
opcode_t * const loc = INTVAL2PTR(opcode_t *, IREG(1));
return (opcode_t *)loc;
}
@@ -17202,7 +17186,6 @@
opcode_t *
Parrot_jump_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 251 "src/ops/core.ops"
opcode_t * const loc = INTVAL2PTR(opcode_t *, cur_opcode[1]);
return (opcode_t *)loc;
}
@@ -17210,7 +17193,6 @@
opcode_t *
Parrot_enternative (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 264 "src/ops/core.ops"
opcode_t * const addr = run_native(interp, CUR_OPCODE,
interp->code->base.data);
return (opcode_t *)addr;
@@ -17219,7 +17201,6 @@
opcode_t *
Parrot_if_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 299 "src/ops/core.ops"
if (IREG(1) != 0)
return (opcode_t *)cur_opcode + cur_opcode[2];
@@ -17228,7 +17209,6 @@
opcode_t *
Parrot_if_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 304 "src/ops/core.ops"
if (!FLOAT_IS_ZERO(NREG(1)))
return (opcode_t *)cur_opcode + cur_opcode[2];
@@ -17237,7 +17217,6 @@
opcode_t *
Parrot_if_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 309 "src/ops/core.ops"
if (Parrot_str_boolean(interp, SREG(1)))
return (opcode_t *)cur_opcode + cur_opcode[2];
@@ -17246,7 +17225,6 @@
opcode_t *
Parrot_if_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 314 "src/ops/core.ops"
if (VTABLE_get_bool(interp, PREG(1)))
return (opcode_t *)cur_opcode + cur_opcode[2];
@@ -17255,7 +17233,6 @@
opcode_t *
Parrot_unless_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 333 "src/ops/core.ops"
if (IREG(1) == 0)
return (opcode_t *)cur_opcode + cur_opcode[2];
@@ -17264,7 +17241,6 @@
opcode_t *
Parrot_unless_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 338 "src/ops/core.ops"
if (FLOAT_IS_ZERO(NREG(1)))
return (opcode_t *)cur_opcode + cur_opcode[2];
@@ -17273,7 +17249,6 @@
opcode_t *
Parrot_unless_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 343 "src/ops/core.ops"
if (!Parrot_str_boolean(interp, SREG(1)))
return (opcode_t *)cur_opcode + cur_opcode[2];
@@ -17282,7 +17257,6 @@
opcode_t *
Parrot_unless_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 348 "src/ops/core.ops"
if (!VTABLE_get_bool(interp, PREG(1)))
return (opcode_t *)cur_opcode + cur_opcode[2];
@@ -17291,7 +17265,6 @@
opcode_t *
Parrot_invokecc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 403 "src/ops/core.ops"
PMC * const p = PREG(1);
opcode_t *dest = cur_opcode + 2;
@@ -17305,7 +17278,6 @@
opcode_t *
Parrot_invoke_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 414 "src/ops/core.ops"
opcode_t *dest = cur_opcode + 3;
PMC * const p = PREG(1);
@@ -17319,7 +17291,6 @@
opcode_t *
Parrot_yield (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 425 "src/ops/core.ops"
opcode_t *dest = cur_opcode + 1;
PMC * const p = Parrot_pcc_get_sub(interp, CURRENT_CONTEXT(interp));
@@ -17332,7 +17303,6 @@
opcode_t *
Parrot_tailcall_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 435 "src/ops/core.ops"
PMC * const p = PREG(1);
opcode_t *dest = cur_opcode + 2;
PMC * const ctx = CURRENT_CONTEXT(interp);
@@ -17351,7 +17321,6 @@
opcode_t *
Parrot_returncc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 451 "src/ops/core.ops"
PMC * const p = Parrot_pcc_get_continuation(interp, CURRENT_CONTEXT(interp));
opcode_t * const dest = VTABLE_invoke(interp, p, cur_opcode + 1);
return (opcode_t *)dest;
@@ -17360,7 +17329,6 @@
opcode_t *
Parrot_capture_lex_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 457 "src/ops/core.ops"
Parrot_capture_lex(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -17368,7 +17336,6 @@
opcode_t *
Parrot_newclosure_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 461 "src/ops/core.ops"
PREG(1) = parrot_new_closure(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -17376,7 +17343,6 @@
opcode_t *
Parrot_set_args_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 499 "src/ops/core.ops"
opcode_t * const raw_args = CUR_OPCODE;
PMC * const signature = CONST(1)->u.key;
PMC * call_sig;
@@ -17393,7 +17359,6 @@
opcode_t *
Parrot_get_results_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 513 "src/ops/core.ops"
opcode_t * const raw_returns = CUR_OPCODE;
PMC * const signature = CONST(1)->u.key;
PMC * call_sig;
@@ -17411,7 +17376,6 @@
opcode_t *
Parrot_get_params_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 528 "src/ops/core.ops"
opcode_t * const raw_params = CUR_OPCODE;
PMC *caller_ctx, *ctx;
PMC *ccont, *call_object;
@@ -17439,7 +17403,6 @@
opcode_t *
Parrot_set_returns_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 553 "src/ops/core.ops"
opcode_t * const raw_returns = CUR_OPCODE;
PMC *signature = CONST(1)->u.key;
PMC *ctx = CURRENT_CONTEXT(interp);
@@ -17457,7 +17420,6 @@
opcode_t *
Parrot_result_info_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 577 "src/ops/core.ops"
PMC *caller_ctx = Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
PMC *call_object = Parrot_pcc_get_signature(interp, caller_ctx);
PMC *sig = VTABLE_get_attr_str(interp, call_object,
@@ -17474,7 +17436,6 @@
opcode_t *
Parrot_set_addr_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 618 "src/ops/core.ops"
IREG(1) = PTR2INTVAL(CUR_OPCODE + cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -17482,7 +17443,6 @@
opcode_t *
Parrot_set_addr_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 622 "src/ops/core.ops"
VTABLE_set_pointer(interp, PREG(1), (CUR_OPCODE + cur_opcode[2]));
return (opcode_t *)cur_opcode + 3;}
@@ -17490,7 +17450,6 @@
opcode_t *
Parrot_set_addr_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 626 "src/ops/core.ops"
VTABLE_set_pointer(interp, PREG(1), (void*)IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -17498,7 +17457,6 @@
opcode_t *
Parrot_get_addr_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 630 "src/ops/core.ops"
void *ptr = VTABLE_get_pointer(interp, PREG(2));
IREG(1) = (INTVAL)ptr;
@@ -17507,7 +17465,6 @@
opcode_t *
Parrot_schedule_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 652 "src/ops/core.ops"
Parrot_cx_schedule_task(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -17515,7 +17472,6 @@
opcode_t *
Parrot_addhandler_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 663 "src/ops/core.ops"
Parrot_cx_add_handler(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -17523,7 +17479,6 @@
opcode_t *
Parrot_push_eh_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 740 "src/ops/core.ops"
PMC * const eh = Parrot_pmc_new(interp, enum_class_ExceptionHandler);
VTABLE_set_pointer(interp, eh, CUR_OPCODE + cur_opcode[1]);
Parrot_cx_add_handler_local(interp, eh);
@@ -17533,7 +17488,6 @@
opcode_t *
Parrot_push_eh_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 746 "src/ops/core.ops"
Parrot_cx_add_handler_local(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -17541,7 +17495,6 @@
opcode_t *
Parrot_pop_eh (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 750 "src/ops/core.ops"
Parrot_cx_delete_handler_local(interp,
Parrot_str_new(interp, "exception", 9));
@@ -17550,7 +17503,6 @@
opcode_t *
Parrot_throw_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 755 "src/ops/core.ops"
PMC * except = PREG(1);
opcode_t *dest;
opcode_t *const ret = cur_opcode + 2;
@@ -17568,7 +17520,6 @@
opcode_t *
Parrot_throw_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 770 "src/ops/core.ops"
opcode_t * dest;
PMC * except = PREG(1);
if (PMC_IS_NULL(except) || except->vtable->base_type != enum_class_Exception)
@@ -17583,7 +17534,6 @@
opcode_t *
Parrot_rethrow_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 782 "src/ops/core.ops"
opcode_t * dest;
if (PMC_IS_NULL(PREG(1)) || PREG(1)->vtable->base_type != enum_class_Exception) {
opcode_t * const ret = cur_opcode + 2;
@@ -17600,7 +17550,6 @@
opcode_t *
Parrot_count_eh_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 796 "src/ops/core.ops"
IREG(1) = Parrot_cx_count_handlers_local(interp,
Parrot_str_new(interp, "exception", 9));
@@ -17609,7 +17558,6 @@
opcode_t *
Parrot_die_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 801 "src/ops/core.ops"
opcode_t *dest;
opcode_t * const ret = cur_opcode + 2;
PMC *resume = new_ret_continuation_pmc(interp, ret);
@@ -17625,7 +17573,6 @@
opcode_t *
Parrot_die_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 801 "src/ops/core.ops"
opcode_t *dest;
opcode_t * const ret = cur_opcode + 2;
PMC *resume = new_ret_continuation_pmc(interp, ret);
@@ -17641,7 +17588,6 @@
opcode_t *
Parrot_die_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 814 "src/ops/core.ops"
opcode_t *dest;
opcode_t * const ret = cur_opcode + 2;
PMC *resume = new_ret_continuation_pmc(interp, ret);
@@ -17659,7 +17605,6 @@
opcode_t *
Parrot_die_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 814 "src/ops/core.ops"
opcode_t *dest;
opcode_t * const ret = cur_opcode + 2;
PMC *resume = new_ret_continuation_pmc(interp, ret);
@@ -17677,7 +17622,6 @@
opcode_t *
Parrot_die_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 829 "src/ops/core.ops"
if (IREG(1) == EXCEPT_doomed)
_exit(IREG(2));
else {
@@ -17693,7 +17637,6 @@
opcode_t *
Parrot_die_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 829 "src/ops/core.ops"
if (cur_opcode[1] == EXCEPT_doomed)
_exit(IREG(2));
else {
@@ -17709,7 +17652,6 @@
opcode_t *
Parrot_die_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 829 "src/ops/core.ops"
if (IREG(1) == EXCEPT_doomed)
_exit(cur_opcode[2]);
else {
@@ -17725,7 +17667,6 @@
opcode_t *
Parrot_die_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 829 "src/ops/core.ops"
if (cur_opcode[1] == EXCEPT_doomed)
_exit(cur_opcode[2]);
else {
@@ -17741,7 +17682,6 @@
opcode_t *
Parrot_exit_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 842 "src/ops/core.ops"
opcode_t *dest;
opcode_t * const ret = cur_opcode + 2;
PMC *resume = new_ret_continuation_pmc(interp, ret);
@@ -17758,7 +17698,6 @@
opcode_t *
Parrot_exit_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 842 "src/ops/core.ops"
opcode_t *dest;
opcode_t * const ret = cur_opcode + 2;
PMC *resume = new_ret_continuation_pmc(interp, ret);
@@ -17775,7 +17714,6 @@
opcode_t *
Parrot_pushmark_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 856 "src/ops/core.ops"
PMC * const newint = Parrot_pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, newint, IREG(1));
VTABLE_push_pmc(interp, interp->dynamic_env, newint);
@@ -17785,7 +17723,6 @@
opcode_t *
Parrot_pushmark_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 856 "src/ops/core.ops"
PMC * const newint = Parrot_pmc_new(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, newint, cur_opcode[1]);
VTABLE_push_pmc(interp, interp->dynamic_env, newint);
@@ -17795,7 +17732,6 @@
opcode_t *
Parrot_popmark_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 862 "src/ops/core.ops"
opcode_t * dest;
opcode_t * const ret = cur_opcode + 2;
int found = 0;
@@ -17819,7 +17755,6 @@
opcode_t *
Parrot_popmark_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 862 "src/ops/core.ops"
opcode_t * dest;
opcode_t * const ret = cur_opcode + 2;
int found = 0;
@@ -17843,7 +17778,6 @@
opcode_t *
Parrot_pushaction_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 882 "src/ops/core.ops"
VTABLE_push_pmc(interp, interp->dynamic_env, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -17851,7 +17785,6 @@
opcode_t *
Parrot_debug_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 909 "src/ops/core.ops"
if (IREG(1) != 0) { Interp_debug_SET(interp, IREG(1)); }
else { Interp_debug_CLEAR(interp, PARROT_ALL_DEBUG_FLAGS); }
interp->resume_offset = REL_PC + 2; interp->resume_flag = 1; return (opcode_t *)0;
@@ -17860,7 +17793,6 @@
opcode_t *
Parrot_debug_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 909 "src/ops/core.ops"
if (cur_opcode[1] != 0) { Interp_debug_SET(interp, cur_opcode[1]); }
else { Interp_debug_CLEAR(interp, PARROT_ALL_DEBUG_FLAGS); }
interp->resume_offset = REL_PC + 2; interp->resume_flag = 1; return (opcode_t *)0;
@@ -17869,7 +17801,6 @@
opcode_t *
Parrot_bounds_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 924 "src/ops/core.ops"
if (IREG(1) != 0) { Parrot_set_flag(interp, PARROT_BOUNDS_FLAG); }
else { Interp_flags_CLEAR(interp, PARROT_BOUNDS_FLAG); }
interp->resume_offset = REL_PC + 2; interp->resume_flag = 1; return (opcode_t *)0;
@@ -17878,7 +17809,6 @@
opcode_t *
Parrot_bounds_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 924 "src/ops/core.ops"
if (cur_opcode[1] != 0) { Parrot_set_flag(interp, PARROT_BOUNDS_FLAG); }
else { Interp_flags_CLEAR(interp, PARROT_BOUNDS_FLAG); }
interp->resume_offset = REL_PC + 2; interp->resume_flag = 1; return (opcode_t *)0;
@@ -17887,7 +17817,6 @@
opcode_t *
Parrot_profile_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 939 "src/ops/core.ops"
if (IREG(1) != 0) { Parrot_set_flag(interp, PARROT_PROFILE_FLAG); }
else { Interp_flags_CLEAR(interp, PARROT_PROFILE_FLAG); }
interp->resume_offset = REL_PC + 2; interp->resume_flag = 1; return (opcode_t *)0;
@@ -17896,7 +17825,6 @@
opcode_t *
Parrot_profile_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 939 "src/ops/core.ops"
if (cur_opcode[1] != 0) { Parrot_set_flag(interp, PARROT_PROFILE_FLAG); }
else { Interp_flags_CLEAR(interp, PARROT_PROFILE_FLAG); }
interp->resume_offset = REL_PC + 2; interp->resume_flag = 1; return (opcode_t *)0;
@@ -17905,7 +17833,6 @@
opcode_t *
Parrot_trace_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 954 "src/ops/core.ops"
if (IREG(1) != 0) { Parrot_set_trace(interp, IREG(1)); }
else { Parrot_clear_trace(interp, PARROT_ALL_TRACE_FLAGS); }
interp->resume_offset = REL_PC + 2; interp->resume_flag = 1; return (opcode_t *)0;
@@ -17914,7 +17841,6 @@
opcode_t *
Parrot_trace_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 954 "src/ops/core.ops"
if (cur_opcode[1] != 0) { Parrot_set_trace(interp, cur_opcode[1]); }
else { Parrot_clear_trace(interp, PARROT_ALL_TRACE_FLAGS); }
interp->resume_offset = REL_PC + 2; interp->resume_flag = 1; return (opcode_t *)0;
@@ -17923,7 +17849,6 @@
opcode_t *
Parrot_gc_debug_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 968 "src/ops/core.ops"
if (IREG(1) != 0) { Interp_flags_SET(interp, PARROT_GC_DEBUG_FLAG); }
else { Interp_flags_CLEAR(interp, PARROT_GC_DEBUG_FLAG); }
@@ -17932,7 +17857,6 @@
opcode_t *
Parrot_gc_debug_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 968 "src/ops/core.ops"
if (cur_opcode[1] != 0) { Interp_flags_SET(interp, PARROT_GC_DEBUG_FLAG); }
else { Interp_flags_CLEAR(interp, PARROT_GC_DEBUG_FLAG); }
@@ -17941,7 +17865,6 @@
opcode_t *
Parrot_interpinfo_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1002 "src/ops/core.ops"
IREG(1) = interpinfo(interp, IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -17949,7 +17872,6 @@
opcode_t *
Parrot_interpinfo_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1002 "src/ops/core.ops"
IREG(1) = interpinfo(interp, cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -17957,7 +17879,6 @@
opcode_t *
Parrot_interpinfo_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1006 "src/ops/core.ops"
PREG(1) = interpinfo_p(interp, IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -17965,7 +17886,6 @@
opcode_t *
Parrot_interpinfo_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1006 "src/ops/core.ops"
PREG(1) = interpinfo_p(interp, cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -17973,7 +17893,6 @@
opcode_t *
Parrot_interpinfo_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1010 "src/ops/core.ops"
STRING * s = interpinfo_s(interp, IREG(2));
SREG(1) = s;
@@ -17982,7 +17901,6 @@
opcode_t *
Parrot_interpinfo_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1010 "src/ops/core.ops"
STRING * s = interpinfo_s(interp, cur_opcode[2]);
SREG(1) = s;
@@ -17991,7 +17909,6 @@
opcode_t *
Parrot_warningson_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1030 "src/ops/core.ops"
PARROT_WARNINGS_on(interp, IREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -17999,7 +17916,6 @@
opcode_t *
Parrot_warningson_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1030 "src/ops/core.ops"
PARROT_WARNINGS_on(interp, cur_opcode[1]);
return (opcode_t *)cur_opcode + 2;}
@@ -18007,7 +17923,6 @@
opcode_t *
Parrot_warningsoff_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1042 "src/ops/core.ops"
PARROT_WARNINGS_off(interp, IREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -18015,7 +17930,6 @@
opcode_t *
Parrot_warningsoff_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1042 "src/ops/core.ops"
PARROT_WARNINGS_off(interp, cur_opcode[1]);
return (opcode_t *)cur_opcode + 2;}
@@ -18023,7 +17937,6 @@
opcode_t *
Parrot_errorson_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1077 "src/ops/core.ops"
PARROT_ERRORS_on(interp, IREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -18031,7 +17944,6 @@
opcode_t *
Parrot_errorson_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1077 "src/ops/core.ops"
PARROT_ERRORS_on(interp, cur_opcode[1]);
return (opcode_t *)cur_opcode + 2;}
@@ -18039,7 +17951,6 @@
opcode_t *
Parrot_errorsoff_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1089 "src/ops/core.ops"
PARROT_ERRORS_off(interp, IREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -18047,7 +17958,6 @@
opcode_t *
Parrot_errorsoff_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1089 "src/ops/core.ops"
PARROT_ERRORS_off(interp, cur_opcode[1]);
return (opcode_t *)cur_opcode + 2;}
@@ -18055,7 +17965,6 @@
opcode_t *
Parrot_runinterp_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1105 "src/ops/core.ops"
Interp * const new_interp = (Interp *)VTABLE_get_pointer(interp, PREG(1));
Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);
Parrot_switch_to_cs(new_interp, interp->code, 1);
@@ -18066,7 +17975,6 @@
opcode_t *
Parrot_runinterp_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1105 "src/ops/core.ops"
Interp * const new_interp = (Interp *)VTABLE_get_pointer(interp, PREG(1));
Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);
Parrot_switch_to_cs(new_interp, interp->code, 1);
@@ -18077,7 +17985,6 @@
opcode_t *
Parrot_getinterp_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1112 "src/ops/core.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, interp->iglobals,
IGLOBALS_INTERPRETER);
@@ -18086,7 +17993,6 @@
opcode_t *
Parrot_sweep_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1156 "src/ops/core.ops"
if (cur_opcode[1])
Parrot_gc_mark_and_sweep(interp, 0);
else
@@ -18098,7 +18004,6 @@
opcode_t *
Parrot_collect (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1170 "src/ops/core.ops"
Parrot_gc_compact_memory_pool(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -18106,7 +18011,6 @@
opcode_t *
Parrot_sweepoff (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1180 "src/ops/core.ops"
Parrot_block_GC_mark(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -18114,7 +18018,6 @@
opcode_t *
Parrot_sweepon (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1190 "src/ops/core.ops"
Parrot_unblock_GC_mark(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -18122,7 +18025,6 @@
opcode_t *
Parrot_collectoff (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1200 "src/ops/core.ops"
Parrot_block_GC_sweep(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -18130,7 +18032,6 @@
opcode_t *
Parrot_collecton (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1210 "src/ops/core.ops"
Parrot_unblock_GC_sweep(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -18138,7 +18039,6 @@
opcode_t *
Parrot_needs_destroy_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1221 "src/ops/core.ops"
Parrot_gc_pmc_needs_early_collection(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -18146,7 +18046,6 @@
opcode_t *
Parrot_loadlib_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1276 "src/ops/core.ops"
PREG(1) = Parrot_load_lib(interp, SREG(2), NULL);
return (opcode_t *)cur_opcode + 3;}
@@ -18154,7 +18053,6 @@
opcode_t *
Parrot_loadlib_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1276 "src/ops/core.ops"
PREG(1) = Parrot_load_lib(interp, CONST(2)->u.string, NULL);
return (opcode_t *)cur_opcode + 3;}
@@ -18162,7 +18060,6 @@
opcode_t *
Parrot_dlfunc_p_p_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1280 "src/ops/core.ops"
char * const name = Parrot_str_to_cstring(interp, (SREG(3)));
void *dl_handle = NULL;
void *ptr = NULL;
@@ -18198,7 +18095,6 @@
opcode_t *
Parrot_dlfunc_p_p_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1280 "src/ops/core.ops"
char * const name = Parrot_str_to_cstring(interp, (CONST(3)->u.string));
void *dl_handle = NULL;
void *ptr = NULL;
@@ -18234,7 +18130,6 @@
opcode_t *
Parrot_dlfunc_p_p_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1280 "src/ops/core.ops"
char * const name = Parrot_str_to_cstring(interp, (SREG(3)));
void *dl_handle = NULL;
void *ptr = NULL;
@@ -18270,7 +18165,6 @@
opcode_t *
Parrot_dlfunc_p_p_sc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1280 "src/ops/core.ops"
char * const name = Parrot_str_to_cstring(interp, (CONST(3)->u.string));
void *dl_handle = NULL;
void *ptr = NULL;
@@ -18306,7 +18200,6 @@
opcode_t *
Parrot_dlvar_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1312 "src/ops/core.ops"
char * const name = Parrot_str_to_cstring(interp, (SREG(3)));
void * p = NULL;
void *dl_handle = NULL;
@@ -18334,7 +18227,6 @@
opcode_t *
Parrot_dlvar_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1312 "src/ops/core.ops"
char * const name = Parrot_str_to_cstring(interp, (CONST(3)->u.string));
void * p = NULL;
void *dl_handle = NULL;
@@ -18362,7 +18254,6 @@
opcode_t *
Parrot_compreg_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1336 "src/ops/core.ops"
PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
interp->iglobals, IGLOBALS_COMPREG_HASH);
VTABLE_set_pmc_keyed_str(interp, compreg_hash, SREG(1), PREG(2));
@@ -18372,7 +18263,6 @@
opcode_t *
Parrot_compreg_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1336 "src/ops/core.ops"
PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
interp->iglobals, IGLOBALS_COMPREG_HASH);
VTABLE_set_pmc_keyed_str(interp, compreg_hash, CONST(1)->u.string, PREG(2));
@@ -18382,7 +18272,6 @@
opcode_t *
Parrot_compreg_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1342 "src/ops/core.ops"
PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
interp->iglobals, IGLOBALS_COMPREG_HASH);
PREG(1) = VTABLE_get_pmc_keyed_str(interp, compreg_hash, SREG(2));
@@ -18392,7 +18281,6 @@
opcode_t *
Parrot_compreg_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1342 "src/ops/core.ops"
PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
interp->iglobals, IGLOBALS_COMPREG_HASH);
PREG(1) = VTABLE_get_pmc_keyed_str(interp, compreg_hash, CONST(2)->u.string);
@@ -18402,7 +18290,6 @@
opcode_t *
Parrot_new_callback_p_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1348 "src/ops/core.ops"
PREG(1) = Parrot_make_cb(interp, PREG(2), PREG(3), SREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -18410,7 +18297,6 @@
opcode_t *
Parrot_new_callback_p_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1348 "src/ops/core.ops"
PREG(1) = Parrot_make_cb(interp, PREG(2), PREG(3), CONST(4)->u.string);
return (opcode_t *)cur_opcode + 5;}
@@ -18418,7 +18304,6 @@
opcode_t *
Parrot_annotations_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1375 "src/ops/core.ops"
if (interp->code->annotations) {
opcode_t const cur_pos = (cur_opcode + 2) - interp->code->base.data;
PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
@@ -18433,7 +18318,6 @@
opcode_t *
Parrot_annotations_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1393 "src/ops/core.ops"
if (interp->code->annotations) {
opcode_t const cur_pos = (cur_opcode + 3) - interp->code->base.data;
PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
@@ -18448,7 +18332,6 @@
opcode_t *
Parrot_annotations_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1393 "src/ops/core.ops"
if (interp->code->annotations) {
opcode_t const cur_pos = (cur_opcode + 3) - interp->code->base.data;
PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
@@ -18463,7 +18346,6 @@
opcode_t *
Parrot_band_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 62 "src/ops/bit.ops"
IREG(1) &= IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -18471,7 +18353,6 @@
opcode_t *
Parrot_band_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 62 "src/ops/bit.ops"
IREG(1) &= cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
@@ -18479,7 +18360,6 @@
opcode_t *
Parrot_band_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 66 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
const INTVAL b = a & IREG(2);
VTABLE_set_integer_native(interp, PREG(1), b);
@@ -18489,7 +18369,6 @@
opcode_t *
Parrot_band_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 66 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
const INTVAL b = a & cur_opcode[2];
VTABLE_set_integer_native(interp, PREG(1), b);
@@ -18499,7 +18378,6 @@
opcode_t *
Parrot_band_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 72 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
const INTVAL b = VTABLE_get_integer(interp, PREG(2));
VTABLE_set_integer_native(interp, PREG(1), a & b);
@@ -18509,7 +18387,6 @@
opcode_t *
Parrot_band_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/bit.ops"
IREG(1) = IREG(2) & IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -18517,7 +18394,6 @@
opcode_t *
Parrot_band_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/bit.ops"
IREG(1) = cur_opcode[2] & IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -18525,7 +18401,6 @@
opcode_t *
Parrot_band_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/bit.ops"
IREG(1) = IREG(2) & cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
@@ -18533,7 +18408,6 @@
opcode_t *
Parrot_band_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 82 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
VTABLE_set_integer_native(interp, PREG(1), a & IREG(3));
@@ -18542,7 +18416,6 @@
opcode_t *
Parrot_band_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 82 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
VTABLE_set_integer_native(interp, PREG(1), a & cur_opcode[3]);
@@ -18551,7 +18424,6 @@
opcode_t *
Parrot_band_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 87 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
const INTVAL b = VTABLE_get_integer(interp, PREG(3));
VTABLE_set_integer_native(interp, PREG(1), a & b);
@@ -18561,7 +18433,6 @@
opcode_t *
Parrot_bands_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 113 "src/ops/bit.ops"
Parrot_str_bitwise_and(interp, SREG(1), SREG(2), &SREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -18569,7 +18440,6 @@
opcode_t *
Parrot_bands_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 113 "src/ops/bit.ops"
Parrot_str_bitwise_and(interp, SREG(1), CONST(2)->u.string, &SREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -18577,7 +18447,6 @@
opcode_t *
Parrot_bands_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 117 "src/ops/bit.ops"
STRING * const a = VTABLE_get_string(interp, PREG(1));
STRING * const b = Parrot_str_bitwise_and(interp, a, SREG(2), NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -18587,7 +18456,6 @@
opcode_t *
Parrot_bands_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 117 "src/ops/bit.ops"
STRING * const a = VTABLE_get_string(interp, PREG(1));
STRING * const b = Parrot_str_bitwise_and(interp, a, CONST(2)->u.string, NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -18597,7 +18465,6 @@
opcode_t *
Parrot_bands_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 123 "src/ops/bit.ops"
STRING * a = VTABLE_get_string(interp, PREG(1));
STRING * b = VTABLE_get_string(interp, PREG(2));
a = Parrot_str_bitwise_and(interp, a, b, NULL);
@@ -18608,7 +18475,6 @@
opcode_t *
Parrot_bands_s_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 130 "src/ops/bit.ops"
SREG(1) = Parrot_str_bitwise_and(interp, SREG(2), SREG(3), NULL);
return (opcode_t *)cur_opcode + 4;}
@@ -18616,7 +18482,6 @@
opcode_t *
Parrot_bands_s_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 130 "src/ops/bit.ops"
SREG(1) = Parrot_str_bitwise_and(interp, CONST(2)->u.string, SREG(3), NULL);
return (opcode_t *)cur_opcode + 4;}
@@ -18624,7 +18489,6 @@
opcode_t *
Parrot_bands_s_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 130 "src/ops/bit.ops"
SREG(1) = Parrot_str_bitwise_and(interp, SREG(2), CONST(3)->u.string, NULL);
return (opcode_t *)cur_opcode + 4;}
@@ -18632,7 +18496,6 @@
opcode_t *
Parrot_bands_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 134 "src/ops/bit.ops"
STRING * const a = VTABLE_get_string(interp, PREG(2));
STRING * const b = Parrot_str_bitwise_and(interp, a, SREG(3), NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -18642,7 +18505,6 @@
opcode_t *
Parrot_bands_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 134 "src/ops/bit.ops"
STRING * const a = VTABLE_get_string(interp, PREG(2));
STRING * const b = Parrot_str_bitwise_and(interp, a, CONST(3)->u.string, NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -18652,7 +18514,6 @@
opcode_t *
Parrot_bands_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 140 "src/ops/bit.ops"
STRING * const a = VTABLE_get_string(interp, PREG(2));
STRING * const b = VTABLE_get_string(interp, PREG(3));
STRING * const c = Parrot_str_bitwise_and(interp, a, b, NULL);
@@ -18663,7 +18524,6 @@
opcode_t *
Parrot_bnot_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 161 "src/ops/bit.ops"
IREG(1) = ~ IREG(1);
return (opcode_t *)cur_opcode + 2;}
@@ -18671,7 +18531,6 @@
opcode_t *
Parrot_bnot_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 165 "src/ops/bit.ops"
IREG(1) = ~ IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -18679,7 +18538,6 @@
opcode_t *
Parrot_bnot_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 169 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
VTABLE_set_integer_native(interp, PREG(1), ~a);
@@ -18688,7 +18546,6 @@
opcode_t *
Parrot_bnot_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 174 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
PMC * const b = Parrot_pmc_new(interp, VTABLE_type(interp, PREG(2)));
VTABLE_set_integer_native(interp, b, ~a);
@@ -18699,7 +18556,6 @@
opcode_t *
Parrot_bnots_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 191 "src/ops/bit.ops"
Parrot_str_bitwise_not(interp, SREG(1), &SREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -18707,7 +18563,6 @@
opcode_t *
Parrot_bnots_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 195 "src/ops/bit.ops"
Parrot_str_bitwise_not(interp, SREG(2), &SREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -18715,7 +18570,6 @@
opcode_t *
Parrot_bnots_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 195 "src/ops/bit.ops"
Parrot_str_bitwise_not(interp, CONST(2)->u.string, &SREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -18723,7 +18577,6 @@
opcode_t *
Parrot_bnots_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 199 "src/ops/bit.ops"
STRING * a = VTABLE_get_string(interp, PREG(1));
STRING * b = Parrot_str_bitwise_not(interp, a, NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -18733,7 +18586,6 @@
opcode_t *
Parrot_bnots_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 205 "src/ops/bit.ops"
STRING * a = VTABLE_get_string(interp, PREG(2));
STRING * b = Parrot_str_bitwise_not(interp, a, NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -18743,7 +18595,6 @@
opcode_t *
Parrot_bor_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 233 "src/ops/bit.ops"
IREG(1) |= IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -18751,7 +18602,6 @@
opcode_t *
Parrot_bor_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 233 "src/ops/bit.ops"
IREG(1) |= cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
@@ -18759,7 +18609,6 @@
opcode_t *
Parrot_bor_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 237 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
VTABLE_set_integer_native(interp, PREG(1), a | IREG(2));
@@ -18768,7 +18617,6 @@
opcode_t *
Parrot_bor_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 237 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
VTABLE_set_integer_native(interp, PREG(1), a | cur_opcode[2]);
@@ -18777,7 +18625,6 @@
opcode_t *
Parrot_bor_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 242 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
const INTVAL b = VTABLE_get_integer(interp, PREG(2));
VTABLE_set_integer_native(interp, PREG(1), a | b);
@@ -18787,7 +18634,6 @@
opcode_t *
Parrot_bor_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 248 "src/ops/bit.ops"
IREG(1) = IREG(2) | IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -18795,7 +18641,6 @@
opcode_t *
Parrot_bor_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 248 "src/ops/bit.ops"
IREG(1) = cur_opcode[2] | IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -18803,7 +18648,6 @@
opcode_t *
Parrot_bor_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 248 "src/ops/bit.ops"
IREG(1) = IREG(2) | cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
@@ -18811,7 +18655,6 @@
opcode_t *
Parrot_bor_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 252 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
VTABLE_set_integer_native(interp, PREG(1), a | IREG(3));
@@ -18820,7 +18663,6 @@
opcode_t *
Parrot_bor_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 252 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
VTABLE_set_integer_native(interp, PREG(1), a | cur_opcode[3]);
@@ -18829,7 +18671,6 @@
opcode_t *
Parrot_bor_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 257 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
const INTVAL b = VTABLE_get_integer(interp, PREG(3));
VTABLE_set_integer_native(interp, PREG(1), a | b);
@@ -18839,7 +18680,6 @@
opcode_t *
Parrot_bors_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 283 "src/ops/bit.ops"
Parrot_str_bitwise_or(interp, SREG(1), SREG(2), &SREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -18847,7 +18687,6 @@
opcode_t *
Parrot_bors_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 283 "src/ops/bit.ops"
Parrot_str_bitwise_or(interp, SREG(1), CONST(2)->u.string, &SREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -18855,7 +18694,6 @@
opcode_t *
Parrot_bors_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 287 "src/ops/bit.ops"
STRING * const a = VTABLE_get_string(interp, PREG(1));
STRING * const b = Parrot_str_bitwise_or(interp, a, SREG(2), NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -18865,7 +18703,6 @@
opcode_t *
Parrot_bors_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 287 "src/ops/bit.ops"
STRING * const a = VTABLE_get_string(interp, PREG(1));
STRING * const b = Parrot_str_bitwise_or(interp, a, CONST(2)->u.string, NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -18875,7 +18712,6 @@
opcode_t *
Parrot_bors_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 293 "src/ops/bit.ops"
STRING * const a = VTABLE_get_string(interp, PREG(1));
STRING * const b = VTABLE_get_string(interp, PREG(2));
STRING * const c = Parrot_str_bitwise_or(interp, a, b, NULL);
@@ -18886,7 +18722,6 @@
opcode_t *
Parrot_bors_s_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 300 "src/ops/bit.ops"
SREG(1) = Parrot_str_bitwise_or(interp, SREG(2), SREG(3), NULL);
return (opcode_t *)cur_opcode + 4;}
@@ -18894,7 +18729,6 @@
opcode_t *
Parrot_bors_s_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 300 "src/ops/bit.ops"
SREG(1) = Parrot_str_bitwise_or(interp, CONST(2)->u.string, SREG(3), NULL);
return (opcode_t *)cur_opcode + 4;}
@@ -18902,7 +18736,6 @@
opcode_t *
Parrot_bors_s_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 300 "src/ops/bit.ops"
SREG(1) = Parrot_str_bitwise_or(interp, SREG(2), CONST(3)->u.string, NULL);
return (opcode_t *)cur_opcode + 4;}
@@ -18910,7 +18743,6 @@
opcode_t *
Parrot_bors_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 304 "src/ops/bit.ops"
STRING * const b = VTABLE_get_string(interp, PREG(2));
STRING * const c = Parrot_str_bitwise_or(interp, b, SREG(3), NULL);
VTABLE_set_string_native(interp, PREG(1), c);
@@ -18920,7 +18752,6 @@
opcode_t *
Parrot_bors_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 304 "src/ops/bit.ops"
STRING * const b = VTABLE_get_string(interp, PREG(2));
STRING * const c = Parrot_str_bitwise_or(interp, b, CONST(3)->u.string, NULL);
VTABLE_set_string_native(interp, PREG(1), c);
@@ -18930,7 +18761,6 @@
opcode_t *
Parrot_bors_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 310 "src/ops/bit.ops"
STRING * const a = VTABLE_get_string(interp, PREG(2));
STRING * const b = VTABLE_get_string(interp, PREG(3));
STRING * const c = Parrot_str_bitwise_or(interp, a, b, NULL);
@@ -18941,7 +18771,6 @@
opcode_t *
Parrot_shl_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 337 "src/ops/bit.ops"
IREG(1) = bit_shift_left(IREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -18949,7 +18778,6 @@
opcode_t *
Parrot_shl_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 337 "src/ops/bit.ops"
IREG(1) = bit_shift_left(IREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -18957,7 +18785,6 @@
opcode_t *
Parrot_shl_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 341 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
const INTVAL b = bit_shift_left(a, IREG(2));
VTABLE_set_integer_native(interp, PREG(1), b);
@@ -18967,7 +18794,6 @@
opcode_t *
Parrot_shl_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 341 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
const INTVAL b = bit_shift_left(a, cur_opcode[2]);
VTABLE_set_integer_native(interp, PREG(1), b);
@@ -18977,7 +18803,6 @@
opcode_t *
Parrot_shl_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 347 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
const INTVAL b = VTABLE_get_integer(interp, PREG(2));
const INTVAL c = bit_shift_left(a, b);
@@ -18988,7 +18813,6 @@
opcode_t *
Parrot_shl_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 354 "src/ops/bit.ops"
IREG(1) = bit_shift_left(IREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -18996,7 +18820,6 @@
opcode_t *
Parrot_shl_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 354 "src/ops/bit.ops"
IREG(1) = bit_shift_left(cur_opcode[2], IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -19004,7 +18827,6 @@
opcode_t *
Parrot_shl_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 354 "src/ops/bit.ops"
IREG(1) = bit_shift_left(IREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -19012,7 +18834,6 @@
opcode_t *
Parrot_shl_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 358 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
const INTVAL b = bit_shift_left(a, IREG(3));
VTABLE_set_integer_native(interp, PREG(1), b);
@@ -19022,7 +18843,6 @@
opcode_t *
Parrot_shl_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 358 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
const INTVAL b = bit_shift_left(a, cur_opcode[3]);
VTABLE_set_integer_native(interp, PREG(1), b);
@@ -19032,7 +18852,6 @@
opcode_t *
Parrot_shl_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 364 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
const INTVAL b = VTABLE_get_integer(interp, PREG(3));
const INTVAL c = bit_shift_left(a, b);
@@ -19043,7 +18862,6 @@
opcode_t *
Parrot_shr_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 391 "src/ops/bit.ops"
const INTVAL signed_shift = -IREG(2);
IREG(1) = bit_shift_left(IREG(1), signed_shift);
@@ -19052,7 +18870,6 @@
opcode_t *
Parrot_shr_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 391 "src/ops/bit.ops"
const INTVAL signed_shift = -cur_opcode[2];
IREG(1) = bit_shift_left(IREG(1), signed_shift);
@@ -19061,7 +18878,6 @@
opcode_t *
Parrot_shr_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 396 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
const INTVAL b = bit_shift_left(a, -IREG(2));
VTABLE_set_integer_native(interp, PREG(1), b);
@@ -19071,7 +18887,6 @@
opcode_t *
Parrot_shr_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 396 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
const INTVAL b = bit_shift_left(a, -cur_opcode[2]);
VTABLE_set_integer_native(interp, PREG(1), b);
@@ -19081,7 +18896,6 @@
opcode_t *
Parrot_shr_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 402 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(1));
const INTVAL b = VTABLE_get_integer(interp, PREG(2));
const INTVAL c = bit_shift_left(a, -b);
@@ -19092,7 +18906,6 @@
opcode_t *
Parrot_shr_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 409 "src/ops/bit.ops"
const INTVAL signed_shift = -IREG(3);
IREG(1) = bit_shift_left(IREG(2), signed_shift);
@@ -19101,7 +18914,6 @@
opcode_t *
Parrot_shr_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 409 "src/ops/bit.ops"
const INTVAL signed_shift = -IREG(3);
IREG(1) = bit_shift_left(cur_opcode[2], signed_shift);
@@ -19110,7 +18922,6 @@
opcode_t *
Parrot_shr_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 409 "src/ops/bit.ops"
const INTVAL signed_shift = -cur_opcode[3];
IREG(1) = bit_shift_left(IREG(2), signed_shift);
@@ -19119,7 +18930,6 @@
opcode_t *
Parrot_shr_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 414 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
const INTVAL c = bit_shift_left(a, -IREG(3));
VTABLE_set_integer_native(interp, PREG(1), c);
@@ -19129,7 +18939,6 @@
opcode_t *
Parrot_shr_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 414 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
const INTVAL c = bit_shift_left(a, -cur_opcode[3]);
VTABLE_set_integer_native(interp, PREG(1), c);
@@ -19139,7 +18948,6 @@
opcode_t *
Parrot_shr_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 420 "src/ops/bit.ops"
const INTVAL a = VTABLE_get_integer(interp, PREG(2));
const INTVAL b = VTABLE_get_integer(interp, PREG(3));
const INTVAL c = bit_shift_left(a, -b);
@@ -19150,7 +18958,6 @@
opcode_t *
Parrot_lsr_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 447 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)IREG(1);
const UINTVAL b = a >> IREG(2);
IREG(1) = (INTVAL)b;
@@ -19160,7 +18967,6 @@
opcode_t *
Parrot_lsr_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 447 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)IREG(1);
const UINTVAL b = a >> cur_opcode[2];
IREG(1) = (INTVAL)b;
@@ -19170,7 +18976,6 @@
opcode_t *
Parrot_lsr_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 453 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
const UINTVAL b = a >> IREG(2);
VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
@@ -19180,7 +18985,6 @@
opcode_t *
Parrot_lsr_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 453 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
const UINTVAL b = a >> cur_opcode[2];
VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
@@ -19190,7 +18994,6 @@
opcode_t *
Parrot_lsr_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 459 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
const UINTVAL c = a >> b;
@@ -19201,7 +19004,6 @@
opcode_t *
Parrot_lsr_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 466 "src/ops/bit.ops"
IREG(1) = (INTVAL)((UINTVAL)IREG(2) >> IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -19209,7 +19011,6 @@
opcode_t *
Parrot_lsr_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 466 "src/ops/bit.ops"
IREG(1) = (INTVAL)((UINTVAL)cur_opcode[2] >> IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -19217,7 +19018,6 @@
opcode_t *
Parrot_lsr_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 466 "src/ops/bit.ops"
IREG(1) = (INTVAL)((UINTVAL)IREG(2) >> cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -19225,7 +19025,6 @@
opcode_t *
Parrot_lsr_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 470 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
const UINTVAL b = (UINTVAL)IREG(3);
const UINTVAL c = a >> b;
@@ -19236,7 +19035,6 @@
opcode_t *
Parrot_lsr_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 470 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
const UINTVAL b = (UINTVAL)cur_opcode[3];
const UINTVAL c = a >> b;
@@ -19247,7 +19045,6 @@
opcode_t *
Parrot_lsr_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 477 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, PREG(3));
const UINTVAL c = a >> b;
@@ -19258,7 +19055,6 @@
opcode_t *
Parrot_rot_i_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 493 "src/ops/bit.ops"
const INTVAL r = IREG(2);
INTVAL s = IREG(3);
const INTVAL w = cur_opcode[4];
@@ -19276,7 +19072,6 @@
opcode_t *
Parrot_rot_i_ic_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 493 "src/ops/bit.ops"
const INTVAL r = cur_opcode[2];
INTVAL s = IREG(3);
const INTVAL w = cur_opcode[4];
@@ -19294,7 +19089,6 @@
opcode_t *
Parrot_rot_i_i_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 493 "src/ops/bit.ops"
const INTVAL r = IREG(2);
INTVAL s = cur_opcode[3];
const INTVAL w = cur_opcode[4];
@@ -19312,7 +19106,6 @@
opcode_t *
Parrot_bxor_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 529 "src/ops/bit.ops"
IREG(1) ^= IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -19320,7 +19113,6 @@
opcode_t *
Parrot_bxor_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 529 "src/ops/bit.ops"
IREG(1) ^= cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
@@ -19328,7 +19120,6 @@
opcode_t *
Parrot_bxor_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 533 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
const UINTVAL b = a ^ IREG(2);
VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
@@ -19338,7 +19129,6 @@
opcode_t *
Parrot_bxor_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 533 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
const UINTVAL b = a ^ cur_opcode[2];
VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
@@ -19348,7 +19138,6 @@
opcode_t *
Parrot_bxor_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 539 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
const UINTVAL c = a ^ b;
@@ -19359,7 +19148,6 @@
opcode_t *
Parrot_bxor_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 546 "src/ops/bit.ops"
IREG(1) = IREG(2) ^ IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -19367,7 +19155,6 @@
opcode_t *
Parrot_bxor_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 546 "src/ops/bit.ops"
IREG(1) = cur_opcode[2] ^ IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -19375,7 +19162,6 @@
opcode_t *
Parrot_bxor_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 546 "src/ops/bit.ops"
IREG(1) = IREG(2) ^ cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
@@ -19383,7 +19169,6 @@
opcode_t *
Parrot_bxor_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 550 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
const UINTVAL b = a ^ IREG(3);
VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
@@ -19393,7 +19178,6 @@
opcode_t *
Parrot_bxor_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 550 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
const UINTVAL b = a ^ cur_opcode[3];
VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
@@ -19403,7 +19187,6 @@
opcode_t *
Parrot_bxor_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 556 "src/ops/bit.ops"
const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, PREG(3));
const UINTVAL c = a ^ b;
@@ -19414,7 +19197,6 @@
opcode_t *
Parrot_bxors_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 583 "src/ops/bit.ops"
Parrot_str_bitwise_xor(interp, SREG(1), SREG(2), &SREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -19422,7 +19204,6 @@
opcode_t *
Parrot_bxors_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 583 "src/ops/bit.ops"
Parrot_str_bitwise_xor(interp, SREG(1), CONST(2)->u.string, &SREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -19430,7 +19211,6 @@
opcode_t *
Parrot_bxors_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 587 "src/ops/bit.ops"
STRING *a = VTABLE_get_string(interp, PREG(1));
STRING *b = Parrot_str_bitwise_xor(interp, a, SREG(2), NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -19440,7 +19220,6 @@
opcode_t *
Parrot_bxors_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 587 "src/ops/bit.ops"
STRING *a = VTABLE_get_string(interp, PREG(1));
STRING *b = Parrot_str_bitwise_xor(interp, a, CONST(2)->u.string, NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -19450,7 +19229,6 @@
opcode_t *
Parrot_bxors_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 593 "src/ops/bit.ops"
STRING *a = VTABLE_get_string(interp, PREG(1));
STRING *b = VTABLE_get_string(interp, PREG(2));
STRING *c = Parrot_str_bitwise_xor(interp, a, b, NULL);
@@ -19461,7 +19239,6 @@
opcode_t *
Parrot_bxors_s_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 600 "src/ops/bit.ops"
SREG(1) = Parrot_str_bitwise_xor(interp, SREG(2), SREG(3), NULL);
return (opcode_t *)cur_opcode + 4;}
@@ -19469,7 +19246,6 @@
opcode_t *
Parrot_bxors_s_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 600 "src/ops/bit.ops"
SREG(1) = Parrot_str_bitwise_xor(interp, CONST(2)->u.string, SREG(3), NULL);
return (opcode_t *)cur_opcode + 4;}
@@ -19477,7 +19253,6 @@
opcode_t *
Parrot_bxors_s_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 600 "src/ops/bit.ops"
SREG(1) = Parrot_str_bitwise_xor(interp, SREG(2), CONST(3)->u.string, NULL);
return (opcode_t *)cur_opcode + 4;}
@@ -19485,7 +19260,6 @@
opcode_t *
Parrot_bxors_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 604 "src/ops/bit.ops"
STRING *a = VTABLE_get_string(interp, PREG(2));
STRING *b = Parrot_str_bitwise_xor(interp, a, SREG(3), NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -19495,7 +19269,6 @@
opcode_t *
Parrot_bxors_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 604 "src/ops/bit.ops"
STRING *a = VTABLE_get_string(interp, PREG(2));
STRING *b = Parrot_str_bitwise_xor(interp, a, CONST(3)->u.string, NULL);
VTABLE_set_string_native(interp, PREG(1), b);
@@ -19505,7 +19278,6 @@
opcode_t *
Parrot_bxors_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 610 "src/ops/bit.ops"
STRING *a = VTABLE_get_string(interp, PREG(2));
STRING *b = VTABLE_get_string(interp, PREG(3));
STRING *c = Parrot_str_bitwise_xor(interp, a, b, NULL);
@@ -19516,7 +19288,6 @@
opcode_t *
Parrot_eq_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 66 "src/ops/cmp.ops"
if (IREG(1) == IREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19526,7 +19297,6 @@
opcode_t *
Parrot_eq_ic_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 66 "src/ops/cmp.ops"
if (cur_opcode[1] == IREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19536,7 +19306,6 @@
opcode_t *
Parrot_eq_i_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 66 "src/ops/cmp.ops"
if (IREG(1) == cur_opcode[2]) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19546,7 +19315,6 @@
opcode_t *
Parrot_eq_n_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 72 "src/ops/cmp.ops"
if (NREG(1) == NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19556,7 +19324,6 @@
opcode_t *
Parrot_eq_nc_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 72 "src/ops/cmp.ops"
if (CONST(1)->u.number == NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19566,7 +19333,6 @@
opcode_t *
Parrot_eq_n_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 72 "src/ops/cmp.ops"
if (NREG(1) == CONST(2)->u.number) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19576,7 +19342,6 @@
opcode_t *
Parrot_eq_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/cmp.ops"
if (Parrot_str_equal(interp, SREG(1), SREG(2))) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19586,7 +19351,6 @@
opcode_t *
Parrot_eq_sc_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/cmp.ops"
if (Parrot_str_equal(interp, CONST(1)->u.string, SREG(2))) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19596,7 +19360,6 @@
opcode_t *
Parrot_eq_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/cmp.ops"
if (Parrot_str_equal(interp, SREG(1), CONST(2)->u.string)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19606,7 +19369,6 @@
opcode_t *
Parrot_eq_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 84 "src/ops/cmp.ops"
if (VTABLE_is_equal(interp, PREG(1), PREG(2))) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19616,7 +19378,6 @@
opcode_t *
Parrot_eq_p_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 90 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, IREG(2));
@@ -19632,7 +19393,6 @@
opcode_t *
Parrot_eq_p_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 90 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
@@ -19648,7 +19408,6 @@
opcode_t *
Parrot_eq_p_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 102 "src/ops/cmp.ops"
/*
* the get_number and get_string should probably
* be also replaced with code like above, as
@@ -19664,7 +19423,6 @@
opcode_t *
Parrot_eq_p_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 102 "src/ops/cmp.ops"
/*
* the get_number and get_string should probably
* be also replaced with code like above, as
@@ -19680,7 +19438,6 @@
opcode_t *
Parrot_eq_p_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 114 "src/ops/cmp.ops"
if (Parrot_str_equal(interp, VTABLE_get_string(interp, PREG(1)), SREG(2))) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19690,7 +19447,6 @@
opcode_t *
Parrot_eq_p_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 114 "src/ops/cmp.ops"
if (Parrot_str_equal(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19700,7 +19456,6 @@
opcode_t *
Parrot_eq_str_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 120 "src/ops/cmp.ops"
if (VTABLE_is_equal_string(interp, PREG(1), PREG(2))) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19710,7 +19465,6 @@
opcode_t *
Parrot_eq_num_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 126 "src/ops/cmp.ops"
if (VTABLE_is_equal_num(interp, PREG(1), PREG(2))) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19720,7 +19474,6 @@
opcode_t *
Parrot_eq_addr_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 132 "src/ops/cmp.ops"
if (SREG(1) == SREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19730,7 +19483,6 @@
opcode_t *
Parrot_eq_addr_sc_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 132 "src/ops/cmp.ops"
if (CONST(1)->u.string == SREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19740,7 +19492,6 @@
opcode_t *
Parrot_eq_addr_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 132 "src/ops/cmp.ops"
if (SREG(1) == CONST(2)->u.string) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19750,7 +19501,6 @@
opcode_t *
Parrot_eq_addr_sc_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 132 "src/ops/cmp.ops"
if (CONST(1)->u.string == CONST(2)->u.string) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19760,7 +19510,6 @@
opcode_t *
Parrot_eq_addr_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 138 "src/ops/cmp.ops"
if (PREG(1) == PREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19770,7 +19519,6 @@
opcode_t *
Parrot_ne_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 172 "src/ops/cmp.ops"
if (IREG(1) != IREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19780,7 +19528,6 @@
opcode_t *
Parrot_ne_ic_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 172 "src/ops/cmp.ops"
if (cur_opcode[1] != IREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19790,7 +19537,6 @@
opcode_t *
Parrot_ne_i_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 172 "src/ops/cmp.ops"
if (IREG(1) != cur_opcode[2]) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19800,7 +19546,6 @@
opcode_t *
Parrot_ne_n_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 178 "src/ops/cmp.ops"
if (NREG(1) != NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19810,7 +19555,6 @@
opcode_t *
Parrot_ne_nc_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 178 "src/ops/cmp.ops"
if (CONST(1)->u.number != NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19820,7 +19564,6 @@
opcode_t *
Parrot_ne_n_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 178 "src/ops/cmp.ops"
if (NREG(1) != CONST(2)->u.number) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19830,7 +19573,6 @@
opcode_t *
Parrot_ne_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 184 "src/ops/cmp.ops"
if (Parrot_str_not_equal(interp, SREG(1), SREG(2))) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19840,7 +19582,6 @@
opcode_t *
Parrot_ne_sc_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 184 "src/ops/cmp.ops"
if (Parrot_str_not_equal(interp, CONST(1)->u.string, SREG(2))) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19850,7 +19591,6 @@
opcode_t *
Parrot_ne_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 184 "src/ops/cmp.ops"
if (Parrot_str_not_equal(interp, SREG(1), CONST(2)->u.string)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19860,7 +19600,6 @@
opcode_t *
Parrot_ne_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 190 "src/ops/cmp.ops"
if (!VTABLE_is_equal(interp, PREG(1), PREG(2))) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19870,7 +19609,6 @@
opcode_t *
Parrot_ne_p_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 196 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, IREG(2));
@@ -19886,7 +19624,6 @@
opcode_t *
Parrot_ne_p_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 196 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
@@ -19902,7 +19639,6 @@
opcode_t *
Parrot_ne_p_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 208 "src/ops/cmp.ops"
if (VTABLE_get_number(interp, PREG(1)) != NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19912,7 +19648,6 @@
opcode_t *
Parrot_ne_p_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 208 "src/ops/cmp.ops"
if (VTABLE_get_number(interp, PREG(1)) != CONST(2)->u.number) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19922,7 +19657,6 @@
opcode_t *
Parrot_ne_p_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 214 "src/ops/cmp.ops"
if (Parrot_str_not_equal(interp, VTABLE_get_string(interp, PREG(1)), SREG(2))) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19932,7 +19666,6 @@
opcode_t *
Parrot_ne_p_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 214 "src/ops/cmp.ops"
if (Parrot_str_not_equal(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19942,7 +19675,6 @@
opcode_t *
Parrot_ne_str_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 220 "src/ops/cmp.ops"
if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) != 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19952,7 +19684,6 @@
opcode_t *
Parrot_ne_num_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 226 "src/ops/cmp.ops"
if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) != 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19962,7 +19693,6 @@
opcode_t *
Parrot_ne_addr_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 232 "src/ops/cmp.ops"
if (SREG(1) != SREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19972,7 +19702,6 @@
opcode_t *
Parrot_ne_addr_sc_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 232 "src/ops/cmp.ops"
if (CONST(1)->u.string != SREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19982,7 +19711,6 @@
opcode_t *
Parrot_ne_addr_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 232 "src/ops/cmp.ops"
if (SREG(1) != CONST(2)->u.string) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -19992,7 +19720,6 @@
opcode_t *
Parrot_ne_addr_sc_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 232 "src/ops/cmp.ops"
if (CONST(1)->u.string != CONST(2)->u.string) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20002,7 +19729,6 @@
opcode_t *
Parrot_ne_addr_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 238 "src/ops/cmp.ops"
if (PREG(1) != PREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20012,7 +19738,6 @@
opcode_t *
Parrot_lt_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 268 "src/ops/cmp.ops"
if (IREG(1) < IREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20022,7 +19747,6 @@
opcode_t *
Parrot_lt_ic_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 268 "src/ops/cmp.ops"
if (cur_opcode[1] < IREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20032,7 +19756,6 @@
opcode_t *
Parrot_lt_i_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 268 "src/ops/cmp.ops"
if (IREG(1) < cur_opcode[2]) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20042,7 +19765,6 @@
opcode_t *
Parrot_lt_n_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 274 "src/ops/cmp.ops"
if (NREG(1) < NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20052,7 +19774,6 @@
opcode_t *
Parrot_lt_nc_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 274 "src/ops/cmp.ops"
if (CONST(1)->u.number < NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20062,7 +19783,6 @@
opcode_t *
Parrot_lt_n_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 274 "src/ops/cmp.ops"
if (NREG(1) < CONST(2)->u.number) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20072,7 +19792,6 @@
opcode_t *
Parrot_lt_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, SREG(1), SREG(2)) < 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20082,7 +19801,6 @@
opcode_t *
Parrot_lt_sc_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, CONST(1)->u.string, SREG(2)) < 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20092,7 +19810,6 @@
opcode_t *
Parrot_lt_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, SREG(1), CONST(2)->u.string) < 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20102,7 +19819,6 @@
opcode_t *
Parrot_lt_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 286 "src/ops/cmp.ops"
if (VTABLE_cmp(interp, PREG(1), PREG(2)) < 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20112,7 +19828,6 @@
opcode_t *
Parrot_lt_p_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 292 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, IREG(2));
@@ -20128,7 +19843,6 @@
opcode_t *
Parrot_lt_p_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 292 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
@@ -20144,7 +19858,6 @@
opcode_t *
Parrot_lt_p_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 304 "src/ops/cmp.ops"
if (VTABLE_get_number(interp, PREG(1)) < NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20154,7 +19867,6 @@
opcode_t *
Parrot_lt_p_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 304 "src/ops/cmp.ops"
if (VTABLE_get_number(interp, PREG(1)) < CONST(2)->u.number) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20164,7 +19876,6 @@
opcode_t *
Parrot_lt_p_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 310 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) < 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20174,7 +19885,6 @@
opcode_t *
Parrot_lt_p_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 310 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) < 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20184,7 +19894,6 @@
opcode_t *
Parrot_lt_str_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 316 "src/ops/cmp.ops"
if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) < 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20194,7 +19903,6 @@
opcode_t *
Parrot_lt_num_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 322 "src/ops/cmp.ops"
if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) < 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20204,7 +19912,6 @@
opcode_t *
Parrot_le_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 352 "src/ops/cmp.ops"
if (IREG(1) <= IREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20214,7 +19921,6 @@
opcode_t *
Parrot_le_ic_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 352 "src/ops/cmp.ops"
if (cur_opcode[1] <= IREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20224,7 +19930,6 @@
opcode_t *
Parrot_le_i_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 352 "src/ops/cmp.ops"
if (IREG(1) <= cur_opcode[2]) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20234,7 +19939,6 @@
opcode_t *
Parrot_le_n_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 358 "src/ops/cmp.ops"
if (NREG(1) <= NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20244,7 +19948,6 @@
opcode_t *
Parrot_le_nc_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 358 "src/ops/cmp.ops"
if (CONST(1)->u.number <= NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20254,7 +19957,6 @@
opcode_t *
Parrot_le_n_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 358 "src/ops/cmp.ops"
if (NREG(1) <= CONST(2)->u.number) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20264,7 +19966,6 @@
opcode_t *
Parrot_le_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 364 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, SREG(1), SREG(2)) <= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20274,7 +19975,6 @@
opcode_t *
Parrot_le_sc_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 364 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, CONST(1)->u.string, SREG(2)) <= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20284,7 +19984,6 @@
opcode_t *
Parrot_le_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 364 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, SREG(1), CONST(2)->u.string) <= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20294,7 +19993,6 @@
opcode_t *
Parrot_le_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 370 "src/ops/cmp.ops"
if (VTABLE_cmp(interp, PREG(1), PREG(2)) <= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20304,7 +20002,6 @@
opcode_t *
Parrot_le_p_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 376 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, IREG(2));
@@ -20320,7 +20017,6 @@
opcode_t *
Parrot_le_p_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 376 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
@@ -20336,7 +20032,6 @@
opcode_t *
Parrot_le_p_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 388 "src/ops/cmp.ops"
if (VTABLE_get_number(interp, PREG(1)) <= NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20346,7 +20041,6 @@
opcode_t *
Parrot_le_p_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 388 "src/ops/cmp.ops"
if (VTABLE_get_number(interp, PREG(1)) <= CONST(2)->u.number) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20356,7 +20050,6 @@
opcode_t *
Parrot_le_p_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 394 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) <= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20366,7 +20059,6 @@
opcode_t *
Parrot_le_p_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 394 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) <= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20376,7 +20068,6 @@
opcode_t *
Parrot_le_str_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 400 "src/ops/cmp.ops"
if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) <= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20386,7 +20077,6 @@
opcode_t *
Parrot_le_num_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 406 "src/ops/cmp.ops"
if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) <= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20396,7 +20086,6 @@
opcode_t *
Parrot_gt_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 430 "src/ops/cmp.ops"
if (VTABLE_cmp(interp, PREG(1), PREG(2)) > 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20406,7 +20095,6 @@
opcode_t *
Parrot_gt_p_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 436 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, IREG(2));
@@ -20422,7 +20110,6 @@
opcode_t *
Parrot_gt_p_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 436 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
@@ -20438,7 +20125,6 @@
opcode_t *
Parrot_gt_p_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 448 "src/ops/cmp.ops"
if (VTABLE_get_number(interp, PREG(1)) > NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20448,7 +20134,6 @@
opcode_t *
Parrot_gt_p_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 448 "src/ops/cmp.ops"
if (VTABLE_get_number(interp, PREG(1)) > CONST(2)->u.number) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20458,7 +20143,6 @@
opcode_t *
Parrot_gt_p_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 454 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) > 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20468,7 +20152,6 @@
opcode_t *
Parrot_gt_p_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 454 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) > 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20478,7 +20161,6 @@
opcode_t *
Parrot_gt_str_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 460 "src/ops/cmp.ops"
if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) > 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20488,7 +20170,6 @@
opcode_t *
Parrot_gt_num_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 466 "src/ops/cmp.ops"
if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) > 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20498,7 +20179,6 @@
opcode_t *
Parrot_ge_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 490 "src/ops/cmp.ops"
if (VTABLE_cmp(interp, PREG(1), PREG(2)) >= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20508,7 +20188,6 @@
opcode_t *
Parrot_ge_p_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 496 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, IREG(2));
@@ -20524,7 +20203,6 @@
opcode_t *
Parrot_ge_p_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 496 "src/ops/cmp.ops"
PMC * temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
@@ -20540,7 +20218,6 @@
opcode_t *
Parrot_ge_p_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 508 "src/ops/cmp.ops"
if (VTABLE_get_number(interp, PREG(1)) >= NREG(2)) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20550,7 +20227,6 @@
opcode_t *
Parrot_ge_p_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 508 "src/ops/cmp.ops"
if (VTABLE_get_number(interp, PREG(1)) >= CONST(2)->u.number) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20560,7 +20236,6 @@
opcode_t *
Parrot_ge_p_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 514 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) >= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20570,7 +20245,6 @@
opcode_t *
Parrot_ge_p_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 514 "src/ops/cmp.ops"
if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) >= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20580,7 +20254,6 @@
opcode_t *
Parrot_ge_str_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 520 "src/ops/cmp.ops"
if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) >= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20590,7 +20263,6 @@
opcode_t *
Parrot_ge_num_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 526 "src/ops/cmp.ops"
if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) >= 0) {
return (opcode_t *)cur_opcode + cur_opcode[3];
}
@@ -20600,7 +20272,6 @@
opcode_t *
Parrot_if_null_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 544 "src/ops/cmp.ops"
if (PMC_IS_NULL(PREG(1))) {
return (opcode_t *)cur_opcode + cur_opcode[2];
}
@@ -20610,7 +20281,6 @@
opcode_t *
Parrot_if_null_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 550 "src/ops/cmp.ops"
if (STRING_IS_NULL(SREG(1))) {
return (opcode_t *)cur_opcode + cur_opcode[2];
}
@@ -20620,7 +20290,6 @@
opcode_t *
Parrot_unless_null_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 568 "src/ops/cmp.ops"
if (!PMC_IS_NULL(PREG(1))) {
return (opcode_t *)cur_opcode + cur_opcode[2];
}
@@ -20630,7 +20299,6 @@
opcode_t *
Parrot_unless_null_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 574 "src/ops/cmp.ops"
if (!STRING_IS_NULL(SREG(1))) {
return (opcode_t *)cur_opcode + cur_opcode[2];
}
@@ -20640,7 +20308,6 @@
opcode_t *
Parrot_cmp_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 615 "src/ops/cmp.ops"
IREG(1) = IREG(2) < IREG(3) ? -1 :
IREG(2) > IREG(3) ? +1 :
0;
@@ -20650,7 +20317,6 @@
opcode_t *
Parrot_cmp_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 615 "src/ops/cmp.ops"
IREG(1) = cur_opcode[2] < IREG(3) ? -1 :
cur_opcode[2] > IREG(3) ? +1 :
0;
@@ -20660,7 +20326,6 @@
opcode_t *
Parrot_cmp_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 615 "src/ops/cmp.ops"
IREG(1) = IREG(2) < cur_opcode[3] ? -1 :
IREG(2) > cur_opcode[3] ? +1 :
0;
@@ -20670,7 +20335,6 @@
opcode_t *
Parrot_cmp_i_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/cmp.ops"
IREG(1) = NREG(2) < NREG(3) ? -1 :
NREG(2) > NREG(3) ? +1 :
0;
@@ -20680,7 +20344,6 @@
opcode_t *
Parrot_cmp_i_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/cmp.ops"
IREG(1) = CONST(2)->u.number < NREG(3) ? -1 :
CONST(2)->u.number > NREG(3) ? +1 :
0;
@@ -20690,7 +20353,6 @@
opcode_t *
Parrot_cmp_i_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/cmp.ops"
IREG(1) = NREG(2) < CONST(3)->u.number ? -1 :
NREG(2) > CONST(3)->u.number ? +1 :
0;
@@ -20700,7 +20362,6 @@
opcode_t *
Parrot_cmp_i_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 627 "src/ops/cmp.ops"
IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -20708,7 +20369,6 @@
opcode_t *
Parrot_cmp_i_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 627 "src/ops/cmp.ops"
IREG(1) = Parrot_str_compare(interp, CONST(2)->u.string, SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -20716,7 +20376,6 @@
opcode_t *
Parrot_cmp_i_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 627 "src/ops/cmp.ops"
IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -20724,7 +20383,6 @@
opcode_t *
Parrot_cmp_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 631 "src/ops/cmp.ops"
IREG(1) = VTABLE_cmp(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -20732,7 +20390,6 @@
opcode_t *
Parrot_cmp_i_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/cmp.ops"
const INTVAL l = VTABLE_get_integer(interp, PREG(2));
IREG(1) = l < IREG(3) ? -1 :
l > IREG(3) ? +1 :
@@ -20743,7 +20400,6 @@
opcode_t *
Parrot_cmp_i_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/cmp.ops"
const INTVAL l = VTABLE_get_integer(interp, PREG(2));
IREG(1) = l < cur_opcode[3] ? -1 :
l > cur_opcode[3] ? +1 :
@@ -20754,7 +20410,6 @@
opcode_t *
Parrot_cmp_i_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 642 "src/ops/cmp.ops"
const FLOATVAL l = VTABLE_get_number(interp, PREG(2));
IREG(1) = l < NREG(3) ? -1 :
l > NREG(3) ? +1 :
@@ -20765,7 +20420,6 @@
opcode_t *
Parrot_cmp_i_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 642 "src/ops/cmp.ops"
const FLOATVAL l = VTABLE_get_number(interp, PREG(2));
IREG(1) = l < CONST(3)->u.number ? -1 :
l > CONST(3)->u.number ? +1 :
@@ -20776,7 +20430,6 @@
opcode_t *
Parrot_cmp_i_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/cmp.ops"
STRING* const l = VTABLE_get_string(interp, PREG(2));
IREG(1) = Parrot_str_compare(interp, l, SREG(3));
@@ -20785,7 +20438,6 @@
opcode_t *
Parrot_cmp_i_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/cmp.ops"
STRING* const l = VTABLE_get_string(interp, PREG(2));
IREG(1) = Parrot_str_compare(interp, l, CONST(3)->u.string);
@@ -20794,7 +20446,6 @@
opcode_t *
Parrot_cmp_str_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 654 "src/ops/cmp.ops"
IREG(1) = VTABLE_cmp_string(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -20802,7 +20453,6 @@
opcode_t *
Parrot_cmp_num_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 658 "src/ops/cmp.ops"
IREG(1) = VTABLE_cmp_num(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -20810,7 +20460,6 @@
opcode_t *
Parrot_cmp_pmc_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 670 "src/ops/cmp.ops"
PREG(1) = VTABLE_cmp_pmc(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -20818,7 +20467,6 @@
opcode_t *
Parrot_issame_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 707 "src/ops/cmp.ops"
if (PREG(2) == PREG(3))
IREG(1) = 1;
else
@@ -20829,7 +20477,6 @@
opcode_t *
Parrot_issame_i_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 714 "src/ops/cmp.ops"
IREG(1) = SREG(2) == SREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -20837,7 +20484,6 @@
opcode_t *
Parrot_issame_i_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 714 "src/ops/cmp.ops"
IREG(1) = CONST(2)->u.string == SREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -20845,7 +20491,6 @@
opcode_t *
Parrot_issame_i_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 714 "src/ops/cmp.ops"
IREG(1) = SREG(2) == CONST(3)->u.string;
return (opcode_t *)cur_opcode + 4;}
@@ -20853,7 +20498,6 @@
opcode_t *
Parrot_issame_i_sc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 714 "src/ops/cmp.ops"
IREG(1) = CONST(2)->u.string == CONST(3)->u.string;
return (opcode_t *)cur_opcode + 4;}
@@ -20861,7 +20505,6 @@
opcode_t *
Parrot_isntsame_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 718 "src/ops/cmp.ops"
if (PREG(2) == PREG(3))
IREG(1) = 0;
else
@@ -20872,7 +20515,6 @@
opcode_t *
Parrot_isntsame_i_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 725 "src/ops/cmp.ops"
IREG(1) = SREG(2) != SREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -20880,7 +20522,6 @@
opcode_t *
Parrot_isntsame_i_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 725 "src/ops/cmp.ops"
IREG(1) = CONST(2)->u.string != SREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -20888,7 +20529,6 @@
opcode_t *
Parrot_isntsame_i_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 725 "src/ops/cmp.ops"
IREG(1) = SREG(2) != CONST(3)->u.string;
return (opcode_t *)cur_opcode + 4;}
@@ -20896,7 +20536,6 @@
opcode_t *
Parrot_isntsame_i_sc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 725 "src/ops/cmp.ops"
IREG(1) = CONST(2)->u.string != CONST(3)->u.string;
return (opcode_t *)cur_opcode + 4;}
@@ -20904,7 +20543,6 @@
opcode_t *
Parrot_istrue_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 729 "src/ops/cmp.ops"
IREG(1) = VTABLE_get_bool(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -20912,7 +20550,6 @@
opcode_t *
Parrot_isfalse_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 733 "src/ops/cmp.ops"
IREG(1) = !VTABLE_get_bool(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -20920,7 +20557,6 @@
opcode_t *
Parrot_isnull_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 737 "src/ops/cmp.ops"
IREG(1) = PMC_IS_NULL(PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -20928,7 +20564,6 @@
opcode_t *
Parrot_isnull_i_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 737 "src/ops/cmp.ops"
IREG(1) = PMC_IS_NULL(CONST(2)->u.key);
return (opcode_t *)cur_opcode + 3;}
@@ -20936,7 +20571,6 @@
opcode_t *
Parrot_isnull_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 741 "src/ops/cmp.ops"
IREG(1) = STRING_IS_NULL(SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -20944,7 +20578,6 @@
opcode_t *
Parrot_isnull_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 741 "src/ops/cmp.ops"
IREG(1) = STRING_IS_NULL(CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -20952,7 +20585,6 @@
opcode_t *
Parrot_isgt_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 759 "src/ops/cmp.ops"
IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) > 0);
return (opcode_t *)cur_opcode + 4;}
@@ -20960,7 +20592,6 @@
opcode_t *
Parrot_isge_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 777 "src/ops/cmp.ops"
IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) >= 0);
return (opcode_t *)cur_opcode + 4;}
@@ -20968,7 +20599,6 @@
opcode_t *
Parrot_isle_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 793 "src/ops/cmp.ops"
IREG(1) = IREG(2) <= IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -20976,7 +20606,6 @@
opcode_t *
Parrot_isle_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 793 "src/ops/cmp.ops"
IREG(1) = cur_opcode[2] <= IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -20984,7 +20613,6 @@
opcode_t *
Parrot_isle_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 793 "src/ops/cmp.ops"
IREG(1) = IREG(2) <= cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
@@ -20992,7 +20620,6 @@
opcode_t *
Parrot_isle_i_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 797 "src/ops/cmp.ops"
IREG(1) = NREG(2) <= NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -21000,7 +20627,6 @@
opcode_t *
Parrot_isle_i_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 797 "src/ops/cmp.ops"
IREG(1) = CONST(2)->u.number <= NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -21008,7 +20634,6 @@
opcode_t *
Parrot_isle_i_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 797 "src/ops/cmp.ops"
IREG(1) = NREG(2) <= CONST(3)->u.number;
return (opcode_t *)cur_opcode + 4;}
@@ -21016,7 +20641,6 @@
opcode_t *
Parrot_isle_i_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 801 "src/ops/cmp.ops"
IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3)) <= 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21024,7 +20648,6 @@
opcode_t *
Parrot_isle_i_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 801 "src/ops/cmp.ops"
IREG(1) = Parrot_str_compare(interp, CONST(2)->u.string, SREG(3)) <= 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21032,7 +20655,6 @@
opcode_t *
Parrot_isle_i_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 801 "src/ops/cmp.ops"
IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3)->u.string) <= 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21040,7 +20662,6 @@
opcode_t *
Parrot_isle_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 805 "src/ops/cmp.ops"
IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) <= 0);
return (opcode_t *)cur_opcode + 4;}
@@ -21048,7 +20669,6 @@
opcode_t *
Parrot_islt_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 821 "src/ops/cmp.ops"
IREG(1) = (IREG(2) < IREG(3)) ? 1 : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21056,7 +20676,6 @@
opcode_t *
Parrot_islt_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 821 "src/ops/cmp.ops"
IREG(1) = (cur_opcode[2] < IREG(3)) ? 1 : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21064,7 +20683,6 @@
opcode_t *
Parrot_islt_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 821 "src/ops/cmp.ops"
IREG(1) = (IREG(2) < cur_opcode[3]) ? 1 : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21072,7 +20690,6 @@
opcode_t *
Parrot_islt_i_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 825 "src/ops/cmp.ops"
IREG(1) = NREG(2) < NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -21080,7 +20697,6 @@
opcode_t *
Parrot_islt_i_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 825 "src/ops/cmp.ops"
IREG(1) = CONST(2)->u.number < NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -21088,7 +20704,6 @@
opcode_t *
Parrot_islt_i_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 825 "src/ops/cmp.ops"
IREG(1) = NREG(2) < CONST(3)->u.number;
return (opcode_t *)cur_opcode + 4;}
@@ -21096,7 +20711,6 @@
opcode_t *
Parrot_islt_i_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 829 "src/ops/cmp.ops"
IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3)) < 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21104,7 +20718,6 @@
opcode_t *
Parrot_islt_i_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 829 "src/ops/cmp.ops"
IREG(1) = Parrot_str_compare(interp, CONST(2)->u.string, SREG(3)) < 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21112,7 +20725,6 @@
opcode_t *
Parrot_islt_i_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 829 "src/ops/cmp.ops"
IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3)->u.string) < 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21120,7 +20732,6 @@
opcode_t *
Parrot_islt_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 833 "src/ops/cmp.ops"
IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) < 0);
return (opcode_t *)cur_opcode + 4;}
@@ -21128,7 +20739,6 @@
opcode_t *
Parrot_iseq_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 849 "src/ops/cmp.ops"
IREG(1) = (IREG(2) == IREG(3)) ? 1 : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21136,7 +20746,6 @@
opcode_t *
Parrot_iseq_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 849 "src/ops/cmp.ops"
IREG(1) = (cur_opcode[2] == IREG(3)) ? 1 : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21144,7 +20753,6 @@
opcode_t *
Parrot_iseq_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 849 "src/ops/cmp.ops"
IREG(1) = (IREG(2) == cur_opcode[3]) ? 1 : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21152,7 +20760,6 @@
opcode_t *
Parrot_iseq_i_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 853 "src/ops/cmp.ops"
IREG(1) = NREG(2) == NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -21160,7 +20767,6 @@
opcode_t *
Parrot_iseq_i_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 853 "src/ops/cmp.ops"
IREG(1) = CONST(2)->u.number == NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -21168,7 +20774,6 @@
opcode_t *
Parrot_iseq_i_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 853 "src/ops/cmp.ops"
IREG(1) = NREG(2) == CONST(3)->u.number;
return (opcode_t *)cur_opcode + 4;}
@@ -21176,7 +20781,6 @@
opcode_t *
Parrot_iseq_i_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 857 "src/ops/cmp.ops"
IREG(1) = (Parrot_str_equal(interp, SREG(2), SREG(3)) ? 1 : 0);
return (opcode_t *)cur_opcode + 4;}
@@ -21184,7 +20788,6 @@
opcode_t *
Parrot_iseq_i_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 857 "src/ops/cmp.ops"
IREG(1) = (Parrot_str_equal(interp, CONST(2)->u.string, SREG(3)) ? 1 : 0);
return (opcode_t *)cur_opcode + 4;}
@@ -21192,7 +20795,6 @@
opcode_t *
Parrot_iseq_i_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 857 "src/ops/cmp.ops"
IREG(1) = (Parrot_str_equal(interp, SREG(2), CONST(3)->u.string) ? 1 : 0);
return (opcode_t *)cur_opcode + 4;}
@@ -21200,7 +20802,6 @@
opcode_t *
Parrot_iseq_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 861 "src/ops/cmp.ops"
if (&PREG(2) == &PREG(3))
IREG(1) = 1;
else
@@ -21211,7 +20812,6 @@
opcode_t *
Parrot_isne_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 880 "src/ops/cmp.ops"
IREG(1) = (IREG(2) == IREG(3)) ? 0 : 1;
return (opcode_t *)cur_opcode + 4;}
@@ -21219,7 +20819,6 @@
opcode_t *
Parrot_isne_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 880 "src/ops/cmp.ops"
IREG(1) = (cur_opcode[2] == IREG(3)) ? 0 : 1;
return (opcode_t *)cur_opcode + 4;}
@@ -21227,7 +20826,6 @@
opcode_t *
Parrot_isne_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 880 "src/ops/cmp.ops"
IREG(1) = (IREG(2) == cur_opcode[3]) ? 0 : 1;
return (opcode_t *)cur_opcode + 4;}
@@ -21235,7 +20833,6 @@
opcode_t *
Parrot_isne_i_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 884 "src/ops/cmp.ops"
IREG(1) = NREG(2) != NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -21243,7 +20840,6 @@
opcode_t *
Parrot_isne_i_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 884 "src/ops/cmp.ops"
IREG(1) = CONST(2)->u.number != NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -21251,7 +20847,6 @@
opcode_t *
Parrot_isne_i_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 884 "src/ops/cmp.ops"
IREG(1) = NREG(2) != CONST(3)->u.number;
return (opcode_t *)cur_opcode + 4;}
@@ -21259,7 +20854,6 @@
opcode_t *
Parrot_isne_i_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 888 "src/ops/cmp.ops"
IREG(1) = (Parrot_str_not_equal(interp, SREG(2), SREG(3)) ? 1 : 0);
return (opcode_t *)cur_opcode + 4;}
@@ -21267,7 +20861,6 @@
opcode_t *
Parrot_isne_i_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 888 "src/ops/cmp.ops"
IREG(1) = (Parrot_str_not_equal(interp, CONST(2)->u.string, SREG(3)) ? 1 : 0);
return (opcode_t *)cur_opcode + 4;}
@@ -21275,7 +20868,6 @@
opcode_t *
Parrot_isne_i_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 888 "src/ops/cmp.ops"
IREG(1) = (Parrot_str_not_equal(interp, SREG(2), CONST(3)->u.string) ? 1 : 0);
return (opcode_t *)cur_opcode + 4;}
@@ -21283,7 +20875,6 @@
opcode_t *
Parrot_isne_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 892 "src/ops/cmp.ops"
if (&PREG(2) == &PREG(3))
IREG(1) = 0;
else
@@ -21294,7 +20885,6 @@
opcode_t *
Parrot_and_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 924 "src/ops/cmp.ops"
IREG(1) = IREG(2) ? IREG(3) : IREG(2);
return (opcode_t *)cur_opcode + 4;}
@@ -21302,7 +20892,6 @@
opcode_t *
Parrot_and_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 924 "src/ops/cmp.ops"
IREG(1) = cur_opcode[2] ? IREG(3) : cur_opcode[2];
return (opcode_t *)cur_opcode + 4;}
@@ -21310,7 +20899,6 @@
opcode_t *
Parrot_and_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 924 "src/ops/cmp.ops"
IREG(1) = IREG(2) ? cur_opcode[3] : IREG(2);
return (opcode_t *)cur_opcode + 4;}
@@ -21318,7 +20906,6 @@
opcode_t *
Parrot_and_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 928 "src/ops/cmp.ops"
PREG(1) = VTABLE_logical_and(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -21326,7 +20913,6 @@
opcode_t *
Parrot_not_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 946 "src/ops/cmp.ops"
IREG(1) = ! IREG(1);
return (opcode_t *)cur_opcode + 2;}
@@ -21334,7 +20920,6 @@
opcode_t *
Parrot_not_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 950 "src/ops/cmp.ops"
IREG(1) = ! IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -21342,7 +20927,6 @@
opcode_t *
Parrot_not_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 954 "src/ops/cmp.ops"
VTABLE_i_logical_not(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -21350,7 +20934,6 @@
opcode_t *
Parrot_not_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 958 "src/ops/cmp.ops"
PREG(1) = VTABLE_logical_not(interp, PREG(2), PREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -21358,7 +20941,6 @@
opcode_t *
Parrot_or_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 972 "src/ops/cmp.ops"
IREG(1) = IREG(2) ? IREG(2) : IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -21366,7 +20948,6 @@
opcode_t *
Parrot_or_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 972 "src/ops/cmp.ops"
IREG(1) = cur_opcode[2] ? cur_opcode[2] : IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -21374,7 +20955,6 @@
opcode_t *
Parrot_or_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 972 "src/ops/cmp.ops"
IREG(1) = IREG(2) ? IREG(2) : cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
@@ -21382,7 +20962,6 @@
opcode_t *
Parrot_or_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 976 "src/ops/cmp.ops"
PREG(1) = VTABLE_logical_or(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -21390,7 +20969,6 @@
opcode_t *
Parrot_xor_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 991 "src/ops/cmp.ops"
IREG(1) = (IREG(2) && ! IREG(3)) ? IREG(2) : (IREG(3) && ! IREG(2)) ? IREG(3) : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21398,7 +20976,6 @@
opcode_t *
Parrot_xor_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 991 "src/ops/cmp.ops"
IREG(1) = (cur_opcode[2] && ! IREG(3)) ? cur_opcode[2] : (IREG(3) && ! cur_opcode[2]) ? IREG(3) : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21406,7 +20983,6 @@
opcode_t *
Parrot_xor_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 991 "src/ops/cmp.ops"
IREG(1) = (IREG(2) && ! cur_opcode[3]) ? IREG(2) : (cur_opcode[3] && ! IREG(2)) ? cur_opcode[3] : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -21414,7 +20990,6 @@
opcode_t *
Parrot_xor_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 995 "src/ops/cmp.ops"
PREG(1) = VTABLE_logical_xor(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -21422,7 +20997,6 @@
opcode_t *
Parrot_debug_init (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 45 "src/ops/debug.ops"
Parrot_debugger_init(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -21430,7 +21004,6 @@
opcode_t *
Parrot_debug_load_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 57 "src/ops/debug.ops"
Parrot_debugger_load(interp, CONST(1)->u.string);
return (opcode_t *)cur_opcode + 2;}
@@ -21438,7 +21011,6 @@
opcode_t *
Parrot_debug_break (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 74 "src/ops/debug.ops"
Parrot_debugger_break(interp, cur_opcode);
return (opcode_t *)cur_opcode + 1;}
@@ -21446,7 +21018,6 @@
opcode_t *
Parrot_debug_print (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 86 "src/ops/debug.ops"
if (!interp->pdb) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 1,
EXCEPTION_INVALID_OPERATION,
@@ -21466,7 +21037,6 @@
opcode_t *
Parrot_backtrace (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 108 "src/ops/debug.ops"
PDB_backtrace(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -21474,7 +21044,6 @@
opcode_t *
Parrot_getline_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 120 "src/ops/debug.ops"
Parrot_Context_info info;
Parrot_Context_get_info(interp, CURRENT_CONTEXT(interp), &info);
IREG(1) = info.line;
@@ -21484,7 +21053,6 @@
opcode_t *
Parrot_getfile_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 132 "src/ops/debug.ops"
Parrot_Context_info info;
Parrot_Context_get_info(interp, CURRENT_CONTEXT(interp), &info);
SREG(1) = info.file;
@@ -21494,7 +21062,6 @@
opcode_t *
Parrot_set_label_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 71 "src/ops/experimental.ops"
VTABLE_set_pointer(interp, PREG(1), (CUR_OPCODE + cur_opcode[2]));
return (opcode_t *)cur_opcode + 3;}
@@ -21502,7 +21069,6 @@
opcode_t *
Parrot_get_label_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 75 "src/ops/experimental.ops"
void * const ptr = VTABLE_get_pointer(interp, PREG(2));
IREG(1) = PTR2INTVAL(ptr);
@@ -21511,7 +21077,6 @@
opcode_t *
Parrot_close_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 43 "src/ops/io.ops"
Parrot_io_close(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -21519,7 +21084,6 @@
opcode_t *
Parrot_fdopen_p_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 55 "src/ops/io.ops"
PREG(1) = Parrot_io_fdopen(interp, PMCNULL, (PIOHANDLE)IREG(2), SREG(3));
if (!PREG(1))
PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
@@ -21529,7 +21093,6 @@
opcode_t *
Parrot_fdopen_p_ic_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 55 "src/ops/io.ops"
PREG(1) = Parrot_io_fdopen(interp, PMCNULL, (PIOHANDLE)cur_opcode[2], SREG(3));
if (!PREG(1))
PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
@@ -21539,7 +21102,6 @@
opcode_t *
Parrot_fdopen_p_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 55 "src/ops/io.ops"
PREG(1) = Parrot_io_fdopen(interp, PMCNULL, (PIOHANDLE)IREG(2), CONST(3)->u.string);
if (!PREG(1))
PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
@@ -21549,7 +21111,6 @@
opcode_t *
Parrot_fdopen_p_ic_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 55 "src/ops/io.ops"
PREG(1) = Parrot_io_fdopen(interp, PMCNULL, (PIOHANDLE)cur_opcode[2], CONST(3)->u.string);
if (!PREG(1))
PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
@@ -21559,7 +21120,6 @@
opcode_t *
Parrot_getstdin_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/io.ops"
PREG(1) = _PIO_STDIN(interp);
return (opcode_t *)cur_opcode + 2;}
@@ -21567,7 +21127,6 @@
opcode_t *
Parrot_getstdout_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 82 "src/ops/io.ops"
PREG(1) = _PIO_STDOUT(interp);
return (opcode_t *)cur_opcode + 2;}
@@ -21575,7 +21134,6 @@
opcode_t *
Parrot_getstderr_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 86 "src/ops/io.ops"
PREG(1) = _PIO_STDERR(interp);
return (opcode_t *)cur_opcode + 2;}
@@ -21583,7 +21141,6 @@
opcode_t *
Parrot_setstdin_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 109 "src/ops/io.ops"
_PIO_STDIN(interp) = PREG(1);
return (opcode_t *)cur_opcode + 2;}
@@ -21591,7 +21148,6 @@
opcode_t *
Parrot_setstdout_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 113 "src/ops/io.ops"
_PIO_STDOUT(interp) = PREG(1);
return (opcode_t *)cur_opcode + 2;}
@@ -21599,7 +21155,6 @@
opcode_t *
Parrot_setstderr_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 117 "src/ops/io.ops"
_PIO_STDERR(interp) = PREG(1);
return (opcode_t *)cur_opcode + 2;}
@@ -21607,7 +21162,6 @@
opcode_t *
Parrot_open_p_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 142 "src/ops/io.ops"
if (STRING_IS_NULL(SREG(2)) || STRING_IS_NULL(SREG(3))) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
EXCEPTION_UNEXPECTED_NULL, "Invalid open");
@@ -21623,7 +21177,6 @@
opcode_t *
Parrot_open_p_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 142 "src/ops/io.ops"
if (STRING_IS_NULL(CONST(2)->u.string) || STRING_IS_NULL(SREG(3))) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
EXCEPTION_UNEXPECTED_NULL, "Invalid open");
@@ -21639,7 +21192,6 @@
opcode_t *
Parrot_open_p_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 142 "src/ops/io.ops"
if (STRING_IS_NULL(SREG(2)) || STRING_IS_NULL(CONST(3)->u.string)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
EXCEPTION_UNEXPECTED_NULL, "Invalid open");
@@ -21655,7 +21207,6 @@
opcode_t *
Parrot_open_p_sc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 142 "src/ops/io.ops"
if (STRING_IS_NULL(CONST(2)->u.string) || STRING_IS_NULL(CONST(3)->u.string)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
EXCEPTION_UNEXPECTED_NULL, "Invalid open");
@@ -21671,7 +21222,6 @@
opcode_t *
Parrot_open_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 154 "src/ops/io.ops"
if (STRING_IS_NULL(SREG(2))) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
EXCEPTION_UNEXPECTED_NULL, "Invalid open");
@@ -21687,7 +21237,6 @@
opcode_t *
Parrot_open_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 154 "src/ops/io.ops"
if (STRING_IS_NULL(CONST(2)->u.string)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
EXCEPTION_UNEXPECTED_NULL, "Invalid open");
@@ -21703,7 +21252,6 @@
opcode_t *
Parrot_print_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 180 "src/ops/io.ops"
Parrot_io_printf(interp, INTVAL_FMT, (INTVAL)IREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -21711,7 +21259,6 @@
opcode_t *
Parrot_print_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 180 "src/ops/io.ops"
Parrot_io_printf(interp, INTVAL_FMT, (INTVAL)cur_opcode[1]);
return (opcode_t *)cur_opcode + 2;}
@@ -21719,7 +21266,6 @@
opcode_t *
Parrot_print_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 184 "src/ops/io.ops"
#ifdef PARROT_HAS_NEGATIVE_ZERO
Parrot_io_printf(interp, FLOATVAL_FMT, NREG(1));
#else
@@ -21737,7 +21283,6 @@
opcode_t *
Parrot_print_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 184 "src/ops/io.ops"
#ifdef PARROT_HAS_NEGATIVE_ZERO
Parrot_io_printf(interp, FLOATVAL_FMT, CONST(1)->u.number);
#else
@@ -21755,7 +21300,6 @@
opcode_t *
Parrot_print_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 198 "src/ops/io.ops"
STRING * const s = SREG(1);
if (s && Parrot_str_byte_length(interp, s))
Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
@@ -21765,7 +21309,6 @@
opcode_t *
Parrot_print_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 198 "src/ops/io.ops"
STRING * const s = CONST(1)->u.string;
if (s && Parrot_str_byte_length(interp, s))
Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
@@ -21775,7 +21318,6 @@
opcode_t *
Parrot_print_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 204 "src/ops/io.ops"
PMC * const p = PREG(1);
STRING * const s = (VTABLE_get_string(interp, p));
if (s)
@@ -21786,7 +21328,6 @@
opcode_t *
Parrot_say_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 223 "src/ops/io.ops"
Parrot_io_printf(interp, INTVAL_FMT "\n", (INTVAL)IREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -21794,7 +21335,6 @@
opcode_t *
Parrot_say_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 223 "src/ops/io.ops"
Parrot_io_printf(interp, INTVAL_FMT "\n", (INTVAL)cur_opcode[1]);
return (opcode_t *)cur_opcode + 2;}
@@ -21802,7 +21342,6 @@
opcode_t *
Parrot_say_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 227 "src/ops/io.ops"
#ifdef PARROT_HAS_NEGATIVE_ZERO
Parrot_io_printf(interp, FLOATVAL_FMT "\n", NREG(1));
#else
@@ -21820,7 +21359,6 @@
opcode_t *
Parrot_say_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 227 "src/ops/io.ops"
#ifdef PARROT_HAS_NEGATIVE_ZERO
Parrot_io_printf(interp, FLOATVAL_FMT "\n", CONST(1)->u.number);
#else
@@ -21838,7 +21376,6 @@
opcode_t *
Parrot_say_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 241 "src/ops/io.ops"
STRING * const s = SREG(1);
if (s && Parrot_str_byte_length(interp, s))
Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
@@ -21849,7 +21386,6 @@
opcode_t *
Parrot_say_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 241 "src/ops/io.ops"
STRING * const s = CONST(1)->u.string;
if (s && Parrot_str_byte_length(interp, s))
Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
@@ -21860,7 +21396,6 @@
opcode_t *
Parrot_say_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 248 "src/ops/io.ops"
PMC * const p = PREG(1);
if (PMC_IS_NULL(p)) {
@@ -21881,7 +21416,6 @@
opcode_t *
Parrot_printerr_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 282 "src/ops/io.ops"
Parrot_io_eprintf(interp, INTVAL_FMT, IREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -21889,7 +21423,6 @@
opcode_t *
Parrot_printerr_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 282 "src/ops/io.ops"
Parrot_io_eprintf(interp, INTVAL_FMT, cur_opcode[1]);
return (opcode_t *)cur_opcode + 2;}
@@ -21897,7 +21430,6 @@
opcode_t *
Parrot_printerr_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 286 "src/ops/io.ops"
Parrot_io_eprintf(interp, FLOATVAL_FMT, NREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -21905,7 +21437,6 @@
opcode_t *
Parrot_printerr_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 286 "src/ops/io.ops"
Parrot_io_eprintf(interp, FLOATVAL_FMT, CONST(1)->u.number);
return (opcode_t *)cur_opcode + 2;}
@@ -21913,7 +21444,6 @@
opcode_t *
Parrot_printerr_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 290 "src/ops/io.ops"
STRING * const s = SREG(1);
if (s && Parrot_str_byte_length(interp, s))
Parrot_io_putps(interp, _PIO_STDERR(interp), s);
@@ -21923,7 +21453,6 @@
opcode_t *
Parrot_printerr_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 290 "src/ops/io.ops"
STRING * const s = CONST(1)->u.string;
if (s && Parrot_str_byte_length(interp, s))
Parrot_io_putps(interp, _PIO_STDERR(interp), s);
@@ -21933,7 +21462,6 @@
opcode_t *
Parrot_printerr_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 296 "src/ops/io.ops"
PMC * const p = PREG(1);
STRING * const s = (VTABLE_get_string(interp, p));
if (s)
@@ -21944,7 +21472,6 @@
opcode_t *
Parrot_print_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 317 "src/ops/io.ops"
if (PREG(1)) {
STRING * const s = Parrot_str_from_int(interp, IREG(2));
Parrot_io_putps(interp, PREG(1), s);
@@ -21955,7 +21482,6 @@
opcode_t *
Parrot_print_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 317 "src/ops/io.ops"
if (PREG(1)) {
STRING * const s = Parrot_str_from_int(interp, cur_opcode[2]);
Parrot_io_putps(interp, PREG(1), s);
@@ -21966,7 +21492,6 @@
opcode_t *
Parrot_print_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 324 "src/ops/io.ops"
if (PREG(1)) {
STRING * const s = Parrot_sprintf_c(interp, FLOATVAL_FMT, NREG(2));
Parrot_io_putps(interp, PREG(1), s);
@@ -21977,7 +21502,6 @@
opcode_t *
Parrot_print_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 324 "src/ops/io.ops"
if (PREG(1)) {
STRING * const s = Parrot_sprintf_c(interp, FLOATVAL_FMT, CONST(2)->u.number);
Parrot_io_putps(interp, PREG(1), s);
@@ -21988,7 +21512,6 @@
opcode_t *
Parrot_print_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 331 "src/ops/io.ops"
if (SREG(2) && PREG(1)) {
Parrot_io_putps(interp, PREG(1), SREG(2));
}
@@ -21998,7 +21521,6 @@
opcode_t *
Parrot_print_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 331 "src/ops/io.ops"
if (CONST(2)->u.string && PREG(1)) {
Parrot_io_putps(interp, PREG(1), CONST(2)->u.string);
}
@@ -22008,7 +21530,6 @@
opcode_t *
Parrot_print_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 337 "src/ops/io.ops"
if (PREG(2) && PREG(1)) {
STRING * const s = VTABLE_get_string(interp, PREG(2));
Parrot_io_putps(interp, PREG(1), s);
@@ -22019,7 +21540,6 @@
opcode_t *
Parrot_read_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 356 "src/ops/io.ops"
SREG(1) = Parrot_io_reads(interp, _PIO_STDIN(interp), (size_t)IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -22027,7 +21547,6 @@
opcode_t *
Parrot_read_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 356 "src/ops/io.ops"
SREG(1) = Parrot_io_reads(interp, _PIO_STDIN(interp), (size_t)cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -22035,7 +21554,6 @@
opcode_t *
Parrot_read_s_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 360 "src/ops/io.ops"
SREG(1) = Parrot_io_reads(interp, PREG(2), (size_t)IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -22043,7 +21561,6 @@
opcode_t *
Parrot_read_s_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 360 "src/ops/io.ops"
SREG(1) = Parrot_io_reads(interp, PREG(2), (size_t)cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -22051,7 +21568,6 @@
opcode_t *
Parrot_readline_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 371 "src/ops/io.ops"
SREG(1) = Parrot_io_readline(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -22059,7 +21575,6 @@
opcode_t *
Parrot_peek_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 389 "src/ops/io.ops"
STRING ** const s = &SREG(1);
*s = NULL;
@@ -22072,7 +21587,6 @@
opcode_t *
Parrot_peek_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 398 "src/ops/io.ops"
STRING ** const s = &SREG(1);
*s = NULL;
@@ -22085,7 +21599,6 @@
opcode_t *
Parrot_stat_i_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 431 "src/ops/io.ops"
IREG(1) = Parrot_stat_info_intval(interp, SREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -22093,7 +21606,6 @@
opcode_t *
Parrot_stat_i_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 431 "src/ops/io.ops"
IREG(1) = Parrot_stat_info_intval(interp, CONST(2)->u.string, IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -22101,7 +21613,6 @@
opcode_t *
Parrot_stat_i_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 431 "src/ops/io.ops"
IREG(1) = Parrot_stat_info_intval(interp, SREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -22109,7 +21620,6 @@
opcode_t *
Parrot_stat_i_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 431 "src/ops/io.ops"
IREG(1) = Parrot_stat_info_intval(interp, CONST(2)->u.string, cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -22117,7 +21627,6 @@
opcode_t *
Parrot_stat_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 435 "src/ops/io.ops"
IREG(1) = Parrot_fstat_info_intval(interp, IREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -22125,7 +21634,6 @@
opcode_t *
Parrot_stat_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 435 "src/ops/io.ops"
IREG(1) = Parrot_fstat_info_intval(interp, cur_opcode[2], IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -22133,7 +21641,6 @@
opcode_t *
Parrot_stat_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 435 "src/ops/io.ops"
IREG(1) = Parrot_fstat_info_intval(interp, IREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -22141,7 +21648,6 @@
opcode_t *
Parrot_stat_i_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 435 "src/ops/io.ops"
IREG(1) = Parrot_fstat_info_intval(interp, cur_opcode[2], cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -22149,7 +21655,6 @@
opcode_t *
Parrot_seek_p_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 465 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset(IREG(2)), IREG(3)) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22164,7 +21669,6 @@
opcode_t *
Parrot_seek_p_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 465 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset(cur_opcode[2]), IREG(3)) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22179,7 +21683,6 @@
opcode_t *
Parrot_seek_p_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 465 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset(IREG(2)), cur_opcode[3]) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22194,7 +21697,6 @@
opcode_t *
Parrot_seek_p_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 465 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset(cur_opcode[2]), cur_opcode[3]) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22209,7 +21711,6 @@
opcode_t *
Parrot_seek_p_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 476 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(IREG(2), IREG(3)), IREG(4)) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
@@ -22224,7 +21725,6 @@
opcode_t *
Parrot_seek_p_ic_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 476 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(cur_opcode[2], IREG(3)), IREG(4)) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
@@ -22239,7 +21739,6 @@
opcode_t *
Parrot_seek_p_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 476 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(IREG(2), cur_opcode[3]), IREG(4)) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
@@ -22254,7 +21753,6 @@
opcode_t *
Parrot_seek_p_ic_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 476 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(cur_opcode[2], cur_opcode[3]), IREG(4)) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
@@ -22269,7 +21767,6 @@
opcode_t *
Parrot_seek_p_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 476 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(IREG(2), IREG(3)), cur_opcode[4]) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
@@ -22284,7 +21781,6 @@
opcode_t *
Parrot_seek_p_ic_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 476 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(cur_opcode[2], IREG(3)), cur_opcode[4]) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
@@ -22299,7 +21795,6 @@
opcode_t *
Parrot_seek_p_i_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 476 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(IREG(2), cur_opcode[3]), cur_opcode[4]) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
@@ -22314,7 +21809,6 @@
opcode_t *
Parrot_seek_p_ic_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 476 "src/ops/io.ops"
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(cur_opcode[2], cur_opcode[3]), cur_opcode[4]) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
@@ -22329,7 +21823,6 @@
opcode_t *
Parrot_tell_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 502 "src/ops/io.ops"
if (PREG(2))
IREG(1) = (INTVAL)Parrot_io_tell(interp, PREG(2));
@@ -22338,7 +21831,6 @@
opcode_t *
Parrot_tell_i_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 507 "src/ops/io.ops"
if (PREG(3)) {
PIOOFF_T pos;
pos = Parrot_io_tell(interp, PREG(3));
@@ -22351,7 +21843,6 @@
opcode_t *
Parrot_abs_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 47 "src/ops/math.ops"
IREG(1) = abs(IREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -22359,7 +21850,6 @@
opcode_t *
Parrot_abs_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 51 "src/ops/math.ops"
NREG(1) = fabs(NREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -22367,7 +21857,6 @@
opcode_t *
Parrot_abs_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 55 "src/ops/math.ops"
if (IREG(2) < 0)
IREG(1) = - (INTVAL)IREG(2);
else
@@ -22378,7 +21867,6 @@
opcode_t *
Parrot_abs_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 62 "src/ops/math.ops"
if (NREG(2) < 0)
NREG(1) = - (FLOATVAL)NREG(2);
else
@@ -22389,7 +21877,6 @@
opcode_t *
Parrot_abs_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 69 "src/ops/math.ops"
VTABLE_i_absolute(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -22397,7 +21884,6 @@
opcode_t *
Parrot_abs_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 73 "src/ops/math.ops"
PREG(1) = VTABLE_absolute(interp, PREG(2), PREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -22405,7 +21891,6 @@
opcode_t *
Parrot_add_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 105 "src/ops/math.ops"
IREG(1) += IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -22413,7 +21898,6 @@
opcode_t *
Parrot_add_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 105 "src/ops/math.ops"
IREG(1) += cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
@@ -22421,7 +21905,6 @@
opcode_t *
Parrot_add_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 109 "src/ops/math.ops"
NREG(1) += NREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -22429,7 +21912,6 @@
opcode_t *
Parrot_add_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 109 "src/ops/math.ops"
NREG(1) += CONST(2)->u.number;
return (opcode_t *)cur_opcode + 3;}
@@ -22437,7 +21919,6 @@
opcode_t *
Parrot_add_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 113 "src/ops/math.ops"
VTABLE_i_add(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -22445,7 +21926,6 @@
opcode_t *
Parrot_add_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 117 "src/ops/math.ops"
VTABLE_i_add_int(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -22453,7 +21933,6 @@
opcode_t *
Parrot_add_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 117 "src/ops/math.ops"
VTABLE_i_add_int(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -22461,7 +21940,6 @@
opcode_t *
Parrot_add_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 121 "src/ops/math.ops"
VTABLE_i_add_float(interp, PREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -22469,7 +21947,6 @@
opcode_t *
Parrot_add_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 121 "src/ops/math.ops"
VTABLE_i_add_float(interp, PREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -22477,7 +21954,6 @@
opcode_t *
Parrot_add_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 125 "src/ops/math.ops"
IREG(1) = IREG(2) + IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -22485,7 +21961,6 @@
opcode_t *
Parrot_add_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 125 "src/ops/math.ops"
IREG(1) = cur_opcode[2] + IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -22493,7 +21968,6 @@
opcode_t *
Parrot_add_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 125 "src/ops/math.ops"
IREG(1) = IREG(2) + cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
@@ -22501,7 +21975,6 @@
opcode_t *
Parrot_add_n_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 129 "src/ops/math.ops"
NREG(1) = NREG(2) + NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -22509,7 +21982,6 @@
opcode_t *
Parrot_add_n_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 129 "src/ops/math.ops"
NREG(1) = CONST(2)->u.number + NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -22517,7 +21989,6 @@
opcode_t *
Parrot_add_n_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 129 "src/ops/math.ops"
NREG(1) = NREG(2) + CONST(3)->u.number;
return (opcode_t *)cur_opcode + 4;}
@@ -22525,7 +21996,6 @@
opcode_t *
Parrot_add_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 133 "src/ops/math.ops"
PREG(1) = VTABLE_add(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -22533,7 +22003,6 @@
opcode_t *
Parrot_add_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 137 "src/ops/math.ops"
PREG(1) = VTABLE_add_int(interp, PREG(2), IREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -22541,7 +22010,6 @@
opcode_t *
Parrot_add_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 137 "src/ops/math.ops"
PREG(1) = VTABLE_add_int(interp, PREG(2), cur_opcode[3], PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -22549,7 +22017,6 @@
opcode_t *
Parrot_add_p_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 141 "src/ops/math.ops"
PREG(1) = VTABLE_add_float(interp, PREG(2), NREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -22557,7 +22024,6 @@
opcode_t *
Parrot_add_p_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 141 "src/ops/math.ops"
PREG(1) = VTABLE_add_float(interp, PREG(2), CONST(3)->u.number, PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -22565,7 +22031,6 @@
opcode_t *
Parrot_cmod_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 186 "src/ops/math.ops"
INTVAL den = IREG(3);
if (IREG(3) == 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22580,7 +22045,6 @@
opcode_t *
Parrot_cmod_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 186 "src/ops/math.ops"
INTVAL den = IREG(3);
if (IREG(3) == 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22595,7 +22059,6 @@
opcode_t *
Parrot_cmod_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 186 "src/ops/math.ops"
INTVAL den = cur_opcode[3];
if (cur_opcode[3] == 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22610,7 +22073,6 @@
opcode_t *
Parrot_cmod_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 197 "src/ops/math.ops"
INTVAL result;
if (IREG(3) == 0) {
@@ -22630,7 +22092,6 @@
opcode_t *
Parrot_cmod_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 197 "src/ops/math.ops"
INTVAL result;
if (cur_opcode[3] == 0) {
@@ -22650,7 +22111,6 @@
opcode_t *
Parrot_cmod_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 213 "src/ops/math.ops"
INTVAL result;
INTVAL value = VTABLE_get_integer(interp, PREG(3));
@@ -22671,7 +22131,6 @@
opcode_t *
Parrot_cmod_n_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 263 "src/ops/math.ops"
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(NREG(3))) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22686,7 +22145,6 @@
opcode_t *
Parrot_cmod_n_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 263 "src/ops/math.ops"
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(NREG(3))) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22701,7 +22159,6 @@
opcode_t *
Parrot_cmod_n_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 263 "src/ops/math.ops"
FLOATVAL den = CONST(3)->u.number;
if (FLOAT_IS_ZERO(CONST(3)->u.number)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22716,7 +22173,6 @@
opcode_t *
Parrot_cmod_p_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 274 "src/ops/math.ops"
FLOATVAL result;
FLOATVAL value = NREG(3);
@@ -22737,7 +22193,6 @@
opcode_t *
Parrot_cmod_p_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 274 "src/ops/math.ops"
FLOATVAL result;
FLOATVAL value = CONST(3)->u.number;
@@ -22758,7 +22213,6 @@
opcode_t *
Parrot_dec_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 303 "src/ops/math.ops"
IREG(1)--;
return (opcode_t *)cur_opcode + 2;}
@@ -22766,7 +22220,6 @@
opcode_t *
Parrot_dec_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 307 "src/ops/math.ops"
NREG(1)--;
return (opcode_t *)cur_opcode + 2;}
@@ -22774,7 +22227,6 @@
opcode_t *
Parrot_dec_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 311 "src/ops/math.ops"
VTABLE_decrement(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -22782,7 +22234,6 @@
opcode_t *
Parrot_div_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 345 "src/ops/math.ops"
INTVAL den = IREG(2);
if (den == 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
@@ -22797,7 +22248,6 @@
opcode_t *
Parrot_div_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 345 "src/ops/math.ops"
INTVAL den = cur_opcode[2];
if (den == 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
@@ -22812,7 +22262,6 @@
opcode_t *
Parrot_div_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 356 "src/ops/math.ops"
FLOATVAL den = NREG(2);
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
@@ -22827,7 +22276,6 @@
opcode_t *
Parrot_div_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 356 "src/ops/math.ops"
FLOATVAL den = CONST(2)->u.number;
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
@@ -22842,7 +22290,6 @@
opcode_t *
Parrot_div_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 367 "src/ops/math.ops"
VTABLE_i_divide(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -22850,7 +22297,6 @@
opcode_t *
Parrot_div_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 371 "src/ops/math.ops"
VTABLE_i_divide_int(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -22858,7 +22304,6 @@
opcode_t *
Parrot_div_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 371 "src/ops/math.ops"
VTABLE_i_divide_int(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -22866,7 +22311,6 @@
opcode_t *
Parrot_div_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 375 "src/ops/math.ops"
VTABLE_i_divide_float(interp, PREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -22874,7 +22318,6 @@
opcode_t *
Parrot_div_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 375 "src/ops/math.ops"
VTABLE_i_divide_float(interp, PREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -22882,7 +22325,6 @@
opcode_t *
Parrot_div_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 378 "src/ops/math.ops"
INTVAL den = IREG(3);
if (den == 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22897,7 +22339,6 @@
opcode_t *
Parrot_div_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 378 "src/ops/math.ops"
INTVAL den = IREG(3);
if (den == 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22912,7 +22353,6 @@
opcode_t *
Parrot_div_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 378 "src/ops/math.ops"
INTVAL den = cur_opcode[3];
if (den == 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22927,7 +22367,6 @@
opcode_t *
Parrot_div_i_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 378 "src/ops/math.ops"
INTVAL den = cur_opcode[3];
if (den == 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22942,7 +22381,6 @@
opcode_t *
Parrot_div_n_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 389 "src/ops/math.ops"
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22957,7 +22395,6 @@
opcode_t *
Parrot_div_n_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 389 "src/ops/math.ops"
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22972,7 +22409,6 @@
opcode_t *
Parrot_div_n_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 389 "src/ops/math.ops"
FLOATVAL den = CONST(3)->u.number;
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -22987,7 +22423,6 @@
opcode_t *
Parrot_div_n_nc_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 389 "src/ops/math.ops"
FLOATVAL den = CONST(3)->u.number;
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -23002,7 +22437,6 @@
opcode_t *
Parrot_div_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 400 "src/ops/math.ops"
PREG(1) = VTABLE_divide(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23010,7 +22444,6 @@
opcode_t *
Parrot_div_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 404 "src/ops/math.ops"
PREG(1) = VTABLE_divide_int(interp, PREG(2), IREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23018,7 +22451,6 @@
opcode_t *
Parrot_div_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 404 "src/ops/math.ops"
PREG(1) = VTABLE_divide_int(interp, PREG(2), cur_opcode[3], PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23026,7 +22458,6 @@
opcode_t *
Parrot_div_p_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 408 "src/ops/math.ops"
PREG(1) = VTABLE_divide_float(interp, PREG(2), NREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23034,7 +22465,6 @@
opcode_t *
Parrot_div_p_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 408 "src/ops/math.ops"
PREG(1) = VTABLE_divide_float(interp, PREG(2), CONST(3)->u.number, PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23042,7 +22472,6 @@
opcode_t *
Parrot_fdiv_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 441 "src/ops/math.ops"
INTVAL den = IREG(2);
FLOATVAL f;
@@ -23061,7 +22490,6 @@
opcode_t *
Parrot_fdiv_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 441 "src/ops/math.ops"
INTVAL den = cur_opcode[2];
FLOATVAL f;
@@ -23080,7 +22508,6 @@
opcode_t *
Parrot_fdiv_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 456 "src/ops/math.ops"
FLOATVAL den = NREG(2);
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
@@ -23095,7 +22522,6 @@
opcode_t *
Parrot_fdiv_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 456 "src/ops/math.ops"
FLOATVAL den = CONST(2)->u.number;
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
@@ -23110,7 +22536,6 @@
opcode_t *
Parrot_fdiv_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 467 "src/ops/math.ops"
VTABLE_i_floor_divide(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23118,7 +22543,6 @@
opcode_t *
Parrot_fdiv_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 471 "src/ops/math.ops"
VTABLE_i_floor_divide_int(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23126,7 +22550,6 @@
opcode_t *
Parrot_fdiv_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 471 "src/ops/math.ops"
VTABLE_i_floor_divide_int(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -23134,7 +22557,6 @@
opcode_t *
Parrot_fdiv_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 475 "src/ops/math.ops"
VTABLE_i_floor_divide_float(interp, PREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23142,7 +22564,6 @@
opcode_t *
Parrot_fdiv_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 475 "src/ops/math.ops"
VTABLE_i_floor_divide_float(interp, PREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -23150,7 +22571,6 @@
opcode_t *
Parrot_fdiv_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 479 "src/ops/math.ops"
INTVAL den = IREG(3);
FLOATVAL f;
@@ -23169,7 +22589,6 @@
opcode_t *
Parrot_fdiv_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 479 "src/ops/math.ops"
INTVAL den = IREG(3);
FLOATVAL f;
@@ -23188,7 +22607,6 @@
opcode_t *
Parrot_fdiv_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 479 "src/ops/math.ops"
INTVAL den = cur_opcode[3];
FLOATVAL f;
@@ -23207,7 +22625,6 @@
opcode_t *
Parrot_fdiv_n_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 494 "src/ops/math.ops"
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -23222,7 +22639,6 @@
opcode_t *
Parrot_fdiv_n_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 494 "src/ops/math.ops"
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -23237,7 +22653,6 @@
opcode_t *
Parrot_fdiv_n_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 494 "src/ops/math.ops"
FLOATVAL den = CONST(3)->u.number;
if (FLOAT_IS_ZERO(den)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
@@ -23252,7 +22667,6 @@
opcode_t *
Parrot_fdiv_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 505 "src/ops/math.ops"
PREG(1) = VTABLE_floor_divide(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23260,7 +22674,6 @@
opcode_t *
Parrot_fdiv_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 509 "src/ops/math.ops"
PREG(1) = VTABLE_floor_divide_int(interp, PREG(2), IREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23268,7 +22681,6 @@
opcode_t *
Parrot_fdiv_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 509 "src/ops/math.ops"
PREG(1) = VTABLE_floor_divide_int(interp, PREG(2), cur_opcode[3], PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23276,7 +22688,6 @@
opcode_t *
Parrot_fdiv_p_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 513 "src/ops/math.ops"
PREG(1) = VTABLE_floor_divide_float(interp, PREG(2), NREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23284,7 +22695,6 @@
opcode_t *
Parrot_fdiv_p_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 513 "src/ops/math.ops"
PREG(1) = VTABLE_floor_divide_float(interp, PREG(2), CONST(3)->u.number, PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23292,7 +22702,6 @@
opcode_t *
Parrot_ceil_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 531 "src/ops/math.ops"
NREG(1) = ceil(NREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -23300,7 +22709,6 @@
opcode_t *
Parrot_ceil_i_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 535 "src/ops/math.ops"
FLOATVAL f = ceil(NREG(2));
IREG(1) = (INTVAL)f;
@@ -23309,7 +22717,6 @@
opcode_t *
Parrot_ceil_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 540 "src/ops/math.ops"
NREG(1) = ceil(NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23317,7 +22724,6 @@
opcode_t *
Parrot_floor_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 558 "src/ops/math.ops"
NREG(1) = floor(NREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -23325,7 +22731,6 @@
opcode_t *
Parrot_floor_i_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 562 "src/ops/math.ops"
FLOATVAL f = floor(NREG(2));
IREG(1) = (INTVAL)f;
@@ -23334,7 +22739,6 @@
opcode_t *
Parrot_floor_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 567 "src/ops/math.ops"
NREG(1) = floor(NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23342,7 +22746,6 @@
opcode_t *
Parrot_inc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 583 "src/ops/math.ops"
IREG(1)++;
return (opcode_t *)cur_opcode + 2;}
@@ -23350,7 +22753,6 @@
opcode_t *
Parrot_inc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 587 "src/ops/math.ops"
NREG(1)++;
return (opcode_t *)cur_opcode + 2;}
@@ -23358,7 +22760,6 @@
opcode_t *
Parrot_inc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 591 "src/ops/math.ops"
VTABLE_increment(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -23366,7 +22767,6 @@
opcode_t *
Parrot_mod_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 643 "src/ops/math.ops"
IREG(1) = intval_mod(IREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23374,7 +22774,6 @@
opcode_t *
Parrot_mod_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 643 "src/ops/math.ops"
IREG(1) = intval_mod(IREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -23382,7 +22781,6 @@
opcode_t *
Parrot_mod_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 647 "src/ops/math.ops"
NREG(1) = floatval_mod(NREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23390,7 +22788,6 @@
opcode_t *
Parrot_mod_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 647 "src/ops/math.ops"
NREG(1) = floatval_mod(NREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -23398,7 +22795,6 @@
opcode_t *
Parrot_mod_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 651 "src/ops/math.ops"
VTABLE_i_modulus(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23406,7 +22802,6 @@
opcode_t *
Parrot_mod_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 655 "src/ops/math.ops"
VTABLE_i_modulus_int(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23414,7 +22809,6 @@
opcode_t *
Parrot_mod_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 655 "src/ops/math.ops"
VTABLE_i_modulus_int(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -23422,7 +22816,6 @@
opcode_t *
Parrot_mod_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 659 "src/ops/math.ops"
VTABLE_i_modulus_float(interp, PREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23430,7 +22823,6 @@
opcode_t *
Parrot_mod_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 659 "src/ops/math.ops"
VTABLE_i_modulus_float(interp, PREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -23438,7 +22830,6 @@
opcode_t *
Parrot_mod_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 663 "src/ops/math.ops"
IREG(1) = intval_mod(IREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -23446,7 +22837,6 @@
opcode_t *
Parrot_mod_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 663 "src/ops/math.ops"
IREG(1) = intval_mod(cur_opcode[2], IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -23454,7 +22844,6 @@
opcode_t *
Parrot_mod_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 663 "src/ops/math.ops"
IREG(1) = intval_mod(IREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -23462,7 +22851,6 @@
opcode_t *
Parrot_mod_n_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 667 "src/ops/math.ops"
NREG(1) = floatval_mod(NREG(2), NREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -23470,7 +22858,6 @@
opcode_t *
Parrot_mod_n_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 667 "src/ops/math.ops"
NREG(1) = floatval_mod(CONST(2)->u.number, NREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -23478,7 +22865,6 @@
opcode_t *
Parrot_mod_n_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 667 "src/ops/math.ops"
NREG(1) = floatval_mod(NREG(2), CONST(3)->u.number);
return (opcode_t *)cur_opcode + 4;}
@@ -23486,7 +22872,6 @@
opcode_t *
Parrot_mod_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 671 "src/ops/math.ops"
PREG(1) = VTABLE_modulus(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23494,7 +22879,6 @@
opcode_t *
Parrot_mod_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 675 "src/ops/math.ops"
PREG(1) = VTABLE_modulus_int(interp, PREG(2), IREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23502,7 +22886,6 @@
opcode_t *
Parrot_mod_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 675 "src/ops/math.ops"
PREG(1) = VTABLE_modulus_int(interp, PREG(2), cur_opcode[3], PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23510,7 +22893,6 @@
opcode_t *
Parrot_mod_p_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 679 "src/ops/math.ops"
PREG(1) = VTABLE_modulus_float(interp, PREG(2), NREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23518,7 +22900,6 @@
opcode_t *
Parrot_mod_p_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 679 "src/ops/math.ops"
PREG(1) = VTABLE_modulus_float(interp, PREG(2), CONST(3)->u.number, PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23526,7 +22907,6 @@
opcode_t *
Parrot_mul_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 711 "src/ops/math.ops"
IREG(1) *= IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -23534,7 +22914,6 @@
opcode_t *
Parrot_mul_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 711 "src/ops/math.ops"
IREG(1) *= cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
@@ -23542,7 +22921,6 @@
opcode_t *
Parrot_mul_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 715 "src/ops/math.ops"
NREG(1) *= NREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -23550,7 +22928,6 @@
opcode_t *
Parrot_mul_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 715 "src/ops/math.ops"
NREG(1) *= CONST(2)->u.number;
return (opcode_t *)cur_opcode + 3;}
@@ -23558,7 +22935,6 @@
opcode_t *
Parrot_mul_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 719 "src/ops/math.ops"
VTABLE_i_multiply(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23566,7 +22942,6 @@
opcode_t *
Parrot_mul_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 723 "src/ops/math.ops"
VTABLE_i_multiply_int(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23574,7 +22949,6 @@
opcode_t *
Parrot_mul_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 723 "src/ops/math.ops"
VTABLE_i_multiply_int(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -23582,7 +22956,6 @@
opcode_t *
Parrot_mul_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 727 "src/ops/math.ops"
VTABLE_i_multiply_float(interp, PREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23590,7 +22963,6 @@
opcode_t *
Parrot_mul_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 727 "src/ops/math.ops"
VTABLE_i_multiply_float(interp, PREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -23598,7 +22970,6 @@
opcode_t *
Parrot_mul_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 731 "src/ops/math.ops"
IREG(1) = IREG(2) * IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -23606,7 +22977,6 @@
opcode_t *
Parrot_mul_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 731 "src/ops/math.ops"
IREG(1) = cur_opcode[2] * IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -23614,7 +22984,6 @@
opcode_t *
Parrot_mul_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 731 "src/ops/math.ops"
IREG(1) = IREG(2) * cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
@@ -23622,7 +22991,6 @@
opcode_t *
Parrot_mul_n_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 735 "src/ops/math.ops"
NREG(1) = NREG(2) * NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -23630,7 +22998,6 @@
opcode_t *
Parrot_mul_n_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 735 "src/ops/math.ops"
NREG(1) = CONST(2)->u.number * NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -23638,7 +23005,6 @@
opcode_t *
Parrot_mul_n_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 735 "src/ops/math.ops"
NREG(1) = NREG(2) * CONST(3)->u.number;
return (opcode_t *)cur_opcode + 4;}
@@ -23646,7 +23012,6 @@
opcode_t *
Parrot_mul_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 739 "src/ops/math.ops"
PREG(1) = VTABLE_multiply(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23654,7 +23019,6 @@
opcode_t *
Parrot_mul_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 743 "src/ops/math.ops"
PREG(1) = VTABLE_multiply_int(interp, PREG(2), IREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23662,7 +23026,6 @@
opcode_t *
Parrot_mul_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 743 "src/ops/math.ops"
PREG(1) = VTABLE_multiply_int(interp, PREG(2), cur_opcode[3], PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23670,7 +23033,6 @@
opcode_t *
Parrot_mul_p_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 747 "src/ops/math.ops"
PREG(1) = VTABLE_multiply_float(interp, PREG(2), NREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23678,7 +23040,6 @@
opcode_t *
Parrot_mul_p_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 747 "src/ops/math.ops"
PREG(1) = VTABLE_multiply_float(interp, PREG(2), CONST(3)->u.number, PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -23686,7 +23047,6 @@
opcode_t *
Parrot_neg_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 771 "src/ops/math.ops"
IREG(1) = - IREG(1);
return (opcode_t *)cur_opcode + 2;}
@@ -23694,7 +23054,6 @@
opcode_t *
Parrot_neg_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 775 "src/ops/math.ops"
NREG(1) = - NREG(1);
return (opcode_t *)cur_opcode + 2;}
@@ -23702,7 +23061,6 @@
opcode_t *
Parrot_neg_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 779 "src/ops/math.ops"
VTABLE_i_neg(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -23710,7 +23068,6 @@
opcode_t *
Parrot_neg_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 783 "src/ops/math.ops"
IREG(1) = - IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -23718,7 +23075,6 @@
opcode_t *
Parrot_neg_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 787 "src/ops/math.ops"
NREG(1) = - NREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -23726,7 +23082,6 @@
opcode_t *
Parrot_neg_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 791 "src/ops/math.ops"
PREG(1) = VTABLE_neg(interp, PREG(2), PREG(1));
return (opcode_t *)cur_opcode + 3;}
@@ -23734,7 +23089,6 @@
opcode_t *
Parrot_pow_n_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 811 "src/ops/math.ops"
NREG(1) = pow((FLOATVAL)NREG(2), (FLOATVAL)NREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -23742,7 +23096,6 @@
opcode_t *
Parrot_pow_n_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 811 "src/ops/math.ops"
NREG(1) = pow((FLOATVAL)CONST(2)->u.number, (FLOATVAL)NREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -23750,7 +23103,6 @@
opcode_t *
Parrot_pow_n_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 811 "src/ops/math.ops"
NREG(1) = pow((FLOATVAL)NREG(2), (FLOATVAL)CONST(3)->u.number);
return (opcode_t *)cur_opcode + 4;}
@@ -23758,7 +23110,6 @@
opcode_t *
Parrot_pow_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 815 "src/ops/math.ops"
const FLOATVAL a = VTABLE_get_number(interp, PREG(2));
const FLOATVAL b = VTABLE_get_number(interp, PREG(3));
const FLOATVAL c = pow(a, b);
@@ -23773,7 +23124,6 @@
opcode_t *
Parrot_pow_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 826 "src/ops/math.ops"
const FLOATVAL a = VTABLE_get_number(interp, PREG(2));
const FLOATVAL b = (FLOATVAL)IREG(3);
const FLOATVAL c = pow(a, b);
@@ -23788,7 +23138,6 @@
opcode_t *
Parrot_pow_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 826 "src/ops/math.ops"
const FLOATVAL a = VTABLE_get_number(interp, PREG(2));
const FLOATVAL b = (FLOATVAL)cur_opcode[3];
const FLOATVAL c = pow(a, b);
@@ -23803,7 +23152,6 @@
opcode_t *
Parrot_pow_p_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 837 "src/ops/math.ops"
const FLOATVAL a = VTABLE_get_number(interp, PREG(2));
const FLOATVAL c = pow(a, NREG(3));
if (PMC_IS_NULL(PREG(1)))
@@ -23817,7 +23165,6 @@
opcode_t *
Parrot_pow_p_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 837 "src/ops/math.ops"
const FLOATVAL a = VTABLE_get_number(interp, PREG(2));
const FLOATVAL c = pow(a, CONST(3)->u.number);
if (PMC_IS_NULL(PREG(1)))
@@ -23831,7 +23178,6 @@
opcode_t *
Parrot_pow_n_n_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 847 "src/ops/math.ops"
FLOATVAL n2 = NREG(2);
FLOATVAL res = 1.0;
INTVAL e = IREG(3);
@@ -23859,7 +23205,6 @@
opcode_t *
Parrot_pow_n_nc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 847 "src/ops/math.ops"
FLOATVAL n2 = CONST(2)->u.number;
FLOATVAL res = 1.0;
INTVAL e = IREG(3);
@@ -23887,7 +23232,6 @@
opcode_t *
Parrot_pow_n_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 847 "src/ops/math.ops"
FLOATVAL n2 = NREG(2);
FLOATVAL res = 1.0;
INTVAL e = cur_opcode[3];
@@ -23915,7 +23259,6 @@
opcode_t *
Parrot_pow_n_nc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 847 "src/ops/math.ops"
FLOATVAL n2 = CONST(2)->u.number;
FLOATVAL res = 1.0;
INTVAL e = cur_opcode[3];
@@ -23943,7 +23286,6 @@
opcode_t *
Parrot_sub_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 899 "src/ops/math.ops"
IREG(1) -= IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -23951,7 +23293,6 @@
opcode_t *
Parrot_sub_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 899 "src/ops/math.ops"
IREG(1) -= cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
@@ -23959,7 +23300,6 @@
opcode_t *
Parrot_sub_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 903 "src/ops/math.ops"
NREG(1) -= NREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -23967,7 +23307,6 @@
opcode_t *
Parrot_sub_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 903 "src/ops/math.ops"
NREG(1) -= CONST(2)->u.number;
return (opcode_t *)cur_opcode + 3;}
@@ -23975,7 +23314,6 @@
opcode_t *
Parrot_sub_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 907 "src/ops/math.ops"
VTABLE_i_subtract(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23983,7 +23321,6 @@
opcode_t *
Parrot_sub_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 911 "src/ops/math.ops"
VTABLE_i_subtract_int(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -23991,7 +23328,6 @@
opcode_t *
Parrot_sub_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 911 "src/ops/math.ops"
VTABLE_i_subtract_int(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -23999,7 +23335,6 @@
opcode_t *
Parrot_sub_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 915 "src/ops/math.ops"
VTABLE_i_subtract_float(interp, PREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24007,7 +23342,6 @@
opcode_t *
Parrot_sub_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 915 "src/ops/math.ops"
VTABLE_i_subtract_float(interp, PREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -24015,7 +23349,6 @@
opcode_t *
Parrot_sub_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 919 "src/ops/math.ops"
IREG(1) = IREG(2) - IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -24023,7 +23356,6 @@
opcode_t *
Parrot_sub_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 919 "src/ops/math.ops"
IREG(1) = cur_opcode[2] - IREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -24031,7 +23363,6 @@
opcode_t *
Parrot_sub_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 919 "src/ops/math.ops"
IREG(1) = IREG(2) - cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
@@ -24039,7 +23370,6 @@
opcode_t *
Parrot_sub_n_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 923 "src/ops/math.ops"
NREG(1) = NREG(2) - NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -24047,7 +23377,6 @@
opcode_t *
Parrot_sub_n_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 923 "src/ops/math.ops"
NREG(1) = CONST(2)->u.number - NREG(3);
return (opcode_t *)cur_opcode + 4;}
@@ -24055,7 +23384,6 @@
opcode_t *
Parrot_sub_n_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 923 "src/ops/math.ops"
NREG(1) = NREG(2) - CONST(3)->u.number;
return (opcode_t *)cur_opcode + 4;}
@@ -24063,7 +23391,6 @@
opcode_t *
Parrot_sub_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 927 "src/ops/math.ops"
PREG(1) = VTABLE_subtract(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -24071,7 +23398,6 @@
opcode_t *
Parrot_sub_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 931 "src/ops/math.ops"
PREG(1) = VTABLE_subtract_int(interp, PREG(2), IREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -24079,7 +23405,6 @@
opcode_t *
Parrot_sub_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 931 "src/ops/math.ops"
PREG(1) = VTABLE_subtract_int(interp, PREG(2), cur_opcode[3], PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -24087,7 +23412,6 @@
opcode_t *
Parrot_sub_p_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 935 "src/ops/math.ops"
PREG(1) = VTABLE_subtract_float(interp, PREG(2), NREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -24095,7 +23419,6 @@
opcode_t *
Parrot_sub_p_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 935 "src/ops/math.ops"
PREG(1) = VTABLE_subtract_float(interp, PREG(2), CONST(3)->u.number, PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -24103,7 +23426,6 @@
opcode_t *
Parrot_sqrt_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 947 "src/ops/math.ops"
NREG(1) = sqrt((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24111,7 +23433,6 @@
opcode_t *
Parrot_acos_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 976 "src/ops/math.ops"
NREG(1) = acos((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24119,7 +23440,6 @@
opcode_t *
Parrot_asec_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 988 "src/ops/math.ops"
NREG(1) = acos(((FLOATVAL)1) / ((FLOATVAL)NREG(2)));
return (opcode_t *)cur_opcode + 3;}
@@ -24127,7 +23447,6 @@
opcode_t *
Parrot_asin_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1001 "src/ops/math.ops"
NREG(1) = asin((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24135,7 +23454,6 @@
opcode_t *
Parrot_atan_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1019 "src/ops/math.ops"
NREG(1) = atan((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24143,7 +23461,6 @@
opcode_t *
Parrot_atan_n_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1023 "src/ops/math.ops"
NREG(1) = atan2((FLOATVAL)NREG(2), (FLOATVAL)NREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -24151,7 +23468,6 @@
opcode_t *
Parrot_atan_n_nc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1023 "src/ops/math.ops"
NREG(1) = atan2((FLOATVAL)CONST(2)->u.number, (FLOATVAL)NREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -24159,7 +23475,6 @@
opcode_t *
Parrot_atan_n_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1023 "src/ops/math.ops"
NREG(1) = atan2((FLOATVAL)NREG(2), (FLOATVAL)CONST(3)->u.number);
return (opcode_t *)cur_opcode + 4;}
@@ -24167,7 +23482,6 @@
opcode_t *
Parrot_cos_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1035 "src/ops/math.ops"
NREG(1) = cos((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24175,7 +23489,6 @@
opcode_t *
Parrot_cosh_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1047 "src/ops/math.ops"
NREG(1) = cosh((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24183,7 +23496,6 @@
opcode_t *
Parrot_exp_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1060 "src/ops/math.ops"
NREG(1) = exp((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24191,7 +23503,6 @@
opcode_t *
Parrot_ln_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1072 "src/ops/math.ops"
NREG(1) = log((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24199,7 +23510,6 @@
opcode_t *
Parrot_log10_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1084 "src/ops/math.ops"
NREG(1) = log10((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24207,7 +23517,6 @@
opcode_t *
Parrot_log2_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1096 "src/ops/math.ops"
FLOATVAL temp = log((FLOATVAL)2.0);
NREG(1) = log((FLOATVAL)NREG(2)) / temp;
@@ -24216,7 +23525,6 @@
opcode_t *
Parrot_sec_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1109 "src/ops/math.ops"
NREG(1) = ((FLOATVAL)1) / cos((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24224,7 +23532,6 @@
opcode_t *
Parrot_sech_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1121 "src/ops/math.ops"
NREG(1) = ((FLOATVAL)1) / cosh((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24232,7 +23539,6 @@
opcode_t *
Parrot_sin_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1133 "src/ops/math.ops"
NREG(1) = sin((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24240,7 +23546,6 @@
opcode_t *
Parrot_sinh_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1145 "src/ops/math.ops"
NREG(1) = sinh((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24248,7 +23553,6 @@
opcode_t *
Parrot_tan_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1157 "src/ops/math.ops"
NREG(1) = tan((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24256,7 +23560,6 @@
opcode_t *
Parrot_tanh_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1169 "src/ops/math.ops"
NREG(1) = tanh((FLOATVAL)NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24264,7 +23567,6 @@
opcode_t *
Parrot_gcd_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1195 "src/ops/math.ops"
INTVAL p = 0;
INTVAL a = IREG(2) < 0 ? -IREG(2) : IREG(2);
INTVAL b = IREG(3) < 0 ? -IREG(3) : IREG(3);
@@ -24292,7 +23594,6 @@
opcode_t *
Parrot_gcd_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1195 "src/ops/math.ops"
INTVAL p = 0;
INTVAL a = cur_opcode[2] < 0 ? -cur_opcode[2] : cur_opcode[2];
INTVAL b = IREG(3) < 0 ? -IREG(3) : IREG(3);
@@ -24320,7 +23621,6 @@
opcode_t *
Parrot_gcd_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1195 "src/ops/math.ops"
INTVAL p = 0;
INTVAL a = IREG(2) < 0 ? -IREG(2) : IREG(2);
INTVAL b = cur_opcode[3] < 0 ? -cur_opcode[3] : cur_opcode[3];
@@ -24348,7 +23648,6 @@
opcode_t *
Parrot_lcm_i_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1228 "src/ops/math.ops"
INTVAL gcd = 0;
INTVAL p = 0;
INTVAL a = IREG(2) < 0 ? -IREG(2) : IREG(2);
@@ -24379,7 +23678,6 @@
opcode_t *
Parrot_lcm_i_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1228 "src/ops/math.ops"
INTVAL gcd = 0;
INTVAL p = 0;
INTVAL a = cur_opcode[2] < 0 ? -cur_opcode[2] : cur_opcode[2];
@@ -24410,7 +23708,6 @@
opcode_t *
Parrot_lcm_i_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1228 "src/ops/math.ops"
INTVAL gcd = 0;
INTVAL p = 0;
INTVAL a = IREG(2) < 0 ? -IREG(2) : IREG(2);
@@ -24441,7 +23738,6 @@
opcode_t *
Parrot_fact_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1265 "src/ops/math.ops"
/* Coercing a negative to a UINT can get pretty ugly
* in this situation. */
INTVAL i = IREG(2);
@@ -24457,7 +23753,6 @@
opcode_t *
Parrot_fact_n_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 1277 "src/ops/math.ops"
/* Coercing a negative to a UINT can get pretty ugly
* in this situation. */
INTVAL i = IREG(2);
@@ -24473,7 +23768,6 @@
opcode_t *
Parrot_callmethodcc_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 50 "src/ops/object.ops"
PMC * const object = PREG(1);
STRING * const meth = SREG(2);
opcode_t * const next = cur_opcode + 3;
@@ -24506,7 +23800,6 @@
opcode_t *
Parrot_callmethodcc_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 50 "src/ops/object.ops"
PMC * const object = PREG(1);
STRING * const meth = CONST(2)->u.string;
opcode_t * const next = cur_opcode + 3;
@@ -24539,7 +23832,6 @@
opcode_t *
Parrot_callmethodcc_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 80 "src/ops/object.ops"
opcode_t *dest;
opcode_t * const next = cur_opcode + 3;
@@ -24553,7 +23845,6 @@
opcode_t *
Parrot_callmethod_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 91 "src/ops/object.ops"
PMC * const object = PREG(1);
STRING * const meth = SREG(2);
opcode_t * const next = cur_opcode + 4;
@@ -24578,7 +23869,6 @@
opcode_t *
Parrot_callmethod_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 91 "src/ops/object.ops"
PMC * const object = PREG(1);
STRING * const meth = CONST(2)->u.string;
opcode_t * const next = cur_opcode + 4;
@@ -24603,7 +23893,6 @@
opcode_t *
Parrot_callmethod_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 113 "src/ops/object.ops"
PMC * const object = PREG(1);
PMC * const method_pmc = PREG(2);
opcode_t * const next = cur_opcode + 4;
@@ -24619,7 +23908,6 @@
opcode_t *
Parrot_tailcallmethod_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 126 "src/ops/object.ops"
opcode_t * const next = cur_opcode + 3;
PMC * const object = PREG(1);
STRING * const meth = SREG(2);
@@ -24644,7 +23932,6 @@
opcode_t *
Parrot_tailcallmethod_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 126 "src/ops/object.ops"
opcode_t * const next = cur_opcode + 3;
PMC * const object = PREG(1);
STRING * const meth = CONST(2)->u.string;
@@ -24669,7 +23956,6 @@
opcode_t *
Parrot_tailcallmethod_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 148 "src/ops/object.ops"
opcode_t * const next = cur_opcode + 3;
PMC * const object = PREG(1);
PMC * const method_pmc = PREG(2);
@@ -24687,7 +23973,6 @@
opcode_t *
Parrot_addmethod_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 169 "src/ops/object.ops"
VTABLE_add_method(interp, PREG(1), SREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -24695,7 +23980,6 @@
opcode_t *
Parrot_addmethod_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 169 "src/ops/object.ops"
VTABLE_add_method(interp, PREG(1), CONST(2)->u.string, PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -24703,7 +23987,6 @@
opcode_t *
Parrot_can_i_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 181 "src/ops/object.ops"
IREG(1) = VTABLE_can(interp, PREG(2), SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -24711,7 +23994,6 @@
opcode_t *
Parrot_can_i_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 181 "src/ops/object.ops"
IREG(1) = VTABLE_can(interp, PREG(2), CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -24719,7 +24001,6 @@
opcode_t *
Parrot_does_i_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/object.ops"
IREG(1) = SREG(3) ? VTABLE_does(interp, PREG(2), SREG(3)) : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -24727,7 +24008,6 @@
opcode_t *
Parrot_does_i_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/object.ops"
IREG(1) = CONST(3)->u.string ? VTABLE_does(interp, PREG(2), CONST(3)->u.string) : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -24735,7 +24015,6 @@
opcode_t *
Parrot_does_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 204 "src/ops/object.ops"
IREG(1) = PREG(3) ? VTABLE_does_pmc(interp, PREG(2), PREG(3)) : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -24743,7 +24022,6 @@
opcode_t *
Parrot_does_i_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 204 "src/ops/object.ops"
IREG(1) = CONST(3)->u.key ? VTABLE_does_pmc(interp, PREG(2), CONST(3)->u.key) : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -24751,7 +24029,6 @@
opcode_t *
Parrot_isa_i_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 217 "src/ops/object.ops"
IREG(1) = SREG(3) ? VTABLE_isa(interp, PREG(2), SREG(3)) : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -24759,7 +24036,6 @@
opcode_t *
Parrot_isa_i_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 217 "src/ops/object.ops"
IREG(1) = CONST(3)->u.string ? VTABLE_isa(interp, PREG(2), CONST(3)->u.string) : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -24767,7 +24043,6 @@
opcode_t *
Parrot_isa_i_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 221 "src/ops/object.ops"
IREG(1) = PREG(3) ? VTABLE_isa_pmc(interp, PREG(2), PREG(3)) : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -24775,7 +24050,6 @@
opcode_t *
Parrot_isa_i_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 221 "src/ops/object.ops"
IREG(1) = CONST(3)->u.key ? VTABLE_isa_pmc(interp, PREG(2), CONST(3)->u.key) : 0;
return (opcode_t *)cur_opcode + 4;}
@@ -24783,7 +24057,6 @@
opcode_t *
Parrot_newclass_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 239 "src/ops/object.ops"
PMC * const name = Parrot_pmc_new(interp, enum_class_String);
VTABLE_set_string_native(interp, name, SREG(2));
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, name);
@@ -24793,7 +24066,6 @@
opcode_t *
Parrot_newclass_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 239 "src/ops/object.ops"
PMC * const name = Parrot_pmc_new(interp, enum_class_String);
VTABLE_set_string_native(interp, name, CONST(2)->u.string);
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, name);
@@ -24803,7 +24075,6 @@
opcode_t *
Parrot_newclass_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 245 "src/ops/object.ops"
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -24811,7 +24082,6 @@
opcode_t *
Parrot_newclass_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 245 "src/ops/object.ops"
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, CONST(2)->u.key);
return (opcode_t *)cur_opcode + 3;}
@@ -24819,7 +24089,6 @@
opcode_t *
Parrot_subclass_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 261 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
opcode_t * const next = cur_opcode + 3;
@@ -24837,7 +24106,6 @@
opcode_t *
Parrot_subclass_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 261 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2)->u.key);
opcode_t * const next = cur_opcode + 3;
@@ -24855,7 +24123,6 @@
opcode_t *
Parrot_subclass_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
opcode_t * const next = cur_opcode + 4;
@@ -24873,7 +24140,6 @@
opcode_t *
Parrot_subclass_p_pc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2)->u.key);
opcode_t * const next = cur_opcode + 4;
@@ -24891,7 +24157,6 @@
opcode_t *
Parrot_subclass_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
opcode_t * const next = cur_opcode + 4;
@@ -24909,7 +24174,6 @@
opcode_t *
Parrot_subclass_p_pc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2)->u.key);
opcode_t * const next = cur_opcode + 4;
@@ -24927,7 +24191,6 @@
opcode_t *
Parrot_subclass_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 291 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
opcode_t * const next = cur_opcode + 4;
@@ -24945,7 +24208,6 @@
opcode_t *
Parrot_subclass_p_pc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 291 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2)->u.key);
opcode_t * const next = cur_opcode + 4;
@@ -24963,7 +24225,6 @@
opcode_t *
Parrot_subclass_p_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 291 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
opcode_t * const next = cur_opcode + 4;
@@ -24981,7 +24242,6 @@
opcode_t *
Parrot_subclass_p_pc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 291 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2)->u.key);
opcode_t * const next = cur_opcode + 4;
@@ -24999,7 +24259,6 @@
opcode_t *
Parrot_subclass_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 319 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
opcode_t * const next = cur_opcode + 3;
@@ -25018,7 +24277,6 @@
opcode_t *
Parrot_subclass_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 319 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
opcode_t * const next = cur_opcode + 3;
@@ -25037,7 +24295,6 @@
opcode_t *
Parrot_subclass_p_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 335 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
opcode_t * const next = cur_opcode + 4;
@@ -25056,7 +24313,6 @@
opcode_t *
Parrot_subclass_p_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 335 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
opcode_t * const next = cur_opcode + 4;
@@ -25075,7 +24331,6 @@
opcode_t *
Parrot_subclass_p_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 335 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
opcode_t * const next = cur_opcode + 4;
@@ -25094,7 +24349,6 @@
opcode_t *
Parrot_subclass_p_sc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 335 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
opcode_t * const next = cur_opcode + 4;
@@ -25113,7 +24367,6 @@
opcode_t *
Parrot_subclass_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 351 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
opcode_t * const next = cur_opcode + 4;
@@ -25132,7 +24385,6 @@
opcode_t *
Parrot_subclass_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 351 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
opcode_t * const next = cur_opcode + 4;
@@ -25151,7 +24403,6 @@
opcode_t *
Parrot_subclass_p_s_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 351 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
opcode_t * const next = cur_opcode + 4;
@@ -25170,7 +24421,6 @@
opcode_t *
Parrot_subclass_p_sc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 351 "src/ops/object.ops"
PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
opcode_t * const next = cur_opcode + 4;
@@ -25189,7 +24439,6 @@
opcode_t *
Parrot_get_class_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 377 "src/ops/object.ops"
PREG(1) = Parrot_oo_get_class_str(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25197,7 +24446,6 @@
opcode_t *
Parrot_get_class_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 377 "src/ops/object.ops"
PREG(1) = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -25205,7 +24453,6 @@
opcode_t *
Parrot_get_class_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 381 "src/ops/object.ops"
PREG(1) = Parrot_oo_get_class(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25213,7 +24460,6 @@
opcode_t *
Parrot_get_class_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 381 "src/ops/object.ops"
PREG(1) = Parrot_oo_get_class(interp, CONST(2)->u.key);
return (opcode_t *)cur_opcode + 3;}
@@ -25221,7 +24467,6 @@
opcode_t *
Parrot_class_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 393 "src/ops/object.ops"
PREG(1) = VTABLE_get_class(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25229,7 +24474,6 @@
opcode_t *
Parrot_addparent_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 406 "src/ops/object.ops"
VTABLE_add_parent(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25237,7 +24481,6 @@
opcode_t *
Parrot_removeparent_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 416 "src/ops/object.ops"
VTABLE_remove_parent(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25245,7 +24488,6 @@
opcode_t *
Parrot_addrole_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 426 "src/ops/object.ops"
VTABLE_add_role(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25253,7 +24495,6 @@
opcode_t *
Parrot_addattribute_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 436 "src/ops/object.ops"
STRING * const class_name = string_from_literal(interp, "Class");
STRING * const role_name = string_from_literal(interp, "Role");
@@ -25271,7 +24512,6 @@
opcode_t *
Parrot_addattribute_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 436 "src/ops/object.ops"
STRING * const class_name = string_from_literal(interp, "Class");
STRING * const role_name = string_from_literal(interp, "Role");
@@ -25289,7 +24529,6 @@
opcode_t *
Parrot_removeattribute_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 456 "src/ops/object.ops"
VTABLE_remove_attribute(interp, PREG(1), SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25297,7 +24536,6 @@
opcode_t *
Parrot_removeattribute_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 456 "src/ops/object.ops"
VTABLE_remove_attribute(interp, PREG(1), CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -25305,7 +24543,6 @@
opcode_t *
Parrot_getattribute_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 473 "src/ops/object.ops"
PREG(1) = VTABLE_get_attr_str(interp, PREG(2), SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -25313,7 +24550,6 @@
opcode_t *
Parrot_getattribute_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 473 "src/ops/object.ops"
PREG(1) = VTABLE_get_attr_str(interp, PREG(2), CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -25321,7 +24557,6 @@
opcode_t *
Parrot_getattribute_p_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 477 "src/ops/object.ops"
PREG(1) = VTABLE_get_attr_keyed(interp, PREG(2), PREG(3), SREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -25329,7 +24564,6 @@
opcode_t *
Parrot_getattribute_p_p_pc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 477 "src/ops/object.ops"
PREG(1) = VTABLE_get_attr_keyed(interp, PREG(2), CONST(3)->u.key, SREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -25337,7 +24571,6 @@
opcode_t *
Parrot_getattribute_p_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 477 "src/ops/object.ops"
PREG(1) = VTABLE_get_attr_keyed(interp, PREG(2), PREG(3), CONST(4)->u.string);
return (opcode_t *)cur_opcode + 5;}
@@ -25345,7 +24578,6 @@
opcode_t *
Parrot_getattribute_p_p_pc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 477 "src/ops/object.ops"
PREG(1) = VTABLE_get_attr_keyed(interp, PREG(2), CONST(3)->u.key, CONST(4)->u.string);
return (opcode_t *)cur_opcode + 5;}
@@ -25353,7 +24585,6 @@
opcode_t *
Parrot_setattribute_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 493 "src/ops/object.ops"
VTABLE_set_attr_str(interp, PREG(1), SREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -25361,7 +24592,6 @@
opcode_t *
Parrot_setattribute_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 493 "src/ops/object.ops"
VTABLE_set_attr_str(interp, PREG(1), CONST(2)->u.string, PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -25369,7 +24599,6 @@
opcode_t *
Parrot_setattribute_p_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 497 "src/ops/object.ops"
VTABLE_set_attr_keyed(interp, PREG(1), PREG(2), SREG(3), PREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -25377,7 +24606,6 @@
opcode_t *
Parrot_setattribute_p_pc_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 497 "src/ops/object.ops"
VTABLE_set_attr_keyed(interp, PREG(1), CONST(2)->u.key, SREG(3), PREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -25385,7 +24613,6 @@
opcode_t *
Parrot_setattribute_p_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 497 "src/ops/object.ops"
VTABLE_set_attr_keyed(interp, PREG(1), PREG(2), CONST(3)->u.string, PREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -25393,7 +24620,6 @@
opcode_t *
Parrot_setattribute_p_pc_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 497 "src/ops/object.ops"
VTABLE_set_attr_keyed(interp, PREG(1), CONST(2)->u.key, CONST(3)->u.string, PREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -25401,7 +24627,6 @@
opcode_t *
Parrot_inspect_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 515 "src/ops/object.ops"
PREG(1) = VTABLE_inspect(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25409,7 +24634,6 @@
opcode_t *
Parrot_inspect_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 515 "src/ops/object.ops"
PREG(1) = VTABLE_inspect(interp, CONST(2)->u.key);
return (opcode_t *)cur_opcode + 3;}
@@ -25417,7 +24641,6 @@
opcode_t *
Parrot_inspect_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 519 "src/ops/object.ops"
PREG(1) = VTABLE_inspect_str(interp, PREG(2), SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -25425,7 +24648,6 @@
opcode_t *
Parrot_inspect_p_pc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 519 "src/ops/object.ops"
PREG(1) = VTABLE_inspect_str(interp, CONST(2)->u.key, SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -25433,7 +24655,6 @@
opcode_t *
Parrot_inspect_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 519 "src/ops/object.ops"
PREG(1) = VTABLE_inspect_str(interp, PREG(2), CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -25441,7 +24662,6 @@
opcode_t *
Parrot_inspect_p_pc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 519 "src/ops/object.ops"
PREG(1) = VTABLE_inspect_str(interp, CONST(2)->u.key, CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -25449,7 +24669,6 @@
opcode_t *
Parrot_new_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 53 "src/ops/pmc.ops"
STRING * const name = SREG(2);
PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
? Parrot_oo_get_class_str(interp, name)
@@ -25473,7 +24692,6 @@
opcode_t *
Parrot_new_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 53 "src/ops/pmc.ops"
STRING * const name = CONST(2)->u.string;
PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
? Parrot_oo_get_class_str(interp, name)
@@ -25497,7 +24715,6 @@
opcode_t *
Parrot_new_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 73 "src/ops/pmc.ops"
STRING * const name = SREG(2);
PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
? Parrot_oo_get_class_str(interp, name)
@@ -25521,7 +24738,6 @@
opcode_t *
Parrot_new_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 73 "src/ops/pmc.ops"
STRING * const name = CONST(2)->u.string;
PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
? Parrot_oo_get_class_str(interp, name)
@@ -25545,7 +24761,6 @@
opcode_t *
Parrot_new_p_s_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 73 "src/ops/pmc.ops"
STRING * const name = SREG(2);
PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
? Parrot_oo_get_class_str(interp, name)
@@ -25569,7 +24784,6 @@
opcode_t *
Parrot_new_p_sc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 73 "src/ops/pmc.ops"
STRING * const name = CONST(2)->u.string;
PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
? Parrot_oo_get_class_str(interp, name)
@@ -25593,7 +24807,6 @@
opcode_t *
Parrot_new_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 93 "src/ops/pmc.ops"
PMC * const name_key = PREG(2);
PMC * const _class = Parrot_oo_get_class(interp, name_key);
@@ -25615,7 +24828,6 @@
opcode_t *
Parrot_new_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 93 "src/ops/pmc.ops"
PMC * const name_key = CONST(2)->u.key;
PMC * const _class = Parrot_oo_get_class(interp, name_key);
@@ -25637,7 +24849,6 @@
opcode_t *
Parrot_new_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 111 "src/ops/pmc.ops"
PMC * const name_key = PREG(2);
PMC * const _class = Parrot_oo_get_class(interp, name_key);
@@ -25659,7 +24870,6 @@
opcode_t *
Parrot_new_p_pc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 111 "src/ops/pmc.ops"
PMC * const name_key = CONST(2)->u.key;
PMC * const _class = Parrot_oo_get_class(interp, name_key);
@@ -25681,7 +24891,6 @@
opcode_t *
Parrot_new_p_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 111 "src/ops/pmc.ops"
PMC * const name_key = PREG(2);
PMC * const _class = Parrot_oo_get_class(interp, name_key);
@@ -25703,7 +24912,6 @@
opcode_t *
Parrot_new_p_pc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 111 "src/ops/pmc.ops"
PMC * const name_key = CONST(2)->u.key;
PMC * const _class = Parrot_oo_get_class(interp, name_key);
@@ -25725,7 +24933,6 @@
opcode_t *
Parrot_root_new_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 144 "src/ops/pmc.ops"
PMC * const key = PREG(2);
PMC * const root_ns = interp->root_namespace;
PMC * const ns = Parrot_get_namespace_keyed(interp, root_ns, key);
@@ -25747,7 +24954,6 @@
opcode_t *
Parrot_root_new_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 144 "src/ops/pmc.ops"
PMC * const key = CONST(2)->u.key;
PMC * const root_ns = interp->root_namespace;
PMC * const ns = Parrot_get_namespace_keyed(interp, root_ns, key);
@@ -25769,7 +24975,6 @@
opcode_t *
Parrot_root_new_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 162 "src/ops/pmc.ops"
PMC * const key = PREG(2);
PMC * const root_ns = interp->root_namespace;
PMC * const ns = Parrot_get_namespace_keyed(interp, root_ns, key);
@@ -25791,7 +24996,6 @@
opcode_t *
Parrot_root_new_p_pc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 162 "src/ops/pmc.ops"
PMC * const key = CONST(2)->u.key;
PMC * const root_ns = interp->root_namespace;
PMC * const ns = Parrot_get_namespace_keyed(interp, root_ns, key);
@@ -25813,7 +25017,6 @@
opcode_t *
Parrot_root_new_p_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 162 "src/ops/pmc.ops"
PMC * const key = PREG(2);
PMC * const root_ns = interp->root_namespace;
PMC * const ns = Parrot_get_namespace_keyed(interp, root_ns, key);
@@ -25835,7 +25038,6 @@
opcode_t *
Parrot_root_new_p_pc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 162 "src/ops/pmc.ops"
PMC * const key = CONST(2)->u.key;
PMC * const root_ns = interp->root_namespace;
PMC * const ns = Parrot_get_namespace_keyed(interp, root_ns, key);
@@ -25857,7 +25059,6 @@
opcode_t *
Parrot_typeof_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 191 "src/ops/pmc.ops"
SREG(1) = VTABLE_name(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25865,7 +25066,6 @@
opcode_t *
Parrot_typeof_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 195 "src/ops/pmc.ops"
PREG(1) = VTABLE_get_class(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25873,7 +25073,6 @@
opcode_t *
Parrot_get_repr_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 207 "src/ops/pmc.ops"
SREG(1) = VTABLE_get_repr(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25881,7 +25080,6 @@
opcode_t *
Parrot_find_method_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 234 "src/ops/pmc.ops"
opcode_t * const resume = cur_opcode + 4;
PREG(1) = VTABLE_find_method(interp, PREG(2), SREG(3));
if (PMC_IS_NULL(PREG(1)) || !VTABLE_defined(interp, PREG(1))) {
@@ -25897,7 +25095,6 @@
opcode_t *
Parrot_find_method_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 234 "src/ops/pmc.ops"
opcode_t * const resume = cur_opcode + 4;
PREG(1) = VTABLE_find_method(interp, PREG(2), CONST(3)->u.string);
if (PMC_IS_NULL(PREG(1)) || !VTABLE_defined(interp, PREG(1))) {
@@ -25913,7 +25110,6 @@
opcode_t *
Parrot_defined_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 266 "src/ops/pmc.ops"
IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_defined(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25921,7 +25117,6 @@
opcode_t *
Parrot_defined_i_p_ki (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 270 "src/ops/pmc.ops"
IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_defined_keyed_int(interp, PREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -25929,7 +25124,6 @@
opcode_t *
Parrot_defined_i_p_kic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 270 "src/ops/pmc.ops"
IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_defined_keyed_int(interp, PREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -25937,7 +25131,6 @@
opcode_t *
Parrot_defined_i_p_k (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 274 "src/ops/pmc.ops"
IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_defined_keyed(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -25945,7 +25138,6 @@
opcode_t *
Parrot_defined_i_p_kc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 274 "src/ops/pmc.ops"
IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_defined_keyed(interp, PREG(2), CONST(3)->u.key);
return (opcode_t *)cur_opcode + 4;}
@@ -25953,7 +25145,6 @@
opcode_t *
Parrot_exists_i_p_ki (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 278 "src/ops/pmc.ops"
IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_exists_keyed_int(interp, PREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -25961,7 +25152,6 @@
opcode_t *
Parrot_exists_i_p_kic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 278 "src/ops/pmc.ops"
IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_exists_keyed_int(interp, PREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -25969,7 +25159,6 @@
opcode_t *
Parrot_exists_i_p_k (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 282 "src/ops/pmc.ops"
IREG(1) = PMC_IS_NULL(PREG(2)) ? 0: VTABLE_exists_keyed(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -25977,7 +25166,6 @@
opcode_t *
Parrot_exists_i_p_kc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 282 "src/ops/pmc.ops"
IREG(1) = PMC_IS_NULL(PREG(2)) ? 0: VTABLE_exists_keyed(interp, PREG(2), CONST(3)->u.key);
return (opcode_t *)cur_opcode + 4;}
@@ -25985,7 +25173,6 @@
opcode_t *
Parrot_delete_p_k (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 296 "src/ops/pmc.ops"
VTABLE_delete_keyed(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -25993,7 +25180,6 @@
opcode_t *
Parrot_delete_p_kc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 296 "src/ops/pmc.ops"
VTABLE_delete_keyed(interp, PREG(1), CONST(2)->u.key);
return (opcode_t *)cur_opcode + 3;}
@@ -26001,7 +25187,6 @@
opcode_t *
Parrot_delete_p_ki (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 300 "src/ops/pmc.ops"
VTABLE_delete_keyed_int(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26009,7 +25194,6 @@
opcode_t *
Parrot_delete_p_kic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 300 "src/ops/pmc.ops"
VTABLE_delete_keyed_int(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -26017,7 +25201,6 @@
opcode_t *
Parrot_elements_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 312 "src/ops/pmc.ops"
IREG(1) = VTABLE_elements(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26025,7 +25208,6 @@
opcode_t *
Parrot_push_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 344 "src/ops/pmc.ops"
VTABLE_push_integer(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26033,7 +25215,6 @@
opcode_t *
Parrot_push_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 344 "src/ops/pmc.ops"
VTABLE_push_integer(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -26041,7 +25222,6 @@
opcode_t *
Parrot_push_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 348 "src/ops/pmc.ops"
VTABLE_push_float(interp, PREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26049,7 +25229,6 @@
opcode_t *
Parrot_push_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 348 "src/ops/pmc.ops"
VTABLE_push_float(interp, PREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -26057,7 +25236,6 @@
opcode_t *
Parrot_push_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 352 "src/ops/pmc.ops"
VTABLE_push_string(interp, PREG(1), SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26065,7 +25243,6 @@
opcode_t *
Parrot_push_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 352 "src/ops/pmc.ops"
VTABLE_push_string(interp, PREG(1), CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -26073,7 +25250,6 @@
opcode_t *
Parrot_push_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 356 "src/ops/pmc.ops"
VTABLE_push_pmc(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26081,7 +25257,6 @@
opcode_t *
Parrot_pop_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 374 "src/ops/pmc.ops"
IREG(1) = VTABLE_pop_integer(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26089,7 +25264,6 @@
opcode_t *
Parrot_pop_n_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 378 "src/ops/pmc.ops"
NREG(1) = VTABLE_pop_float(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26097,7 +25271,6 @@
opcode_t *
Parrot_pop_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 382 "src/ops/pmc.ops"
SREG(1) = VTABLE_pop_string(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26105,7 +25278,6 @@
opcode_t *
Parrot_pop_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 386 "src/ops/pmc.ops"
PREG(1) = VTABLE_pop_pmc(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26113,7 +25285,6 @@
opcode_t *
Parrot_unshift_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 404 "src/ops/pmc.ops"
VTABLE_unshift_integer(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26121,7 +25292,6 @@
opcode_t *
Parrot_unshift_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 404 "src/ops/pmc.ops"
VTABLE_unshift_integer(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -26129,7 +25299,6 @@
opcode_t *
Parrot_unshift_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 408 "src/ops/pmc.ops"
VTABLE_unshift_float(interp, PREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26137,7 +25306,6 @@
opcode_t *
Parrot_unshift_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 408 "src/ops/pmc.ops"
VTABLE_unshift_float(interp, PREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -26145,7 +25313,6 @@
opcode_t *
Parrot_unshift_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 412 "src/ops/pmc.ops"
VTABLE_unshift_string(interp, PREG(1), SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26153,7 +25320,6 @@
opcode_t *
Parrot_unshift_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 412 "src/ops/pmc.ops"
VTABLE_unshift_string(interp, PREG(1), CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -26161,7 +25327,6 @@
opcode_t *
Parrot_unshift_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 416 "src/ops/pmc.ops"
VTABLE_unshift_pmc(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26169,7 +25334,6 @@
opcode_t *
Parrot_shift_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 434 "src/ops/pmc.ops"
IREG(1) = VTABLE_shift_integer(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26177,7 +25341,6 @@
opcode_t *
Parrot_shift_n_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 438 "src/ops/pmc.ops"
NREG(1) = VTABLE_shift_float(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26185,7 +25348,6 @@
opcode_t *
Parrot_shift_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 442 "src/ops/pmc.ops"
SREG(1) = VTABLE_shift_string(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26193,7 +25355,6 @@
opcode_t *
Parrot_shift_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 446 "src/ops/pmc.ops"
PREG(1) = VTABLE_shift_pmc(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26201,7 +25362,6 @@
opcode_t *
Parrot_splice_p_p_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 458 "src/ops/pmc.ops"
VTABLE_splice(interp, PREG(1), PREG(2), IREG(3), IREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -26209,7 +25369,6 @@
opcode_t *
Parrot_splice_p_p_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 458 "src/ops/pmc.ops"
VTABLE_splice(interp, PREG(1), PREG(2), cur_opcode[3], IREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -26217,7 +25376,6 @@
opcode_t *
Parrot_splice_p_p_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 458 "src/ops/pmc.ops"
VTABLE_splice(interp, PREG(1), PREG(2), IREG(3), cur_opcode[4]);
return (opcode_t *)cur_opcode + 5;}
@@ -26225,7 +25383,6 @@
opcode_t *
Parrot_splice_p_p_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 458 "src/ops/pmc.ops"
VTABLE_splice(interp, PREG(1), PREG(2), cur_opcode[3], cur_opcode[4]);
return (opcode_t *)cur_opcode + 5;}
@@ -26233,7 +25390,6 @@
opcode_t *
Parrot_setprop_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 485 "src/ops/pmc.ops"
VTABLE_setprop(interp, PREG(1), SREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -26241,7 +25397,6 @@
opcode_t *
Parrot_setprop_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 485 "src/ops/pmc.ops"
VTABLE_setprop(interp, PREG(1), CONST(2)->u.string, PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -26249,7 +25404,6 @@
opcode_t *
Parrot_getprop_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 497 "src/ops/pmc.ops"
PREG(1) = VTABLE_getprop(interp, PREG(3), SREG(2));
return (opcode_t *)cur_opcode + 4;}
@@ -26257,7 +25411,6 @@
opcode_t *
Parrot_getprop_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 497 "src/ops/pmc.ops"
PREG(1) = VTABLE_getprop(interp, PREG(3), CONST(2)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -26265,7 +25418,6 @@
opcode_t *
Parrot_delprop_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 509 "src/ops/pmc.ops"
VTABLE_delprop(interp, PREG(1), SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26273,7 +25425,6 @@
opcode_t *
Parrot_delprop_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 509 "src/ops/pmc.ops"
VTABLE_delprop(interp, PREG(1), CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -26281,7 +25432,6 @@
opcode_t *
Parrot_prophash_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 522 "src/ops/pmc.ops"
PREG(1) = VTABLE_getprops(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26289,7 +25439,6 @@
opcode_t *
Parrot_freeze_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 552 "src/ops/pmc.ops"
SREG(1) = Parrot_freeze(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26297,7 +25446,6 @@
opcode_t *
Parrot_thaw_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 556 "src/ops/pmc.ops"
PREG(1) = Parrot_thaw(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26305,7 +25453,6 @@
opcode_t *
Parrot_thaw_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 556 "src/ops/pmc.ops"
PREG(1) = Parrot_thaw(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -26313,7 +25460,6 @@
opcode_t *
Parrot_add_multi_s_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 587 "src/ops/pmc.ops"
Parrot_mmd_add_multi_from_long_sig(interp, SREG(1), SREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -26321,7 +25467,6 @@
opcode_t *
Parrot_add_multi_sc_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 587 "src/ops/pmc.ops"
Parrot_mmd_add_multi_from_long_sig(interp, CONST(1)->u.string, SREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -26329,7 +25474,6 @@
opcode_t *
Parrot_add_multi_s_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 587 "src/ops/pmc.ops"
Parrot_mmd_add_multi_from_long_sig(interp, SREG(1), CONST(2)->u.string, PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -26337,7 +25481,6 @@
opcode_t *
Parrot_add_multi_sc_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 587 "src/ops/pmc.ops"
Parrot_mmd_add_multi_from_long_sig(interp, CONST(1)->u.string, CONST(2)->u.string, PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -26345,7 +25488,6 @@
opcode_t *
Parrot_find_multi_p_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 597 "src/ops/pmc.ops"
PREG(1) = Parrot_mmd_find_multi_from_long_sig(interp, SREG(2), SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -26353,7 +25495,6 @@
opcode_t *
Parrot_find_multi_p_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 597 "src/ops/pmc.ops"
PREG(1) = Parrot_mmd_find_multi_from_long_sig(interp, CONST(2)->u.string, SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -26361,7 +25502,6 @@
opcode_t *
Parrot_find_multi_p_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 597 "src/ops/pmc.ops"
PREG(1) = Parrot_mmd_find_multi_from_long_sig(interp, SREG(2), CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -26369,7 +25509,6 @@
opcode_t *
Parrot_find_multi_p_sc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 597 "src/ops/pmc.ops"
PREG(1) = Parrot_mmd_find_multi_from_long_sig(interp, CONST(2)->u.string, CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -26377,7 +25516,6 @@
opcode_t *
Parrot_register_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 630 "src/ops/pmc.ops"
Parrot_pmc_gc_register(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -26385,7 +25523,6 @@
opcode_t *
Parrot_unregister_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 634 "src/ops/pmc.ops"
Parrot_pmc_gc_unregister(interp, PREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -26393,7 +25530,6 @@
opcode_t *
Parrot_box_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 651 "src/ops/pmc.ops"
PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
VTABLE_set_integer_native(interp, PREG(1), IREG(2));
@@ -26402,7 +25538,6 @@
opcode_t *
Parrot_box_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 651 "src/ops/pmc.ops"
PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
VTABLE_set_integer_native(interp, PREG(1), cur_opcode[2]);
@@ -26411,7 +25546,6 @@
opcode_t *
Parrot_box_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 656 "src/ops/pmc.ops"
PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
VTABLE_set_number_native(interp, PREG(1), NREG(2));
@@ -26420,7 +25554,6 @@
opcode_t *
Parrot_box_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 656 "src/ops/pmc.ops"
PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
VTABLE_set_number_native(interp, PREG(1), CONST(2)->u.number);
@@ -26429,7 +25562,6 @@
opcode_t *
Parrot_box_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 661 "src/ops/pmc.ops"
PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_String));
VTABLE_set_string_native(interp, PREG(1), SREG(2));
@@ -26438,7 +25570,6 @@
opcode_t *
Parrot_box_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 661 "src/ops/pmc.ops"
PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_String));
VTABLE_set_string_native(interp, PREG(1), CONST(2)->u.string);
@@ -26447,7 +25578,6 @@
opcode_t *
Parrot_iter_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 674 "src/ops/pmc.ops"
PREG(1) = VTABLE_get_iter(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26455,7 +25585,6 @@
opcode_t *
Parrot_morph_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 686 "src/ops/pmc.ops"
VTABLE_morph(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26463,7 +25592,6 @@
opcode_t *
Parrot_morph_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 686 "src/ops/pmc.ops"
VTABLE_morph(interp, PREG(1), CONST(2)->u.key);
return (opcode_t *)cur_opcode + 3;}
@@ -26471,7 +25599,6 @@
opcode_t *
Parrot_clone_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 28 "src/ops/set.ops"
/* cloning a NULL STRING produces an empty STRING; TT #964 */
SREG(1) = SREG(2)
? Parrot_str_copy(interp, SREG(2))
@@ -26482,7 +25609,6 @@
opcode_t *
Parrot_clone_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 28 "src/ops/set.ops"
/* cloning a NULL STRING produces an empty STRING; TT #964 */
SREG(1) = CONST(2)->u.string
? Parrot_str_copy(interp, CONST(2)->u.string)
@@ -26493,7 +25619,6 @@
opcode_t *
Parrot_exchange_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 51 "src/ops/set.ops"
const INTVAL temp = IREG(1);
IREG(1) = IREG(2);
IREG(2) = temp;
@@ -26503,7 +25628,6 @@
opcode_t *
Parrot_exchange_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 57 "src/ops/set.ops"
PMC * const temp = PREG(1);
PREG(1) = PREG(2);
PREG(2) = temp;
@@ -26513,7 +25637,6 @@
opcode_t *
Parrot_exchange_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 63 "src/ops/set.ops"
FLOATVAL temp = NREG(1);
NREG(1) = NREG(2);
NREG(2) = temp;
@@ -26523,7 +25646,6 @@
opcode_t *
Parrot_exchange_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 69 "src/ops/set.ops"
STRING * const temp = SREG(1);
SREG(1) = SREG(2);
SREG(2) = temp;
@@ -26533,7 +25655,6 @@
opcode_t *
Parrot_set_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 121 "src/ops/set.ops"
IREG(1) = IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -26541,7 +25662,6 @@
opcode_t *
Parrot_set_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 121 "src/ops/set.ops"
IREG(1) = cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
@@ -26549,7 +25669,6 @@
opcode_t *
Parrot_set_i_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 125 "src/ops/set.ops"
IREG(1) = (INTVAL)(NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26557,7 +25676,6 @@
opcode_t *
Parrot_set_i_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 125 "src/ops/set.ops"
IREG(1) = (INTVAL)(CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -26565,7 +25683,6 @@
opcode_t *
Parrot_set_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 129 "src/ops/set.ops"
IREG(1) = Parrot_str_to_int(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26573,7 +25690,6 @@
opcode_t *
Parrot_set_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 129 "src/ops/set.ops"
IREG(1) = Parrot_str_to_int(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -26581,7 +25697,6 @@
opcode_t *
Parrot_set_n_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 133 "src/ops/set.ops"
NREG(1) = NREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -26589,7 +25704,6 @@
opcode_t *
Parrot_set_n_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 133 "src/ops/set.ops"
NREG(1) = CONST(2)->u.number;
return (opcode_t *)cur_opcode + 3;}
@@ -26597,7 +25711,6 @@
opcode_t *
Parrot_set_n_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 137 "src/ops/set.ops"
NREG(1) = (FLOATVAL)IREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -26605,7 +25718,6 @@
opcode_t *
Parrot_set_n_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 137 "src/ops/set.ops"
NREG(1) = (FLOATVAL)cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
@@ -26613,7 +25725,6 @@
opcode_t *
Parrot_set_n_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 141 "src/ops/set.ops"
NREG(1) = Parrot_str_to_num(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26621,7 +25732,6 @@
opcode_t *
Parrot_set_n_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 141 "src/ops/set.ops"
NREG(1) = Parrot_str_to_num(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -26629,7 +25739,6 @@
opcode_t *
Parrot_set_n_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 145 "src/ops/set.ops"
NREG(1) = VTABLE_get_number(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26637,7 +25746,6 @@
opcode_t *
Parrot_set_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 149 "src/ops/set.ops"
SREG(1) = VTABLE_get_string(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26645,7 +25753,6 @@
opcode_t *
Parrot_set_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 153 "src/ops/set.ops"
SREG(1) = SREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -26653,7 +25760,6 @@
opcode_t *
Parrot_set_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 157 "src/ops/set.ops"
SREG(1) = Parrot_str_copy(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -26661,7 +25767,6 @@
opcode_t *
Parrot_set_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 161 "src/ops/set.ops"
SREG(1) = Parrot_str_from_int(interp, IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26669,7 +25774,6 @@
opcode_t *
Parrot_set_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 161 "src/ops/set.ops"
SREG(1) = Parrot_str_from_int(interp, cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -26677,7 +25781,6 @@
opcode_t *
Parrot_set_s_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 165 "src/ops/set.ops"
SREG(1) = Parrot_str_from_num(interp, NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26685,7 +25788,6 @@
opcode_t *
Parrot_set_s_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 165 "src/ops/set.ops"
SREG(1) = Parrot_str_from_num(interp, CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -26693,7 +25795,6 @@
opcode_t *
Parrot_set_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 169 "src/ops/set.ops"
PREG(1) = CONST(2)->u.key;
return (opcode_t *)cur_opcode + 3;}
@@ -26701,7 +25802,6 @@
opcode_t *
Parrot_set_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 173 "src/ops/set.ops"
PREG(1) = PREG(2);
return (opcode_t *)cur_opcode + 3;}
@@ -26709,7 +25809,6 @@
opcode_t *
Parrot_set_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 177 "src/ops/set.ops"
VTABLE_set_integer_native(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26717,7 +25816,6 @@
opcode_t *
Parrot_set_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 177 "src/ops/set.ops"
VTABLE_set_integer_native(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -26725,7 +25823,6 @@
opcode_t *
Parrot_set_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 181 "src/ops/set.ops"
VTABLE_set_number_native(interp, PREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26733,7 +25830,6 @@
opcode_t *
Parrot_set_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 181 "src/ops/set.ops"
VTABLE_set_number_native(interp, PREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -26741,7 +25837,6 @@
opcode_t *
Parrot_set_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 185 "src/ops/set.ops"
VTABLE_set_string_native(interp, PREG(1), SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26749,7 +25844,6 @@
opcode_t *
Parrot_set_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 189 "src/ops/set.ops"
VTABLE_set_string_native(interp, PREG(1),
Parrot_str_copy(interp, CONST(2)->u.string));
@@ -26758,7 +25852,6 @@
opcode_t *
Parrot_set_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/set.ops"
IREG(1) = VTABLE_get_integer(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26766,7 +25859,6 @@
opcode_t *
Parrot_assign_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 234 "src/ops/set.ops"
VTABLE_assign_pmc(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26774,7 +25866,6 @@
opcode_t *
Parrot_assign_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 238 "src/ops/set.ops"
VTABLE_set_integer_native(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26782,7 +25873,6 @@
opcode_t *
Parrot_assign_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 238 "src/ops/set.ops"
VTABLE_set_integer_native(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -26790,7 +25880,6 @@
opcode_t *
Parrot_assign_p_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 242 "src/ops/set.ops"
VTABLE_set_number_native(interp, PREG(1), NREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26798,7 +25887,6 @@
opcode_t *
Parrot_assign_p_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 242 "src/ops/set.ops"
VTABLE_set_number_native(interp, PREG(1), CONST(2)->u.number);
return (opcode_t *)cur_opcode + 3;}
@@ -26806,7 +25894,6 @@
opcode_t *
Parrot_assign_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 246 "src/ops/set.ops"
VTABLE_assign_string_native(interp, PREG(1), SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26814,7 +25901,6 @@
opcode_t *
Parrot_assign_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 246 "src/ops/set.ops"
VTABLE_assign_string_native(interp, PREG(1), CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -26822,7 +25908,6 @@
opcode_t *
Parrot_assign_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 250 "src/ops/set.ops"
SREG(1) = Parrot_str_set(interp, SREG(1), SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26830,7 +25915,6 @@
opcode_t *
Parrot_assign_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 250 "src/ops/set.ops"
SREG(1) = Parrot_str_set(interp, SREG(1), CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -26838,7 +25922,6 @@
opcode_t *
Parrot_setref_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 254 "src/ops/set.ops"
VTABLE_set_pmc(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26846,7 +25929,6 @@
opcode_t *
Parrot_deref_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 258 "src/ops/set.ops"
PREG(1) = VTABLE_get_pmc(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -26854,7 +25936,6 @@
opcode_t *
Parrot_setp_ind_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/set.ops"
if (IREG(1) < 0 || IREG(1) >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_PMC(interp, IREG(1)) = PREG(2);
@@ -26864,7 +25945,6 @@
opcode_t *
Parrot_setp_ind_ic_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/set.ops"
if (cur_opcode[1] < 0 || cur_opcode[1] >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_PMC(interp, cur_opcode[1]) = PREG(2);
@@ -26874,7 +25954,6 @@
opcode_t *
Parrot_setn_ind_i_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 290 "src/ops/set.ops"
if (IREG(1) < 0 || IREG(1) >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_NUM(interp, IREG(1)) = NREG(2);
@@ -26884,7 +25963,6 @@
opcode_t *
Parrot_setn_ind_ic_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 290 "src/ops/set.ops"
if (cur_opcode[1] < 0 || cur_opcode[1] >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_NUM(interp, cur_opcode[1]) = NREG(2);
@@ -26894,7 +25972,6 @@
opcode_t *
Parrot_setn_ind_i_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 290 "src/ops/set.ops"
if (IREG(1) < 0 || IREG(1) >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_NUM(interp, IREG(1)) = CONST(2)->u.number;
@@ -26904,7 +25981,6 @@
opcode_t *
Parrot_setn_ind_ic_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 290 "src/ops/set.ops"
if (cur_opcode[1] < 0 || cur_opcode[1] >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_NUM(interp, cur_opcode[1]) = CONST(2)->u.number;
@@ -26914,7 +25990,6 @@
opcode_t *
Parrot_sets_ind_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 304 "src/ops/set.ops"
if (IREG(1) < 0 || IREG(1) >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_STR(interp, IREG(1)) = SREG(2);
@@ -26924,7 +25999,6 @@
opcode_t *
Parrot_sets_ind_ic_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 304 "src/ops/set.ops"
if (cur_opcode[1] < 0 || cur_opcode[1] >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_STR(interp, cur_opcode[1]) = SREG(2);
@@ -26934,7 +26008,6 @@
opcode_t *
Parrot_sets_ind_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 304 "src/ops/set.ops"
if (IREG(1) < 0 || IREG(1) >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_STR(interp, IREG(1)) = CONST(2)->u.string;
@@ -26944,7 +26017,6 @@
opcode_t *
Parrot_sets_ind_ic_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 304 "src/ops/set.ops"
if (cur_opcode[1] < 0 || cur_opcode[1] >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_STR(interp, cur_opcode[1]) = CONST(2)->u.string;
@@ -26954,7 +26026,6 @@
opcode_t *
Parrot_seti_ind_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 318 "src/ops/set.ops"
if (IREG(1) < 0 || IREG(1) >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_INT(interp, IREG(1)) = IREG(2);
@@ -26964,7 +26035,6 @@
opcode_t *
Parrot_seti_ind_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 318 "src/ops/set.ops"
if (cur_opcode[1] < 0 || cur_opcode[1] >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_INT(interp, cur_opcode[1]) = IREG(2);
@@ -26974,7 +26044,6 @@
opcode_t *
Parrot_seti_ind_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 318 "src/ops/set.ops"
if (IREG(1) < 0 || IREG(1) >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_INT(interp, IREG(1)) = cur_opcode[2];
@@ -26984,7 +26053,6 @@
opcode_t *
Parrot_seti_ind_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 318 "src/ops/set.ops"
if (cur_opcode[1] < 0 || cur_opcode[1] >= NUM_REGISTERS)
PANIC(interp, "Out of bound register access");
REG_INT(interp, cur_opcode[1]) = cur_opcode[2];
@@ -26994,7 +26062,6 @@
opcode_t *
Parrot_set_p_ki_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 344 "src/ops/set.ops"
VTABLE_set_integer_keyed_int(interp, PREG(1), IREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27002,7 +26069,6 @@
opcode_t *
Parrot_set_p_kic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 344 "src/ops/set.ops"
VTABLE_set_integer_keyed_int(interp, PREG(1), cur_opcode[2], IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27010,7 +26076,6 @@
opcode_t *
Parrot_set_p_ki_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 344 "src/ops/set.ops"
VTABLE_set_integer_keyed_int(interp, PREG(1), IREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27018,7 +26083,6 @@
opcode_t *
Parrot_set_p_kic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 344 "src/ops/set.ops"
VTABLE_set_integer_keyed_int(interp, PREG(1), cur_opcode[2], cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27026,7 +26090,6 @@
opcode_t *
Parrot_set_p_ki_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 348 "src/ops/set.ops"
VTABLE_set_number_keyed_int(interp, PREG(1), IREG(2), NREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27034,7 +26097,6 @@
opcode_t *
Parrot_set_p_kic_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 348 "src/ops/set.ops"
VTABLE_set_number_keyed_int(interp, PREG(1), cur_opcode[2], NREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27042,7 +26104,6 @@
opcode_t *
Parrot_set_p_ki_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 348 "src/ops/set.ops"
VTABLE_set_number_keyed_int(interp, PREG(1), IREG(2), CONST(3)->u.number);
return (opcode_t *)cur_opcode + 4;}
@@ -27050,7 +26111,6 @@
opcode_t *
Parrot_set_p_kic_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 348 "src/ops/set.ops"
VTABLE_set_number_keyed_int(interp, PREG(1), cur_opcode[2], CONST(3)->u.number);
return (opcode_t *)cur_opcode + 4;}
@@ -27058,7 +26118,6 @@
opcode_t *
Parrot_set_p_ki_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 352 "src/ops/set.ops"
VTABLE_set_string_keyed_int(interp, PREG(1), IREG(2), SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27066,7 +26125,6 @@
opcode_t *
Parrot_set_p_kic_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 352 "src/ops/set.ops"
VTABLE_set_string_keyed_int(interp, PREG(1), cur_opcode[2], SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27074,7 +26132,6 @@
opcode_t *
Parrot_set_p_ki_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 352 "src/ops/set.ops"
VTABLE_set_string_keyed_int(interp, PREG(1), IREG(2), CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -27082,7 +26139,6 @@
opcode_t *
Parrot_set_p_kic_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 352 "src/ops/set.ops"
VTABLE_set_string_keyed_int(interp, PREG(1), cur_opcode[2], CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -27090,7 +26146,6 @@
opcode_t *
Parrot_set_p_ki_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 356 "src/ops/set.ops"
VTABLE_set_pmc_keyed_int(interp, PREG(1), IREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27098,7 +26153,6 @@
opcode_t *
Parrot_set_p_kic_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 356 "src/ops/set.ops"
VTABLE_set_pmc_keyed_int(interp, PREG(1), cur_opcode[2], PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27106,7 +26160,6 @@
opcode_t *
Parrot_set_i_p_ki (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 380 "src/ops/set.ops"
IREG(1) = VTABLE_get_integer_keyed_int(interp, PREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27114,7 +26167,6 @@
opcode_t *
Parrot_set_i_p_kic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 380 "src/ops/set.ops"
IREG(1) = VTABLE_get_integer_keyed_int(interp, PREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27122,7 +26174,6 @@
opcode_t *
Parrot_set_n_p_ki (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 384 "src/ops/set.ops"
NREG(1) = VTABLE_get_number_keyed_int(interp, PREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27130,7 +26181,6 @@
opcode_t *
Parrot_set_n_p_kic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 384 "src/ops/set.ops"
NREG(1) = VTABLE_get_number_keyed_int(interp, PREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27138,7 +26188,6 @@
opcode_t *
Parrot_set_s_p_ki (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 388 "src/ops/set.ops"
SREG(1) = VTABLE_get_string_keyed_int(interp, PREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27146,7 +26195,6 @@
opcode_t *
Parrot_set_s_p_kic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 388 "src/ops/set.ops"
SREG(1) = VTABLE_get_string_keyed_int(interp, PREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27154,7 +26202,6 @@
opcode_t *
Parrot_set_p_p_ki (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 392 "src/ops/set.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27162,7 +26209,6 @@
opcode_t *
Parrot_set_p_p_kic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 392 "src/ops/set.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27170,7 +26216,6 @@
opcode_t *
Parrot_set_p_k_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 416 "src/ops/set.ops"
VTABLE_set_integer_keyed(interp, PREG(1), PREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27178,7 +26223,6 @@
opcode_t *
Parrot_set_p_kc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 416 "src/ops/set.ops"
VTABLE_set_integer_keyed(interp, PREG(1), CONST(2)->u.key, IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27186,7 +26230,6 @@
opcode_t *
Parrot_set_p_k_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 416 "src/ops/set.ops"
VTABLE_set_integer_keyed(interp, PREG(1), PREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27194,7 +26237,6 @@
opcode_t *
Parrot_set_p_kc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 416 "src/ops/set.ops"
VTABLE_set_integer_keyed(interp, PREG(1), CONST(2)->u.key, cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27202,7 +26244,6 @@
opcode_t *
Parrot_set_p_k_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 420 "src/ops/set.ops"
VTABLE_set_number_keyed(interp, PREG(1), PREG(2), NREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27210,7 +26251,6 @@
opcode_t *
Parrot_set_p_kc_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 420 "src/ops/set.ops"
VTABLE_set_number_keyed(interp, PREG(1), CONST(2)->u.key, NREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27218,7 +26258,6 @@
opcode_t *
Parrot_set_p_k_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 420 "src/ops/set.ops"
VTABLE_set_number_keyed(interp, PREG(1), PREG(2), CONST(3)->u.number);
return (opcode_t *)cur_opcode + 4;}
@@ -27226,7 +26265,6 @@
opcode_t *
Parrot_set_p_kc_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 420 "src/ops/set.ops"
VTABLE_set_number_keyed(interp, PREG(1), CONST(2)->u.key, CONST(3)->u.number);
return (opcode_t *)cur_opcode + 4;}
@@ -27234,7 +26272,6 @@
opcode_t *
Parrot_set_p_k_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 424 "src/ops/set.ops"
VTABLE_set_string_keyed(interp, PREG(1), PREG(2), SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27242,7 +26279,6 @@
opcode_t *
Parrot_set_p_kc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 424 "src/ops/set.ops"
VTABLE_set_string_keyed(interp, PREG(1), CONST(2)->u.key, SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27250,7 +26286,6 @@
opcode_t *
Parrot_set_p_k_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 424 "src/ops/set.ops"
VTABLE_set_string_keyed(interp, PREG(1), PREG(2), CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -27258,7 +26293,6 @@
opcode_t *
Parrot_set_p_kc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 424 "src/ops/set.ops"
VTABLE_set_string_keyed(interp, PREG(1), CONST(2)->u.key, CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -27266,7 +26300,6 @@
opcode_t *
Parrot_set_p_k_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 428 "src/ops/set.ops"
VTABLE_set_pmc_keyed(interp, PREG(1), PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27274,7 +26307,6 @@
opcode_t *
Parrot_set_p_kc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 428 "src/ops/set.ops"
VTABLE_set_pmc_keyed(interp, PREG(1), CONST(2)->u.key, PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27282,7 +26314,6 @@
opcode_t *
Parrot_set_i_p_k (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 452 "src/ops/set.ops"
IREG(1) = VTABLE_get_integer_keyed(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27290,7 +26321,6 @@
opcode_t *
Parrot_set_i_p_kc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 452 "src/ops/set.ops"
IREG(1) = VTABLE_get_integer_keyed(interp, PREG(2), CONST(3)->u.key);
return (opcode_t *)cur_opcode + 4;}
@@ -27298,7 +26328,6 @@
opcode_t *
Parrot_set_n_p_k (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 456 "src/ops/set.ops"
NREG(1) = VTABLE_get_number_keyed(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27306,7 +26335,6 @@
opcode_t *
Parrot_set_n_p_kc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 456 "src/ops/set.ops"
NREG(1) = VTABLE_get_number_keyed(interp, PREG(2), CONST(3)->u.key);
return (opcode_t *)cur_opcode + 4;}
@@ -27314,7 +26342,6 @@
opcode_t *
Parrot_set_s_p_k (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 460 "src/ops/set.ops"
SREG(1) = VTABLE_get_string_keyed(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27322,7 +26349,6 @@
opcode_t *
Parrot_set_s_p_kc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 460 "src/ops/set.ops"
SREG(1) = VTABLE_get_string_keyed(interp, PREG(2), CONST(3)->u.key);
return (opcode_t *)cur_opcode + 4;}
@@ -27330,7 +26356,6 @@
opcode_t *
Parrot_set_p_p_k (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 464 "src/ops/set.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27338,7 +26363,6 @@
opcode_t *
Parrot_set_p_p_kc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 464 "src/ops/set.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), CONST(3)->u.key);
return (opcode_t *)cur_opcode + 4;}
@@ -27346,7 +26370,6 @@
opcode_t *
Parrot_clone_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 474 "src/ops/set.ops"
PREG(1) = VTABLE_clone(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -27354,7 +26377,6 @@
opcode_t *
Parrot_clone_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 484 "src/ops/set.ops"
PREG(1) = VTABLE_clone_pmc(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27362,7 +26384,6 @@
opcode_t *
Parrot_clone_p_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 484 "src/ops/set.ops"
PREG(1) = VTABLE_clone_pmc(interp, PREG(2), CONST(3)->u.key);
return (opcode_t *)cur_opcode + 4;}
@@ -27370,7 +26391,6 @@
opcode_t *
Parrot_copy_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 494 "src/ops/set.ops"
if (PMC_IS_NULL(PREG(1))) {
opcode_t *dest = cur_opcode + 3;
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, dest,
@@ -27411,7 +26431,6 @@
opcode_t *
Parrot_null_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 563 "src/ops/set.ops"
SREG(1) = NULL;
return (opcode_t *)cur_opcode + 2;}
@@ -27419,7 +26438,6 @@
opcode_t *
Parrot_null_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 567 "src/ops/set.ops"
IREG(1) = 0;
return (opcode_t *)cur_opcode + 2;}
@@ -27427,7 +26445,6 @@
opcode_t *
Parrot_null_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 571 "src/ops/set.ops"
PREG(1) = PMCNULL;
return (opcode_t *)cur_opcode + 2;}
@@ -27435,7 +26452,6 @@
opcode_t *
Parrot_null_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 575 "src/ops/set.ops"
NREG(1) = 0;
return (opcode_t *)cur_opcode + 2;}
@@ -27443,7 +26459,6 @@
opcode_t *
Parrot_cleari (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 597 "src/ops/set.ops"
Parrot_clear_i(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -27451,7 +26466,6 @@
opcode_t *
Parrot_clearn (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 601 "src/ops/set.ops"
Parrot_clear_n(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -27459,7 +26473,6 @@
opcode_t *
Parrot_clears (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 605 "src/ops/set.ops"
Parrot_clear_s(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -27467,7 +26480,6 @@
opcode_t *
Parrot_clearp (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 609 "src/ops/set.ops"
Parrot_clear_p(interp);
return (opcode_t *)cur_opcode + 1;}
@@ -27475,7 +26487,6 @@
opcode_t *
Parrot_ord_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 40 "src/ops/string.ops"
IREG(1) = string_ord(interp, SREG(2), 0);
return (opcode_t *)cur_opcode + 3;}
@@ -27483,7 +26494,6 @@
opcode_t *
Parrot_ord_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 40 "src/ops/string.ops"
IREG(1) = string_ord(interp, CONST(2)->u.string, 0);
return (opcode_t *)cur_opcode + 3;}
@@ -27491,7 +26501,6 @@
opcode_t *
Parrot_ord_i_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 44 "src/ops/string.ops"
IREG(1) = string_ord(interp, SREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27499,7 +26508,6 @@
opcode_t *
Parrot_ord_i_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 44 "src/ops/string.ops"
IREG(1) = string_ord(interp, CONST(2)->u.string, IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27507,7 +26515,6 @@
opcode_t *
Parrot_ord_i_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 44 "src/ops/string.ops"
IREG(1) = string_ord(interp, SREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27515,7 +26522,6 @@
opcode_t *
Parrot_ord_i_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 44 "src/ops/string.ops"
IREG(1) = string_ord(interp, CONST(2)->u.string, cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27523,7 +26529,6 @@
opcode_t *
Parrot_chr_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 55 "src/ops/string.ops"
STRING * const s = string_chr(interp, (UINTVAL)IREG(2));
SREG(1) = s;
@@ -27532,7 +26537,6 @@
opcode_t *
Parrot_chr_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 55 "src/ops/string.ops"
STRING * const s = string_chr(interp, (UINTVAL)cur_opcode[2]);
SREG(1) = s;
@@ -27541,7 +26545,6 @@
opcode_t *
Parrot_chopn_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 74 "src/ops/string.ops"
Parrot_str_chopn_inplace(interp, SREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -27549,7 +26552,6 @@
opcode_t *
Parrot_chopn_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 74 "src/ops/string.ops"
Parrot_str_chopn_inplace(interp, SREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -27557,7 +26559,6 @@
opcode_t *
Parrot_chopn_s_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/string.ops"
SREG(1) = Parrot_str_chopn(interp, SREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27565,7 +26566,6 @@
opcode_t *
Parrot_chopn_s_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/string.ops"
SREG(1) = Parrot_str_chopn(interp, CONST(2)->u.string, IREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -27573,7 +26573,6 @@
opcode_t *
Parrot_chopn_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/string.ops"
SREG(1) = Parrot_str_chopn(interp, SREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27581,7 +26580,6 @@
opcode_t *
Parrot_chopn_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 78 "src/ops/string.ops"
SREG(1) = Parrot_str_chopn(interp, CONST(2)->u.string, cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
@@ -27589,7 +26587,6 @@
opcode_t *
Parrot_concat_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 101 "src/ops/string.ops"
SREG(1) = Parrot_str_append(interp, SREG(1), SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -27597,7 +26594,6 @@
opcode_t *
Parrot_concat_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 101 "src/ops/string.ops"
SREG(1) = Parrot_str_append(interp, SREG(1), CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -27605,7 +26601,6 @@
opcode_t *
Parrot_concat_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 105 "src/ops/string.ops"
VTABLE_i_concatenate(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -27613,7 +26608,6 @@
opcode_t *
Parrot_concat_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 109 "src/ops/string.ops"
VTABLE_i_concatenate_str(interp, PREG(1), SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -27621,7 +26615,6 @@
opcode_t *
Parrot_concat_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 109 "src/ops/string.ops"
VTABLE_i_concatenate_str(interp, PREG(1), CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -27629,7 +26622,6 @@
opcode_t *
Parrot_concat_s_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 113 "src/ops/string.ops"
SREG(1) = Parrot_str_concat(interp, SREG(2), SREG(3), 1);
return (opcode_t *)cur_opcode + 4;}
@@ -27637,7 +26629,6 @@
opcode_t *
Parrot_concat_s_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 113 "src/ops/string.ops"
SREG(1) = Parrot_str_concat(interp, CONST(2)->u.string, SREG(3), 1);
return (opcode_t *)cur_opcode + 4;}
@@ -27645,7 +26636,6 @@
opcode_t *
Parrot_concat_s_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 113 "src/ops/string.ops"
SREG(1) = Parrot_str_concat(interp, SREG(2), CONST(3)->u.string, 1);
return (opcode_t *)cur_opcode + 4;}
@@ -27653,7 +26643,6 @@
opcode_t *
Parrot_concat_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 117 "src/ops/string.ops"
PREG(1) = VTABLE_concatenate_str(interp, PREG(2), SREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -27661,7 +26650,6 @@
opcode_t *
Parrot_concat_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 117 "src/ops/string.ops"
PREG(1) = VTABLE_concatenate_str(interp, PREG(2), CONST(3)->u.string, PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -27669,7 +26657,6 @@
opcode_t *
Parrot_concat_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 121 "src/ops/string.ops"
PREG(1) = VTABLE_concatenate(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -27677,7 +26664,6 @@
opcode_t *
Parrot_repeat_s_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 136 "src/ops/string.ops"
if (IREG(3) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
@@ -27691,7 +26677,6 @@
opcode_t *
Parrot_repeat_s_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 136 "src/ops/string.ops"
if (IREG(3) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
@@ -27705,7 +26690,6 @@
opcode_t *
Parrot_repeat_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 136 "src/ops/string.ops"
if (cur_opcode[3] < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
@@ -27719,7 +26703,6 @@
opcode_t *
Parrot_repeat_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 136 "src/ops/string.ops"
if (cur_opcode[3] < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
@@ -27733,7 +26716,6 @@
opcode_t *
Parrot_repeat_p_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 146 "src/ops/string.ops"
if (IREG(3) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
@@ -27747,7 +26729,6 @@
opcode_t *
Parrot_repeat_p_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 146 "src/ops/string.ops"
if (cur_opcode[3] < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
@@ -27761,7 +26742,6 @@
opcode_t *
Parrot_repeat_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 156 "src/ops/string.ops"
if (VTABLE_get_integer(interp, PREG(3)) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
@@ -27775,7 +26755,6 @@
opcode_t *
Parrot_repeat_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 175 "src/ops/string.ops"
VTABLE_i_repeat_int(interp, PREG(1), IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -27783,7 +26762,6 @@
opcode_t *
Parrot_repeat_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 175 "src/ops/string.ops"
VTABLE_i_repeat_int(interp, PREG(1), cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -27791,7 +26769,6 @@
opcode_t *
Parrot_repeat_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 179 "src/ops/string.ops"
VTABLE_i_repeat(interp, PREG(1), PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -27799,7 +26776,6 @@
opcode_t *
Parrot_length_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 196 "src/ops/string.ops"
IREG(1) = SREG(2) ? Parrot_str_byte_length(interp, SREG(2)) : 0;
return (opcode_t *)cur_opcode + 3;}
@@ -27807,7 +26783,6 @@
opcode_t *
Parrot_length_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 196 "src/ops/string.ops"
IREG(1) = CONST(2)->u.string ? Parrot_str_byte_length(interp, CONST(2)->u.string) : 0;
return (opcode_t *)cur_opcode + 3;}
@@ -27815,7 +26790,6 @@
opcode_t *
Parrot_bytelength_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 200 "src/ops/string.ops"
UINTVAL n;
STRING * const s = SREG(2);
if (!s)
@@ -27831,7 +26805,6 @@
opcode_t *
Parrot_bytelength_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 200 "src/ops/string.ops"
UINTVAL n;
STRING * const s = CONST(2)->u.string;
if (!s)
@@ -27847,7 +26820,6 @@
opcode_t *
Parrot_pin_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 223 "src/ops/string.ops"
Parrot_str_pin(interp, SREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -27855,7 +26827,6 @@
opcode_t *
Parrot_unpin_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 235 "src/ops/string.ops"
Parrot_str_unpin(interp, SREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -27863,7 +26834,6 @@
opcode_t *
Parrot_substr_s_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 271 "src/ops/string.ops"
const INTVAL len = Parrot_str_byte_length(interp, SREG(2));
SREG(1) = Parrot_str_substr(interp, SREG(2), IREG(3), len, &SREG(1), 0);
@@ -27872,7 +26842,6 @@
opcode_t *
Parrot_substr_s_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 271 "src/ops/string.ops"
const INTVAL len = Parrot_str_byte_length(interp, CONST(2)->u.string);
SREG(1) = Parrot_str_substr(interp, CONST(2)->u.string, IREG(3), len, &SREG(1), 0);
@@ -27881,7 +26850,6 @@
opcode_t *
Parrot_substr_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 271 "src/ops/string.ops"
const INTVAL len = Parrot_str_byte_length(interp, SREG(2));
SREG(1) = Parrot_str_substr(interp, SREG(2), cur_opcode[3], len, &SREG(1), 0);
@@ -27890,7 +26858,6 @@
opcode_t *
Parrot_substr_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 271 "src/ops/string.ops"
const INTVAL len = Parrot_str_byte_length(interp, CONST(2)->u.string);
SREG(1) = Parrot_str_substr(interp, CONST(2)->u.string, cur_opcode[3], len, &SREG(1), 0);
@@ -27899,7 +26866,6 @@
opcode_t *
Parrot_substr_s_s_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/string.ops"
SREG(1) = Parrot_str_substr(interp, SREG(2), IREG(3), IREG(4), &SREG(1), 0);
return (opcode_t *)cur_opcode + 5;}
@@ -27907,7 +26873,6 @@
opcode_t *
Parrot_substr_s_sc_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/string.ops"
SREG(1) = Parrot_str_substr(interp, CONST(2)->u.string, IREG(3), IREG(4), &SREG(1), 0);
return (opcode_t *)cur_opcode + 5;}
@@ -27915,7 +26880,6 @@
opcode_t *
Parrot_substr_s_s_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/string.ops"
SREG(1) = Parrot_str_substr(interp, SREG(2), cur_opcode[3], IREG(4), &SREG(1), 0);
return (opcode_t *)cur_opcode + 5;}
@@ -27923,7 +26887,6 @@
opcode_t *
Parrot_substr_s_sc_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/string.ops"
SREG(1) = Parrot_str_substr(interp, CONST(2)->u.string, cur_opcode[3], IREG(4), &SREG(1), 0);
return (opcode_t *)cur_opcode + 5;}
@@ -27931,7 +26894,6 @@
opcode_t *
Parrot_substr_s_s_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/string.ops"
SREG(1) = Parrot_str_substr(interp, SREG(2), IREG(3), cur_opcode[4], &SREG(1), 0);
return (opcode_t *)cur_opcode + 5;}
@@ -27939,7 +26901,6 @@
opcode_t *
Parrot_substr_s_sc_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/string.ops"
SREG(1) = Parrot_str_substr(interp, CONST(2)->u.string, IREG(3), cur_opcode[4], &SREG(1), 0);
return (opcode_t *)cur_opcode + 5;}
@@ -27947,7 +26908,6 @@
opcode_t *
Parrot_substr_s_s_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/string.ops"
SREG(1) = Parrot_str_substr(interp, SREG(2), cur_opcode[3], cur_opcode[4], &SREG(1), 0);
return (opcode_t *)cur_opcode + 5;}
@@ -27955,7 +26915,6 @@
opcode_t *
Parrot_substr_s_sc_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 276 "src/ops/string.ops"
SREG(1) = Parrot_str_substr(interp, CONST(2)->u.string, cur_opcode[3], cur_opcode[4], &SREG(1), 0);
return (opcode_t *)cur_opcode + 5;}
@@ -27963,7 +26922,6 @@
opcode_t *
Parrot_substr_s_s_i_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/string.ops"
SREG(1) = Parrot_str_replace(interp, SREG(2), IREG(3), IREG(4), SREG(5), &SREG(1));
return (opcode_t *)cur_opcode + 6;}
@@ -27971,7 +26929,6 @@
opcode_t *
Parrot_substr_s_s_ic_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/string.ops"
SREG(1) = Parrot_str_replace(interp, SREG(2), cur_opcode[3], IREG(4), SREG(5), &SREG(1));
return (opcode_t *)cur_opcode + 6;}
@@ -27979,7 +26936,6 @@
opcode_t *
Parrot_substr_s_s_i_ic_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/string.ops"
SREG(1) = Parrot_str_replace(interp, SREG(2), IREG(3), cur_opcode[4], SREG(5), &SREG(1));
return (opcode_t *)cur_opcode + 6;}
@@ -27987,7 +26943,6 @@
opcode_t *
Parrot_substr_s_s_ic_ic_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/string.ops"
SREG(1) = Parrot_str_replace(interp, SREG(2), cur_opcode[3], cur_opcode[4], SREG(5), &SREG(1));
return (opcode_t *)cur_opcode + 6;}
@@ -27995,7 +26950,6 @@
opcode_t *
Parrot_substr_s_s_i_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/string.ops"
SREG(1) = Parrot_str_replace(interp, SREG(2), IREG(3), IREG(4), CONST(5)->u.string, &SREG(1));
return (opcode_t *)cur_opcode + 6;}
@@ -28003,7 +26957,6 @@
opcode_t *
Parrot_substr_s_s_ic_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/string.ops"
SREG(1) = Parrot_str_replace(interp, SREG(2), cur_opcode[3], IREG(4), CONST(5)->u.string, &SREG(1));
return (opcode_t *)cur_opcode + 6;}
@@ -28011,7 +26964,6 @@
opcode_t *
Parrot_substr_s_s_i_ic_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/string.ops"
SREG(1) = Parrot_str_replace(interp, SREG(2), IREG(3), cur_opcode[4], CONST(5)->u.string, &SREG(1));
return (opcode_t *)cur_opcode + 6;}
@@ -28019,7 +26971,6 @@
opcode_t *
Parrot_substr_s_s_ic_ic_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 280 "src/ops/string.ops"
SREG(1) = Parrot_str_replace(interp, SREG(2), cur_opcode[3], cur_opcode[4], CONST(5)->u.string, &SREG(1));
return (opcode_t *)cur_opcode + 6;}
@@ -28027,7 +26978,6 @@
opcode_t *
Parrot_substr_s_i_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 284 "src/ops/string.ops"
(void)Parrot_str_replace(interp, SREG(1), IREG(2), IREG(3), SREG(4), NULL);
return (opcode_t *)cur_opcode + 5;}
@@ -28035,7 +26985,6 @@
opcode_t *
Parrot_substr_s_ic_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 284 "src/ops/string.ops"
(void)Parrot_str_replace(interp, SREG(1), cur_opcode[2], IREG(3), SREG(4), NULL);
return (opcode_t *)cur_opcode + 5;}
@@ -28043,7 +26992,6 @@
opcode_t *
Parrot_substr_s_i_ic_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 284 "src/ops/string.ops"
(void)Parrot_str_replace(interp, SREG(1), IREG(2), cur_opcode[3], SREG(4), NULL);
return (opcode_t *)cur_opcode + 5;}
@@ -28051,7 +26999,6 @@
opcode_t *
Parrot_substr_s_ic_ic_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 284 "src/ops/string.ops"
(void)Parrot_str_replace(interp, SREG(1), cur_opcode[2], cur_opcode[3], SREG(4), NULL);
return (opcode_t *)cur_opcode + 5;}
@@ -28059,7 +27006,6 @@
opcode_t *
Parrot_substr_s_i_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 284 "src/ops/string.ops"
(void)Parrot_str_replace(interp, SREG(1), IREG(2), IREG(3), CONST(4)->u.string, NULL);
return (opcode_t *)cur_opcode + 5;}
@@ -28067,7 +27013,6 @@
opcode_t *
Parrot_substr_s_ic_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 284 "src/ops/string.ops"
(void)Parrot_str_replace(interp, SREG(1), cur_opcode[2], IREG(3), CONST(4)->u.string, NULL);
return (opcode_t *)cur_opcode + 5;}
@@ -28075,7 +27020,6 @@
opcode_t *
Parrot_substr_s_i_ic_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 284 "src/ops/string.ops"
(void)Parrot_str_replace(interp, SREG(1), IREG(2), cur_opcode[3], CONST(4)->u.string, NULL);
return (opcode_t *)cur_opcode + 5;}
@@ -28083,7 +27027,6 @@
opcode_t *
Parrot_substr_s_ic_ic_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 284 "src/ops/string.ops"
(void)Parrot_str_replace(interp, SREG(1), cur_opcode[2], cur_opcode[3], CONST(4)->u.string, NULL);
return (opcode_t *)cur_opcode + 5;}
@@ -28091,7 +27034,6 @@
opcode_t *
Parrot_substr_s_p_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 288 "src/ops/string.ops"
SREG(1) = VTABLE_substr_str(interp, PREG(2), IREG(3), IREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -28099,7 +27041,6 @@
opcode_t *
Parrot_substr_s_p_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 288 "src/ops/string.ops"
SREG(1) = VTABLE_substr_str(interp, PREG(2), cur_opcode[3], IREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -28107,7 +27048,6 @@
opcode_t *
Parrot_substr_s_p_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 288 "src/ops/string.ops"
SREG(1) = VTABLE_substr_str(interp, PREG(2), IREG(3), cur_opcode[4]);
return (opcode_t *)cur_opcode + 5;}
@@ -28115,7 +27055,6 @@
opcode_t *
Parrot_substr_s_p_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 288 "src/ops/string.ops"
SREG(1) = VTABLE_substr_str(interp, PREG(2), cur_opcode[3], cur_opcode[4]);
return (opcode_t *)cur_opcode + 5;}
@@ -28123,7 +27062,6 @@
opcode_t *
Parrot_index_i_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 308 "src/ops/string.ops"
IREG(1) = (SREG(2) && SREG(3)) ? Parrot_str_find_index(interp, SREG(2), SREG(3), 0) : -1;
return (opcode_t *)cur_opcode + 4;}
@@ -28131,7 +27069,6 @@
opcode_t *
Parrot_index_i_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 308 "src/ops/string.ops"
IREG(1) = (CONST(2)->u.string && SREG(3)) ? Parrot_str_find_index(interp, CONST(2)->u.string, SREG(3), 0) : -1;
return (opcode_t *)cur_opcode + 4;}
@@ -28139,7 +27076,6 @@
opcode_t *
Parrot_index_i_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 308 "src/ops/string.ops"
IREG(1) = (SREG(2) && CONST(3)->u.string) ? Parrot_str_find_index(interp, SREG(2), CONST(3)->u.string, 0) : -1;
return (opcode_t *)cur_opcode + 4;}
@@ -28147,7 +27083,6 @@
opcode_t *
Parrot_index_i_sc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 308 "src/ops/string.ops"
IREG(1) = (CONST(2)->u.string && CONST(3)->u.string) ? Parrot_str_find_index(interp, CONST(2)->u.string, CONST(3)->u.string, 0) : -1;
return (opcode_t *)cur_opcode + 4;}
@@ -28155,7 +27090,6 @@
opcode_t *
Parrot_index_i_s_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 312 "src/ops/string.ops"
IREG(1) = (SREG(2) && SREG(3)) ? Parrot_str_find_index(interp, SREG(2), SREG(3), IREG(4)) : -1;
return (opcode_t *)cur_opcode + 5;}
@@ -28163,7 +27097,6 @@
opcode_t *
Parrot_index_i_sc_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 312 "src/ops/string.ops"
IREG(1) = (CONST(2)->u.string && SREG(3)) ? Parrot_str_find_index(interp, CONST(2)->u.string, SREG(3), IREG(4)) : -1;
return (opcode_t *)cur_opcode + 5;}
@@ -28171,7 +27104,6 @@
opcode_t *
Parrot_index_i_s_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 312 "src/ops/string.ops"
IREG(1) = (SREG(2) && CONST(3)->u.string) ? Parrot_str_find_index(interp, SREG(2), CONST(3)->u.string, IREG(4)) : -1;
return (opcode_t *)cur_opcode + 5;}
@@ -28179,7 +27111,6 @@
opcode_t *
Parrot_index_i_sc_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 312 "src/ops/string.ops"
IREG(1) = (CONST(2)->u.string && CONST(3)->u.string) ? Parrot_str_find_index(interp, CONST(2)->u.string, CONST(3)->u.string, IREG(4)) : -1;
return (opcode_t *)cur_opcode + 5;}
@@ -28187,7 +27118,6 @@
opcode_t *
Parrot_index_i_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 312 "src/ops/string.ops"
IREG(1) = (SREG(2) && SREG(3)) ? Parrot_str_find_index(interp, SREG(2), SREG(3), cur_opcode[4]) : -1;
return (opcode_t *)cur_opcode + 5;}
@@ -28195,7 +27125,6 @@
opcode_t *
Parrot_index_i_sc_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 312 "src/ops/string.ops"
IREG(1) = (CONST(2)->u.string && SREG(3)) ? Parrot_str_find_index(interp, CONST(2)->u.string, SREG(3), cur_opcode[4]) : -1;
return (opcode_t *)cur_opcode + 5;}
@@ -28203,7 +27132,6 @@
opcode_t *
Parrot_index_i_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 312 "src/ops/string.ops"
IREG(1) = (SREG(2) && CONST(3)->u.string) ? Parrot_str_find_index(interp, SREG(2), CONST(3)->u.string, cur_opcode[4]) : -1;
return (opcode_t *)cur_opcode + 5;}
@@ -28211,7 +27139,6 @@
opcode_t *
Parrot_index_i_sc_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 312 "src/ops/string.ops"
IREG(1) = (CONST(2)->u.string && CONST(3)->u.string) ? Parrot_str_find_index(interp, CONST(2)->u.string, CONST(3)->u.string, cur_opcode[4]) : -1;
return (opcode_t *)cur_opcode + 5;}
@@ -28219,7 +27146,6 @@
opcode_t *
Parrot_sprintf_s_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 332 "src/ops/string.ops"
SREG(1)=Parrot_psprintf(interp, SREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -28227,7 +27153,6 @@
opcode_t *
Parrot_sprintf_s_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 332 "src/ops/string.ops"
SREG(1)=Parrot_psprintf(interp, CONST(2)->u.string, PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -28235,7 +27160,6 @@
opcode_t *
Parrot_sprintf_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 336 "src/ops/string.ops"
VTABLE_set_string_native(interp, PREG(1),
Parrot_psprintf(interp, VTABLE_get_string(interp, PREG(2)), PREG(3)));
@@ -28244,7 +27168,6 @@
opcode_t *
Parrot_new_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 350 "src/ops/string.ops"
SREG(1) = Parrot_str_new_noinit(interp, enum_stringrep_one, 0);
return (opcode_t *)cur_opcode + 2;}
@@ -28252,7 +27175,6 @@
opcode_t *
Parrot_new_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 354 "src/ops/string.ops"
SREG(1) = Parrot_str_new_noinit(interp, enum_stringrep_one, IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -28260,7 +27182,6 @@
opcode_t *
Parrot_new_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 354 "src/ops/string.ops"
SREG(1) = Parrot_str_new_noinit(interp, enum_stringrep_one, cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -28268,7 +27189,6 @@
opcode_t *
Parrot_stringinfo_i_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 384 "src/ops/string.ops"
if (SREG(2) == NULL)
IREG(1) = 0;
else {
@@ -28306,7 +27226,6 @@
opcode_t *
Parrot_stringinfo_i_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 384 "src/ops/string.ops"
if (CONST(2)->u.string == NULL)
IREG(1) = 0;
else {
@@ -28344,7 +27263,6 @@
opcode_t *
Parrot_stringinfo_i_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 384 "src/ops/string.ops"
if (SREG(2) == NULL)
IREG(1) = 0;
else {
@@ -28382,7 +27300,6 @@
opcode_t *
Parrot_stringinfo_i_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 384 "src/ops/string.ops"
if (CONST(2)->u.string == NULL)
IREG(1) = 0;
else {
@@ -28420,7 +27337,6 @@
opcode_t *
Parrot_upcase_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 429 "src/ops/string.ops"
SREG(1) = Parrot_str_upcase(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -28428,7 +27344,6 @@
opcode_t *
Parrot_upcase_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 429 "src/ops/string.ops"
SREG(1) = Parrot_str_upcase(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -28436,7 +27351,6 @@
opcode_t *
Parrot_upcase_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 433 "src/ops/string.ops"
Parrot_str_upcase_inplace(interp, SREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -28444,7 +27358,6 @@
opcode_t *
Parrot_downcase_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 448 "src/ops/string.ops"
SREG(1) = Parrot_str_downcase(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -28452,7 +27365,6 @@
opcode_t *
Parrot_downcase_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 448 "src/ops/string.ops"
SREG(1) = Parrot_str_downcase(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -28460,7 +27372,6 @@
opcode_t *
Parrot_downcase_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 452 "src/ops/string.ops"
Parrot_str_downcase_inplace(interp, SREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -28468,7 +27379,6 @@
opcode_t *
Parrot_titlecase_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 467 "src/ops/string.ops"
SREG(1) = Parrot_str_titlecase(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -28476,7 +27386,6 @@
opcode_t *
Parrot_titlecase_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 467 "src/ops/string.ops"
SREG(1) = Parrot_str_titlecase(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -28484,7 +27393,6 @@
opcode_t *
Parrot_titlecase_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 471 "src/ops/string.ops"
Parrot_str_titlecase_inplace(interp, SREG(1));
return (opcode_t *)cur_opcode + 2;}
@@ -28492,7 +27400,6 @@
opcode_t *
Parrot_join_s_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 493 "src/ops/string.ops"
SREG(1) = Parrot_str_join(interp, SREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -28500,7 +27407,6 @@
opcode_t *
Parrot_join_s_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 493 "src/ops/string.ops"
SREG(1) = Parrot_str_join(interp, CONST(2)->u.string, PREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -28508,7 +27414,6 @@
opcode_t *
Parrot_split_p_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 497 "src/ops/string.ops"
PREG(1) = Parrot_str_split(interp, SREG(2), SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -28516,7 +27421,6 @@
opcode_t *
Parrot_split_p_sc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 497 "src/ops/string.ops"
PREG(1) = Parrot_str_split(interp, CONST(2)->u.string, SREG(3));
return (opcode_t *)cur_opcode + 4;}
@@ -28524,7 +27428,6 @@
opcode_t *
Parrot_split_p_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 497 "src/ops/string.ops"
PREG(1) = Parrot_str_split(interp, SREG(2), CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -28532,7 +27435,6 @@
opcode_t *
Parrot_split_p_sc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 497 "src/ops/string.ops"
PREG(1) = Parrot_str_split(interp, CONST(2)->u.string, CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
@@ -28540,7 +27442,6 @@
opcode_t *
Parrot_charset_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 528 "src/ops/string.ops"
IREG(1) = Parrot_charset_number_of_str(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -28548,7 +27449,6 @@
opcode_t *
Parrot_charset_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 528 "src/ops/string.ops"
IREG(1) = Parrot_charset_number_of_str(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -28556,7 +27456,6 @@
opcode_t *
Parrot_charsetname_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 532 "src/ops/string.ops"
STRING * const name = Parrot_charset_name(interp, IREG(2));
SREG(1) = name ? Parrot_str_copy(interp, name) : NULL;
@@ -28565,7 +27464,6 @@
opcode_t *
Parrot_charsetname_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 532 "src/ops/string.ops"
STRING * const name = Parrot_charset_name(interp, cur_opcode[2]);
SREG(1) = name ? Parrot_str_copy(interp, name) : NULL;
@@ -28574,7 +27472,6 @@
opcode_t *
Parrot_find_charset_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 537 "src/ops/string.ops"
const INTVAL n = Parrot_charset_number(interp, SREG(2));
if (n < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
@@ -28589,7 +27486,6 @@
opcode_t *
Parrot_find_charset_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 537 "src/ops/string.ops"
const INTVAL n = Parrot_charset_number(interp, CONST(2)->u.string);
if (n < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
@@ -28604,7 +27500,6 @@
opcode_t *
Parrot_trans_charset_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 548 "src/ops/string.ops"
SREG(1) = Parrot_str_change_charset(interp, SREG(1), IREG(2), NULL);
return (opcode_t *)cur_opcode + 3;}
@@ -28612,7 +27507,6 @@
opcode_t *
Parrot_trans_charset_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 548 "src/ops/string.ops"
SREG(1) = Parrot_str_change_charset(interp, SREG(1), cur_opcode[2], NULL);
return (opcode_t *)cur_opcode + 3;}
@@ -28620,7 +27514,6 @@
opcode_t *
Parrot_trans_charset_s_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 552 "src/ops/string.ops"
STRING *dest = Parrot_gc_new_string_header(interp, 0);
SREG(1) = Parrot_str_change_charset(interp, SREG(2), IREG(3), dest);
@@ -28629,7 +27522,6 @@
opcode_t *
Parrot_trans_charset_s_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 552 "src/ops/string.ops"
STRING *dest = Parrot_gc_new_string_header(interp, 0);
SREG(1) = Parrot_str_change_charset(interp, CONST(2)->u.string, IREG(3), dest);
@@ -28638,7 +27530,6 @@
opcode_t *
Parrot_trans_charset_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 552 "src/ops/string.ops"
STRING *dest = Parrot_gc_new_string_header(interp, 0);
SREG(1) = Parrot_str_change_charset(interp, SREG(2), cur_opcode[3], dest);
@@ -28647,7 +27538,6 @@
opcode_t *
Parrot_trans_charset_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 552 "src/ops/string.ops"
STRING *dest = Parrot_gc_new_string_header(interp, 0);
SREG(1) = Parrot_str_change_charset(interp, CONST(2)->u.string, cur_opcode[3], dest);
@@ -28656,7 +27546,6 @@
opcode_t *
Parrot_encoding_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 584 "src/ops/string.ops"
IREG(1) = Parrot_encoding_number_of_str(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -28664,7 +27553,6 @@
opcode_t *
Parrot_encoding_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 584 "src/ops/string.ops"
IREG(1) = Parrot_encoding_number_of_str(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -28672,7 +27560,6 @@
opcode_t *
Parrot_encodingname_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 588 "src/ops/string.ops"
STRING * const name = Parrot_encoding_name(interp, IREG(2));
SREG(1) = name ? Parrot_str_copy(interp, name) : NULL;
@@ -28681,7 +27568,6 @@
opcode_t *
Parrot_encodingname_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 588 "src/ops/string.ops"
STRING * const name = Parrot_encoding_name(interp, cur_opcode[2]);
SREG(1) = name ? Parrot_str_copy(interp, name) : NULL;
@@ -28690,7 +27576,6 @@
opcode_t *
Parrot_find_encoding_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 593 "src/ops/string.ops"
const INTVAL n = Parrot_encoding_number(interp, SREG(2));
if (n < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
@@ -28705,7 +27590,6 @@
opcode_t *
Parrot_find_encoding_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 593 "src/ops/string.ops"
const INTVAL n = Parrot_encoding_number(interp, CONST(2)->u.string);
if (n < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
@@ -28720,7 +27604,6 @@
opcode_t *
Parrot_trans_encoding_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 604 "src/ops/string.ops"
SREG(1) = Parrot_str_change_encoding(interp, SREG(1), IREG(2), NULL);
return (opcode_t *)cur_opcode + 3;}
@@ -28728,7 +27611,6 @@
opcode_t *
Parrot_trans_encoding_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 604 "src/ops/string.ops"
SREG(1) = Parrot_str_change_encoding(interp, SREG(1), cur_opcode[2], NULL);
return (opcode_t *)cur_opcode + 3;}
@@ -28736,7 +27618,6 @@
opcode_t *
Parrot_trans_encoding_s_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 608 "src/ops/string.ops"
STRING * const dest = Parrot_gc_new_string_header(interp, 0);
SREG(1) = Parrot_str_change_encoding(interp, SREG(2), IREG(3), dest);
@@ -28745,7 +27626,6 @@
opcode_t *
Parrot_trans_encoding_s_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 608 "src/ops/string.ops"
STRING * const dest = Parrot_gc_new_string_header(interp, 0);
SREG(1) = Parrot_str_change_encoding(interp, CONST(2)->u.string, IREG(3), dest);
@@ -28754,7 +27634,6 @@
opcode_t *
Parrot_trans_encoding_s_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 608 "src/ops/string.ops"
STRING * const dest = Parrot_gc_new_string_header(interp, 0);
SREG(1) = Parrot_str_change_encoding(interp, SREG(2), cur_opcode[3], dest);
@@ -28763,7 +27642,6 @@
opcode_t *
Parrot_trans_encoding_s_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 608 "src/ops/string.ops"
STRING * const dest = Parrot_gc_new_string_header(interp, 0);
SREG(1) = Parrot_str_change_encoding(interp, CONST(2)->u.string, cur_opcode[3], dest);
@@ -28772,7 +27650,6 @@
opcode_t *
Parrot_is_cclass_i_i_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/string.ops"
IREG(1) = Parrot_str_is_cclass(interp, IREG(2), SREG(3), IREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -28780,7 +27657,6 @@
opcode_t *
Parrot_is_cclass_i_ic_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/string.ops"
IREG(1) = Parrot_str_is_cclass(interp, cur_opcode[2], SREG(3), IREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -28788,7 +27664,6 @@
opcode_t *
Parrot_is_cclass_i_i_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/string.ops"
IREG(1) = Parrot_str_is_cclass(interp, IREG(2), CONST(3)->u.string, IREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -28796,7 +27671,6 @@
opcode_t *
Parrot_is_cclass_i_ic_sc_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/string.ops"
IREG(1) = Parrot_str_is_cclass(interp, cur_opcode[2], CONST(3)->u.string, IREG(4));
return (opcode_t *)cur_opcode + 5;}
@@ -28804,7 +27678,6 @@
opcode_t *
Parrot_is_cclass_i_i_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/string.ops"
IREG(1) = Parrot_str_is_cclass(interp, IREG(2), SREG(3), cur_opcode[4]);
return (opcode_t *)cur_opcode + 5;}
@@ -28812,7 +27685,6 @@
opcode_t *
Parrot_is_cclass_i_ic_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/string.ops"
IREG(1) = Parrot_str_is_cclass(interp, cur_opcode[2], SREG(3), cur_opcode[4]);
return (opcode_t *)cur_opcode + 5;}
@@ -28820,7 +27692,6 @@
opcode_t *
Parrot_is_cclass_i_i_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/string.ops"
IREG(1) = Parrot_str_is_cclass(interp, IREG(2), CONST(3)->u.string, cur_opcode[4]);
return (opcode_t *)cur_opcode + 5;}
@@ -28828,7 +27699,6 @@
opcode_t *
Parrot_is_cclass_i_ic_sc_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 621 "src/ops/string.ops"
IREG(1) = Parrot_str_is_cclass(interp, cur_opcode[2], CONST(3)->u.string, cur_opcode[4]);
return (opcode_t *)cur_opcode + 5;}
@@ -28836,7 +27706,6 @@
opcode_t *
Parrot_find_cclass_i_i_s_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, IREG(2), SREG(3), IREG(4), IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28844,7 +27713,6 @@
opcode_t *
Parrot_find_cclass_i_ic_s_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], SREG(3), IREG(4), IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28852,7 +27720,6 @@
opcode_t *
Parrot_find_cclass_i_i_sc_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, IREG(2), CONST(3)->u.string, IREG(4), IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28860,7 +27727,6 @@
opcode_t *
Parrot_find_cclass_i_ic_sc_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], CONST(3)->u.string, IREG(4), IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28868,7 +27734,6 @@
opcode_t *
Parrot_find_cclass_i_i_s_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, IREG(2), SREG(3), cur_opcode[4], IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28876,7 +27741,6 @@
opcode_t *
Parrot_find_cclass_i_ic_s_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], SREG(3), cur_opcode[4], IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28884,7 +27748,6 @@
opcode_t *
Parrot_find_cclass_i_i_sc_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, IREG(2), CONST(3)->u.string, cur_opcode[4], IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28892,7 +27755,6 @@
opcode_t *
Parrot_find_cclass_i_ic_sc_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], CONST(3)->u.string, cur_opcode[4], IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28900,7 +27762,6 @@
opcode_t *
Parrot_find_cclass_i_i_s_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, IREG(2), SREG(3), IREG(4), cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -28908,7 +27769,6 @@
opcode_t *
Parrot_find_cclass_i_ic_s_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], SREG(3), IREG(4), cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -28916,7 +27776,6 @@
opcode_t *
Parrot_find_cclass_i_i_sc_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, IREG(2), CONST(3)->u.string, IREG(4), cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -28924,7 +27783,6 @@
opcode_t *
Parrot_find_cclass_i_ic_sc_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], CONST(3)->u.string, IREG(4), cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -28932,7 +27790,6 @@
opcode_t *
Parrot_find_cclass_i_i_s_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, IREG(2), SREG(3), cur_opcode[4], cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -28940,7 +27797,6 @@
opcode_t *
Parrot_find_cclass_i_ic_s_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], SREG(3), cur_opcode[4], cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -28948,7 +27804,6 @@
opcode_t *
Parrot_find_cclass_i_i_sc_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, IREG(2), CONST(3)->u.string, cur_opcode[4], cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -28956,7 +27811,6 @@
opcode_t *
Parrot_find_cclass_i_ic_sc_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 635 "src/ops/string.ops"
IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], CONST(3)->u.string, cur_opcode[4], cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -28964,7 +27818,6 @@
opcode_t *
Parrot_find_not_cclass_i_i_s_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), SREG(3), IREG(4), IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28972,7 +27825,6 @@
opcode_t *
Parrot_find_not_cclass_i_ic_s_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], SREG(3), IREG(4), IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28980,7 +27832,6 @@
opcode_t *
Parrot_find_not_cclass_i_i_sc_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), CONST(3)->u.string, IREG(4), IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28988,7 +27839,6 @@
opcode_t *
Parrot_find_not_cclass_i_ic_sc_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], CONST(3)->u.string, IREG(4), IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -28996,7 +27846,6 @@
opcode_t *
Parrot_find_not_cclass_i_i_s_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), SREG(3), cur_opcode[4], IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -29004,7 +27853,6 @@
opcode_t *
Parrot_find_not_cclass_i_ic_s_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], SREG(3), cur_opcode[4], IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -29012,7 +27860,6 @@
opcode_t *
Parrot_find_not_cclass_i_i_sc_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), CONST(3)->u.string, cur_opcode[4], IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -29020,7 +27867,6 @@
opcode_t *
Parrot_find_not_cclass_i_ic_sc_ic_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], CONST(3)->u.string, cur_opcode[4], IREG(5));
return (opcode_t *)cur_opcode + 6;}
@@ -29028,7 +27874,6 @@
opcode_t *
Parrot_find_not_cclass_i_i_s_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), SREG(3), IREG(4), cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -29036,7 +27881,6 @@
opcode_t *
Parrot_find_not_cclass_i_ic_s_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], SREG(3), IREG(4), cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -29044,7 +27888,6 @@
opcode_t *
Parrot_find_not_cclass_i_i_sc_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), CONST(3)->u.string, IREG(4), cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -29052,7 +27895,6 @@
opcode_t *
Parrot_find_not_cclass_i_ic_sc_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], CONST(3)->u.string, IREG(4), cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -29060,7 +27902,6 @@
opcode_t *
Parrot_find_not_cclass_i_i_s_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), SREG(3), cur_opcode[4], cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -29068,7 +27909,6 @@
opcode_t *
Parrot_find_not_cclass_i_ic_s_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], SREG(3), cur_opcode[4], cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -29076,7 +27916,6 @@
opcode_t *
Parrot_find_not_cclass_i_i_sc_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), CONST(3)->u.string, cur_opcode[4], cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -29084,7 +27923,6 @@
opcode_t *
Parrot_find_not_cclass_i_ic_sc_ic_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 649 "src/ops/string.ops"
IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], CONST(3)->u.string, cur_opcode[4], cur_opcode[5]);
return (opcode_t *)cur_opcode + 6;}
@@ -29092,7 +27930,6 @@
opcode_t *
Parrot_escape_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 665 "src/ops/string.ops"
SREG(1) = Parrot_str_escape(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -29100,7 +27937,6 @@
opcode_t *
Parrot_compose_s_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 669 "src/ops/string.ops"
SREG(1) = Parrot_str_compose(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -29108,7 +27944,6 @@
opcode_t *
Parrot_compose_s_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 669 "src/ops/string.ops"
SREG(1) = Parrot_str_compose(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -29116,7 +27951,6 @@
opcode_t *
Parrot_spawnw_i_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 42 "src/ops/sys.ops"
IREG(1) = Parrot_Run_OS_Command(interp, SREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -29124,7 +27958,6 @@
opcode_t *
Parrot_spawnw_i_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 42 "src/ops/sys.ops"
IREG(1) = Parrot_Run_OS_Command(interp, CONST(2)->u.string);
return (opcode_t *)cur_opcode + 3;}
@@ -29132,7 +27965,6 @@
opcode_t *
Parrot_spawnw_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 46 "src/ops/sys.ops"
IREG(1) = Parrot_Run_OS_Command_Argv(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -29140,7 +27972,6 @@
opcode_t *
Parrot_err_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 67 "src/ops/sys.ops"
IREG(1) = errno;
return (opcode_t *)cur_opcode + 2;}
@@ -29148,7 +27979,6 @@
opcode_t *
Parrot_err_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 71 "src/ops/sys.ops"
const char * const tmp = strerror(errno);
SREG(1) = string_make(interp, tmp, strlen(tmp), "ascii", 0);
@@ -29157,7 +27987,6 @@
opcode_t *
Parrot_err_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 76 "src/ops/sys.ops"
const char * const tmp = strerror(IREG(2));
SREG(1) = string_make(interp, tmp, strlen(tmp), "ascii", 0);
@@ -29166,7 +27995,6 @@
opcode_t *
Parrot_err_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 76 "src/ops/sys.ops"
const char * const tmp = strerror(cur_opcode[2]);
SREG(1) = string_make(interp, tmp, strlen(tmp), "ascii", 0);
@@ -29175,7 +28003,6 @@
opcode_t *
Parrot_time_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 91 "src/ops/sys.ops"
IREG(1) = Parrot_intval_time();
return (opcode_t *)cur_opcode + 2;}
@@ -29183,7 +28010,6 @@
opcode_t *
Parrot_time_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 105 "src/ops/sys.ops"
NREG(1) = Parrot_floatval_time();
return (opcode_t *)cur_opcode + 2;}
@@ -29191,7 +28017,6 @@
opcode_t *
Parrot_gmtime_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 178 "src/ops/sys.ops"
struct tm tm;
const time_t t = (time_t) IREG(2);
char resultbuffer[26];
@@ -29204,7 +28029,6 @@
opcode_t *
Parrot_gmtime_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 178 "src/ops/sys.ops"
struct tm tm;
const time_t t = (time_t) cur_opcode[2];
char resultbuffer[26];
@@ -29217,7 +28041,6 @@
opcode_t *
Parrot_localtime_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 187 "src/ops/sys.ops"
struct tm tm;
const time_t t = (time_t) IREG(2);
char resultbuffer[26];
@@ -29230,7 +28053,6 @@
opcode_t *
Parrot_localtime_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 187 "src/ops/sys.ops"
struct tm tm;
const time_t t = (time_t) cur_opcode[2];
char resultbuffer[26];
@@ -29243,7 +28065,6 @@
opcode_t *
Parrot_decodetime_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 196 "src/ops/sys.ops"
struct tm tm;
const time_t t = (time_t) IREG(2);
Parrot_gmtime_r(&t, &tm);
@@ -29254,7 +28075,6 @@
opcode_t *
Parrot_decodetime_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 196 "src/ops/sys.ops"
struct tm tm;
const time_t t = (time_t) cur_opcode[2];
Parrot_gmtime_r(&t, &tm);
@@ -29265,7 +28085,6 @@
opcode_t *
Parrot_decodelocaltime_p_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 203 "src/ops/sys.ops"
struct tm tm;
const time_t t = (time_t) IREG(2);
Parrot_localtime_r(&t, &tm);
@@ -29276,7 +28095,6 @@
opcode_t *
Parrot_decodelocaltime_p_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 203 "src/ops/sys.ops"
struct tm tm;
const time_t t = (time_t) cur_opcode[2];
Parrot_localtime_r(&t, &tm);
@@ -29287,7 +28105,6 @@
opcode_t *
Parrot_sysinfo_s_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 267 "src/ops/sys.ops"
SREG(1) = sysinfo_s(interp, IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -29295,7 +28112,6 @@
opcode_t *
Parrot_sysinfo_s_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 267 "src/ops/sys.ops"
SREG(1) = sysinfo_s(interp, cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -29303,7 +28119,6 @@
opcode_t *
Parrot_sysinfo_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 271 "src/ops/sys.ops"
IREG(1) = sysinfo_i(interp, IREG(2));
return (opcode_t *)cur_opcode + 3;}
@@ -29311,7 +28126,6 @@
opcode_t *
Parrot_sysinfo_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 271 "src/ops/sys.ops"
IREG(1) = sysinfo_i(interp, cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
@@ -29319,7 +28133,6 @@
opcode_t *
Parrot_sleep_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 285 "src/ops/sys.ops"
opcode_t *next = cur_opcode + 2;
if (IREG(1) < 0) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
@@ -29334,7 +28147,6 @@
opcode_t *
Parrot_sleep_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 285 "src/ops/sys.ops"
opcode_t *next = cur_opcode + 2;
if (cur_opcode[1] < 0) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
@@ -29349,7 +28161,6 @@
opcode_t *
Parrot_sleep_n (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 297 "src/ops/sys.ops"
opcode_t *next = cur_opcode + 2;
if (NREG(1) < 0.0) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
@@ -29364,7 +28175,6 @@
opcode_t *
Parrot_sleep_nc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 297 "src/ops/sys.ops"
opcode_t *next = cur_opcode + 2;
if (CONST(1)->u.number < 0.0) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
@@ -29379,7 +28189,6 @@
opcode_t *
Parrot_sizeof_i_i (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 317 "src/ops/sys.ops"
INTVAL unused = PARROT_WARNINGS_test(interp,PARROT_WARNINGS_DEPRECATED_FLAG) &&
fprintf(stderr,"Warning: instruction 'sizeof' is deprecated\n");
if (IREG(2) < enum_first_type || IREG(2) >= enum_last_type)
@@ -29392,7 +28201,6 @@
opcode_t *
Parrot_sizeof_i_ic (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 317 "src/ops/sys.ops"
INTVAL unused = PARROT_WARNINGS_test(interp,PARROT_WARNINGS_DEPRECATED_FLAG) &&
fprintf(stderr,"Warning: instruction 'sizeof' is deprecated\n");
if (cur_opcode[2] < enum_first_type || cur_opcode[2] >= enum_last_type)
@@ -29405,7 +28213,6 @@
opcode_t *
Parrot_store_lex_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 40 "src/ops/var.ops"
PMC * const ctx = CURRENT_CONTEXT(interp);
STRING * const lex_name = SREG(1);
PMC * const lex_pad = Parrot_find_pad(interp, lex_name, ctx);
@@ -29423,7 +28230,6 @@
opcode_t *
Parrot_store_lex_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 40 "src/ops/var.ops"
PMC * const ctx = CURRENT_CONTEXT(interp);
STRING * const lex_name = CONST(1)->u.string;
PMC * const lex_pad = Parrot_find_pad(interp, lex_name, ctx);
@@ -29441,7 +28247,6 @@
opcode_t *
Parrot_store_dynamic_lex_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 65 "src/ops/var.ops"
STRING * const lex_name = SREG(1);
PMC * const ctx =
Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
@@ -29463,7 +28268,6 @@
opcode_t *
Parrot_store_dynamic_lex_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 65 "src/ops/var.ops"
STRING * const lex_name = CONST(1)->u.string;
PMC * const ctx =
Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
@@ -29485,7 +28289,6 @@
opcode_t *
Parrot_find_lex_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 94 "src/ops/var.ops"
PMC * const ctx = CURRENT_CONTEXT(interp);
STRING * const lex_name = SREG(2);
PMC * const lex_pad = Parrot_find_pad(interp, lex_name, ctx);
@@ -29507,7 +28310,6 @@
opcode_t *
Parrot_find_lex_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 94 "src/ops/var.ops"
PMC * const ctx = CURRENT_CONTEXT(interp);
STRING * const lex_name = CONST(2)->u.string;
PMC * const lex_pad = Parrot_find_pad(interp, lex_name, ctx);
@@ -29529,7 +28331,6 @@
opcode_t *
Parrot_find_dynamic_lex_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 123 "src/ops/var.ops"
STRING * const lex_name = SREG(2);
PMC * const ctx =
Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
@@ -29548,7 +28349,6 @@
opcode_t *
Parrot_find_dynamic_lex_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 123 "src/ops/var.ops"
STRING * const lex_name = CONST(2)->u.string;
PMC * const ctx =
Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
@@ -29567,7 +28367,6 @@
opcode_t *
Parrot_find_caller_lex_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 147 "src/ops/var.ops"
STRING * const lex_name = SREG(2);
PMC * ctx = CURRENT_CONTEXT(interp);
PMC * result = PMCNULL;
@@ -29589,7 +28388,6 @@
opcode_t *
Parrot_find_caller_lex_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 147 "src/ops/var.ops"
STRING * const lex_name = CONST(2)->u.string;
PMC * ctx = CURRENT_CONTEXT(interp);
PMC * result = PMCNULL;
@@ -29611,7 +28409,6 @@
opcode_t *
Parrot_get_namespace_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 186 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
PREG(1) = cur_ns;
@@ -29620,7 +28417,6 @@
opcode_t *
Parrot_get_namespace_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 191 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
PMC * const ns = Parrot_get_namespace_keyed(interp, cur_ns, PREG(2));
@@ -29631,7 +28427,6 @@
opcode_t *
Parrot_get_namespace_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 191 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
PMC * const ns = Parrot_get_namespace_keyed(interp, cur_ns, CONST(2)->u.key);
@@ -29642,7 +28437,6 @@
opcode_t *
Parrot_get_hll_namespace_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 210 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
PREG(1) = hll_ns;
@@ -29651,7 +28445,6 @@
opcode_t *
Parrot_get_hll_namespace_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 215 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
if (PMC_IS_NULL(hll_ns))
PREG(1) = PMCNULL;
@@ -29665,7 +28458,6 @@
opcode_t *
Parrot_get_hll_namespace_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 215 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
if (PMC_IS_NULL(hll_ns))
PREG(1) = PMCNULL;
@@ -29679,7 +28471,6 @@
opcode_t *
Parrot_get_root_namespace_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 236 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
PREG(1) = root_ns;
@@ -29688,7 +28479,6 @@
opcode_t *
Parrot_get_root_namespace_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 241 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
if (PMC_IS_NULL(root_ns))
PREG(1) = PMCNULL;
@@ -29702,7 +28492,6 @@
opcode_t *
Parrot_get_root_namespace_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 241 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
if (PMC_IS_NULL(root_ns))
PREG(1) = PMCNULL;
@@ -29716,7 +28505,6 @@
opcode_t *
Parrot_get_global_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 274 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
PREG(1) = Parrot_find_global_op(interp, cur_ns, SREG(2), cur_opcode + 3);
@@ -29725,7 +28513,6 @@
opcode_t *
Parrot_get_global_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 274 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
PREG(1) = Parrot_find_global_op(interp, cur_ns, CONST(2)->u.string, cur_opcode + 3);
@@ -29734,7 +28521,6 @@
opcode_t *
Parrot_get_global_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 279 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
if (PMC_IS_NULL(cur_ns)) {
PREG(1) = PMCNULL;
@@ -29752,7 +28538,6 @@
opcode_t *
Parrot_get_global_p_pc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 279 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
if (PMC_IS_NULL(cur_ns)) {
PREG(1) = PMCNULL;
@@ -29770,7 +28555,6 @@
opcode_t *
Parrot_get_global_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 279 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
if (PMC_IS_NULL(cur_ns)) {
PREG(1) = PMCNULL;
@@ -29788,7 +28572,6 @@
opcode_t *
Parrot_get_global_p_pc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 279 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
if (PMC_IS_NULL(cur_ns)) {
PREG(1) = PMCNULL;
@@ -29806,7 +28589,6 @@
opcode_t *
Parrot_get_hll_global_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 306 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
PREG(1) = Parrot_find_global_op(interp, hll_ns, SREG(2), cur_opcode + 3);
@@ -29815,7 +28597,6 @@
opcode_t *
Parrot_get_hll_global_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 306 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
PREG(1) = Parrot_find_global_op(interp, hll_ns, CONST(2)->u.string, cur_opcode + 3);
@@ -29824,7 +28605,6 @@
opcode_t *
Parrot_get_hll_global_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 311 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
if (PMC_IS_NULL(hll_ns)) {
PREG(1) = hll_ns;
@@ -29842,7 +28622,6 @@
opcode_t *
Parrot_get_hll_global_p_pc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 311 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
if (PMC_IS_NULL(hll_ns)) {
PREG(1) = hll_ns;
@@ -29860,7 +28639,6 @@
opcode_t *
Parrot_get_hll_global_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 311 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
if (PMC_IS_NULL(hll_ns)) {
PREG(1) = hll_ns;
@@ -29878,7 +28656,6 @@
opcode_t *
Parrot_get_hll_global_p_pc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 311 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
if (PMC_IS_NULL(hll_ns)) {
PREG(1) = hll_ns;
@@ -29896,7 +28673,6 @@
opcode_t *
Parrot_get_root_global_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 338 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
PREG(1) = Parrot_find_global_op(interp, root_ns, SREG(2), cur_opcode + 3);
@@ -29905,7 +28681,6 @@
opcode_t *
Parrot_get_root_global_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 338 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
PREG(1) = Parrot_find_global_op(interp, root_ns, CONST(2)->u.string, cur_opcode + 3);
@@ -29914,7 +28689,6 @@
opcode_t *
Parrot_get_root_global_p_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 343 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
if (PMC_IS_NULL(root_ns))
PREG(1) = PMCNULL;
@@ -29931,7 +28705,6 @@
opcode_t *
Parrot_get_root_global_p_pc_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 343 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
if (PMC_IS_NULL(root_ns))
PREG(1) = PMCNULL;
@@ -29948,7 +28721,6 @@
opcode_t *
Parrot_get_root_global_p_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 343 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
if (PMC_IS_NULL(root_ns))
PREG(1) = PMCNULL;
@@ -29965,7 +28737,6 @@
opcode_t *
Parrot_get_root_global_p_pc_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 343 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
if (PMC_IS_NULL(root_ns))
PREG(1) = PMCNULL;
@@ -29982,7 +28753,6 @@
opcode_t *
Parrot_set_global_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 378 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
Parrot_set_global(interp, cur_ns, SREG(1), PREG(2));
@@ -29991,7 +28761,6 @@
opcode_t *
Parrot_set_global_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 378 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
Parrot_set_global(interp, cur_ns, CONST(1)->u.string, PREG(2));
@@ -30000,7 +28769,6 @@
opcode_t *
Parrot_set_global_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 383 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
PMC * const ns = Parrot_make_namespace_keyed(interp, cur_ns, PREG(1));
@@ -30011,7 +28779,6 @@
opcode_t *
Parrot_set_global_pc_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 383 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
PMC * const ns = Parrot_make_namespace_keyed(interp, cur_ns, CONST(1)->u.key);
@@ -30022,7 +28789,6 @@
opcode_t *
Parrot_set_global_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 383 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
PMC * const ns = Parrot_make_namespace_keyed(interp, cur_ns, PREG(1));
@@ -30033,7 +28799,6 @@
opcode_t *
Parrot_set_global_pc_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 383 "src/ops/var.ops"
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
PMC * const ns = Parrot_make_namespace_keyed(interp, cur_ns, CONST(1)->u.key);
@@ -30044,7 +28809,6 @@
opcode_t *
Parrot_set_hll_global_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 402 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
Parrot_set_global(interp, hll_ns, SREG(1), PREG(2));
@@ -30053,7 +28817,6 @@
opcode_t *
Parrot_set_hll_global_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 402 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
Parrot_set_global(interp, hll_ns, CONST(1)->u.string, PREG(2));
@@ -30062,7 +28825,6 @@
opcode_t *
Parrot_set_hll_global_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 407 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
PMC * const ns = Parrot_make_namespace_keyed(interp, hll_ns, PREG(1));
@@ -30073,7 +28835,6 @@
opcode_t *
Parrot_set_hll_global_pc_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 407 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
PMC * const ns = Parrot_make_namespace_keyed(interp, hll_ns, CONST(1)->u.key);
@@ -30084,7 +28845,6 @@
opcode_t *
Parrot_set_hll_global_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 407 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
PMC * const ns = Parrot_make_namespace_keyed(interp, hll_ns, PREG(1));
@@ -30095,7 +28855,6 @@
opcode_t *
Parrot_set_hll_global_pc_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 407 "src/ops/var.ops"
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
PMC * const ns = Parrot_make_namespace_keyed(interp, hll_ns, CONST(1)->u.key);
@@ -30106,7 +28865,6 @@
opcode_t *
Parrot_set_root_global_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 426 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
Parrot_set_global(interp, root_ns, SREG(1), PREG(2));
@@ -30115,7 +28873,6 @@
opcode_t *
Parrot_set_root_global_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 426 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
Parrot_set_global(interp, root_ns, CONST(1)->u.string, PREG(2));
@@ -30124,7 +28881,6 @@
opcode_t *
Parrot_set_root_global_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 431 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
PMC * const ns = Parrot_make_namespace_keyed(interp, root_ns, PREG(1));
@@ -30135,7 +28891,6 @@
opcode_t *
Parrot_set_root_global_pc_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 431 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
PMC * const ns = Parrot_make_namespace_keyed(interp, root_ns, CONST(1)->u.key);
@@ -30146,7 +28901,6 @@
opcode_t *
Parrot_set_root_global_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 431 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
PMC * const ns = Parrot_make_namespace_keyed(interp, root_ns, PREG(1));
@@ -30157,7 +28911,6 @@
opcode_t *
Parrot_set_root_global_pc_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 431 "src/ops/var.ops"
PMC * const root_ns = interp->root_namespace;
PMC * const ns = Parrot_make_namespace_keyed(interp, root_ns, CONST(1)->u.key);
@@ -30168,7 +28921,6 @@
opcode_t *
Parrot_find_name_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 463 "src/ops/var.ops"
if (!SREG(2)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
@@ -30183,7 +28935,6 @@
opcode_t *
Parrot_find_name_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 463 "src/ops/var.ops"
if (!CONST(2)->u.string) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
@@ -30198,7 +28949,6 @@
opcode_t *
Parrot_find_sub_not_null_p_s (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 481 "src/ops/var.ops"
opcode_t *dest = cur_opcode + 3;
PMC *sub = Parrot_find_name_op(interp, SREG(2), dest);
@@ -30216,7 +28966,6 @@
opcode_t *
Parrot_find_sub_not_null_p_sc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 481 "src/ops/var.ops"
opcode_t *dest = cur_opcode + 3;
PMC *sub = Parrot_find_name_op(interp, CONST(2)->u.string, dest);
@@ -30234,7 +28983,6 @@
opcode_t *
Parrot_trap (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 46 "src/ops/experimental.ops"
INTVAL unused = PARROT_WARNINGS_test(interp,PARROT_WARNINGS_DEPRECATED_FLAG) &&
fprintf(stderr,"Warning: instruction 'trap' is deprecated\n");
#if defined(__GNUC__) && defined(i386)
@@ -30249,7 +28997,6 @@
opcode_t *
Parrot_fetch_p_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 95 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), PREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30273,7 +29020,6 @@
opcode_t *
Parrot_fetch_p_pc_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 95 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2)->u.key, PREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30297,7 +29043,6 @@
opcode_t *
Parrot_fetch_p_p_pc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 95 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), CONST(3)->u.key);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30321,7 +29066,6 @@
opcode_t *
Parrot_fetch_p_pc_pc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 95 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2)->u.key, CONST(3)->u.key);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30345,7 +29089,6 @@
opcode_t *
Parrot_fetch_p_p_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 95 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), PREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30369,7 +29112,6 @@
opcode_t *
Parrot_fetch_p_pc_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 95 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2)->u.key, PREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30393,7 +29135,6 @@
opcode_t *
Parrot_fetch_p_p_pc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 95 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), CONST(3)->u.key);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30417,7 +29158,6 @@
opcode_t *
Parrot_fetch_p_pc_pc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 95 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2)->u.key, CONST(3)->u.key);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30441,7 +29181,6 @@
opcode_t *
Parrot_fetch_p_p_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 115 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), IREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30465,7 +29204,6 @@
opcode_t *
Parrot_fetch_p_pc_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 115 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2)->u.key, IREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30489,7 +29227,6 @@
opcode_t *
Parrot_fetch_p_p_ic_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 115 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), cur_opcode[3]);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30513,7 +29250,6 @@
opcode_t *
Parrot_fetch_p_pc_ic_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 115 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2)->u.key, cur_opcode[3]);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30537,7 +29273,6 @@
opcode_t *
Parrot_fetch_p_p_i_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 115 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), IREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30561,7 +29296,6 @@
opcode_t *
Parrot_fetch_p_pc_i_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 115 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2)->u.key, IREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30585,7 +29319,6 @@
opcode_t *
Parrot_fetch_p_p_ic_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 115 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), cur_opcode[3]);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30609,7 +29342,6 @@
opcode_t *
Parrot_fetch_p_pc_ic_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 115 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2)->u.key, cur_opcode[3]);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30633,7 +29365,6 @@
opcode_t *
Parrot_fetch_p_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 135 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), SREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30657,7 +29388,6 @@
opcode_t *
Parrot_fetch_p_pc_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 135 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2)->u.key, SREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30681,7 +29411,6 @@
opcode_t *
Parrot_fetch_p_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 135 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), CONST(3)->u.string);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30705,7 +29434,6 @@
opcode_t *
Parrot_fetch_p_pc_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 135 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2)->u.key, CONST(3)->u.string);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
@@ -30729,7 +29457,6 @@
opcode_t *
Parrot_fetch_p_p_s_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 135 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), SREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30753,7 +29480,6 @@
opcode_t *
Parrot_fetch_p_pc_s_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 135 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2)->u.key, SREG(3));
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30777,7 +29503,6 @@
opcode_t *
Parrot_fetch_p_p_sc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 135 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), CONST(3)->u.string);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30801,7 +29526,6 @@
opcode_t *
Parrot_fetch_p_pc_sc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 135 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2)->u.key, CONST(3)->u.string);
if (PMC_IS_NULL(PREG(1))) {
PMC * const classobj = Parrot_oo_get_class(interp, CONST(4)->u.key);
@@ -30825,7 +29549,6 @@
opcode_t *
Parrot_vivify_p_p_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 170 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), PREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -30852,7 +29575,6 @@
opcode_t *
Parrot_vivify_p_pc_p_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 170 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2)->u.key, PREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -30879,7 +29601,6 @@
opcode_t *
Parrot_vivify_p_p_pc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 170 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), CONST(3)->u.key);
if (PMC_IS_NULL(PREG(1))) {
@@ -30906,7 +29627,6 @@
opcode_t *
Parrot_vivify_p_pc_pc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 170 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2)->u.key, CONST(3)->u.key);
if (PMC_IS_NULL(PREG(1))) {
@@ -30933,7 +29653,6 @@
opcode_t *
Parrot_vivify_p_p_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 170 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), PREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -30960,7 +29679,6 @@
opcode_t *
Parrot_vivify_p_pc_p_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 170 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2)->u.key, PREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -30987,7 +29705,6 @@
opcode_t *
Parrot_vivify_p_p_pc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 170 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), CONST(3)->u.key);
if (PMC_IS_NULL(PREG(1))) {
@@ -31014,7 +29731,6 @@
opcode_t *
Parrot_vivify_p_pc_pc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 170 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2)->u.key, CONST(3)->u.key);
if (PMC_IS_NULL(PREG(1))) {
@@ -31041,7 +29757,6 @@
opcode_t *
Parrot_vivify_p_p_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), IREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -31068,7 +29783,6 @@
opcode_t *
Parrot_vivify_p_pc_i_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2)->u.key, IREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -31095,7 +29809,6 @@
opcode_t *
Parrot_vivify_p_p_ic_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), cur_opcode[3]);
if (PMC_IS_NULL(PREG(1))) {
@@ -31122,7 +29835,6 @@
opcode_t *
Parrot_vivify_p_pc_ic_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2)->u.key, cur_opcode[3]);
if (PMC_IS_NULL(PREG(1))) {
@@ -31149,7 +29861,6 @@
opcode_t *
Parrot_vivify_p_p_i_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), IREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -31176,7 +29887,6 @@
opcode_t *
Parrot_vivify_p_pc_i_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2)->u.key, IREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -31203,7 +29913,6 @@
opcode_t *
Parrot_vivify_p_p_ic_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), cur_opcode[3]);
if (PMC_IS_NULL(PREG(1))) {
@@ -31230,7 +29939,6 @@
opcode_t *
Parrot_vivify_p_pc_ic_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 193 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2)->u.key, cur_opcode[3]);
if (PMC_IS_NULL(PREG(1))) {
@@ -31257,7 +29965,6 @@
opcode_t *
Parrot_vivify_p_p_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 216 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), SREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -31284,7 +29991,6 @@
opcode_t *
Parrot_vivify_p_pc_s_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 216 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2)->u.key, SREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -31311,7 +30017,6 @@
opcode_t *
Parrot_vivify_p_p_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 216 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), CONST(3)->u.string);
if (PMC_IS_NULL(PREG(1))) {
@@ -31338,7 +30043,6 @@
opcode_t *
Parrot_vivify_p_pc_sc_p (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 216 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2)->u.key, CONST(3)->u.string);
if (PMC_IS_NULL(PREG(1))) {
@@ -31365,7 +30069,6 @@
opcode_t *
Parrot_vivify_p_p_s_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 216 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), SREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -31392,7 +30095,6 @@
opcode_t *
Parrot_vivify_p_pc_s_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 216 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2)->u.key, SREG(3));
if (PMC_IS_NULL(PREG(1))) {
@@ -31419,7 +30121,6 @@
opcode_t *
Parrot_vivify_p_p_sc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 216 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), CONST(3)->u.string);
if (PMC_IS_NULL(PREG(1))) {
@@ -31446,7 +30147,6 @@
opcode_t *
Parrot_vivify_p_pc_sc_pc (opcode_t *cur_opcode, PARROT_INTERP) {
Parrot_Context const * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#line 216 "src/ops/experimental.ops"
PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2)->u.key, CONST(3)->u.string);
if (PMC_IS_NULL(PREG(1))) {
@@ -31470,7 +30170,6 @@
return (opcode_t *)cur_opcode + 5;}
-#line 31379 "src/ops/core_ops.c"
/*
** Op lookup function:
More information about the parrot-commits
mailing list