… | |
… | |
350 | void (*pmapi_acquire)(void); |
350 | void (*pmapi_acquire)(void); |
351 | }; |
351 | }; |
352 | |
352 | |
353 | static void perl_multicore_init (void); |
353 | static void perl_multicore_init (void); |
354 | |
354 | |
355 | const struct perl_multicore_api perl_multicore_api_init = { perl_multicore_init, abort }; |
355 | const struct perl_multicore_api perl_multicore_api_init = { perl_multicore_init, 0 }; |
356 | |
356 | |
357 | static struct perl_multicore_api *perl_multicore_api |
357 | static struct perl_multicore_api *perl_multicore_api |
358 | = (struct perl_multicore_api *)&perl_multicore_api_init; |
358 | = (struct perl_multicore_api *)&perl_multicore_api_init; |
359 | |
359 | |
360 | #define perlinterp_release() perl_multicore_api->pmapi_release () |
360 | #define perlinterp_release() perl_multicore_api->pmapi_release () |