void Parrot_runcore_exec_init(PARROT_INTERP) { ASSERT_ARGS(Parrot_runcore_exec_init) Parrot_runcore_t *coredata = mem_allocate_typed(Parrot_runcore_t); coredata->name = CONST_STRING(interp, "exec"); coredata->id = PARROT_EXEC_CORE; coredata->opinit = PARROT_CORE_OPLIB_INIT; coredata->runops = runops_exec_core; coredata->destroy = NULL; coredata->prepare_run = NULL; coredata->flags = 0; Parrot_runcore_register(interp, coredata); }
void Parrot_runcore_debugger_init(PARROT_INTERP) { ASSERT_ARGS(Parrot_runcore_debugger_init) Parrot_runcore_t *coredata = mem_allocate_typed(Parrot_runcore_t); coredata->name = CONST_STRING(interp, "debugger"); coredata->id = PARROT_DEBUGGER_CORE; coredata->opinit = PARROT_CORE_OPLIB_INIT; coredata->prepare_run = init_prederef; coredata->runops = runops_debugger_core; coredata->destroy = NULL; coredata->flags = 0; PARROT_RUNCORE_FUNC_TABLE_SET(coredata); Parrot_runcore_register(interp, coredata); }
void Parrot_runcore_switch_init(PARROT_INTERP) { ASSERT_ARGS(Parrot_runcore_switch_init) Parrot_runcore_t *coredata = mem_allocate_typed(Parrot_runcore_t); coredata->name = CONST_STRING(interp, "switch"); coredata->id = PARROT_SWITCH_CORE; coredata->opinit = PARROT_CORE_SWITCH_OPLIB_INIT; coredata->runops = runops_switch_core; coredata->prepare_run = init_prederef; coredata->destroy = NULL; coredata->flags = 0; PARROT_RUNCORE_PREDEREF_OPS_SET(coredata); Parrot_runcore_register(interp, coredata); }
void Parrot_runcore_cgoto_init(PARROT_INTERP) { ASSERT_ARGS(Parrot_runcore_cgoto_init) Parrot_runcore_t *coredata = mem_allocate_typed(Parrot_runcore_t); coredata->name = CONST_STRING(interp, "cgoto"); coredata->id = PARROT_CGOTO_CORE; coredata->opinit = PARROT_CORE_CG_OPLIB_INIT; coredata->runops = runops_cgoto_core; coredata->destroy = NULL; coredata->prepare_run = NULL; coredata->flags = 0; PARROT_RUNCORE_FUNC_TABLE_SET(coredata); PARROT_RUNCORE_CGOTO_OPS_SET(coredata); Parrot_runcore_register(interp, coredata); }
void Parrot_runcore_profiling_init(PARROT_INTERP) { ASSERT_ARGS(Parrot_runcore_profiling_init) Parrot_profiling_runcore_t *coredata = mem_gc_allocate_zeroed_typed(interp, Parrot_profiling_runcore_t); coredata->name = CONST_STRING(interp, "profiling"); coredata->id = PARROT_PROFILING_CORE; coredata->opinit = PARROT_CORE_OPLIB_INIT; coredata->runops = (Parrot_runcore_runops_fn_t) init_profiling_core; coredata->destroy = NULL; coredata->prepare_run = NULL; coredata->flags = 0; PARROT_RUNCORE_FUNC_TABLE_SET(coredata); Parrot_runcore_register(interp, (Parrot_runcore_t *) coredata); }
void Parrot_runcore_cgp_init(PARROT_INTERP) { ASSERT_ARGS(Parrot_runcore_cgp_init) Parrot_runcore_t *coredata = mem_allocate_typed(Parrot_runcore_t); coredata->name = CONST_STRING(interp, "cgp"); coredata->id = PARROT_CGP_CORE; coredata->opinit = PARROT_CORE_CGP_OPLIB_INIT; coredata->prepare_run = init_prederef; coredata->runops = runops_cgp_core; coredata->flags = 0; coredata->destroy = NULL; PARROT_RUNCORE_CGOTO_OPS_SET(coredata); PARROT_RUNCORE_EVENT_CHECK_SET(coredata); PARROT_RUNCORE_PREDEREF_OPS_SET(coredata); Parrot_runcore_register(interp, coredata); }