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_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); }