opcode_t * runops_cgoto_core(struct Parrot_Interp *interpreter, opcode_t *pc) { #ifdef HAVE_COMPUTED_GOTO pc = cg_core(pc, interpreter); return pc; #else PIO_eprintf(interpreter, "Computed goto unavailable in this configuration.\n"); Parrot_exit(1); return NULL; #endif }
PARROT_WARN_UNUSED_RESULT PARROT_CAN_RETURN_NULL static opcode_t * runops_cgoto_core(PARROT_INTERP, ARGIN(Parrot_runcore_t *runcore), ARGIN(opcode_t *pc)) { ASSERT_ARGS(runops_cgoto_core) /* disable pc */ Parrot_pcc_set_pc(interp, CURRENT_CONTEXT(interp), NULL); #ifdef HAVE_COMPUTED_GOTO pc = cg_core(pc, interp); return pc; #else UNUSED(pc); Parrot_io_eprintf(interp, "Computed goto unavailable in this configuration.\n"); Parrot_exit(interp, 1); #endif }