| … | |
… | |
| 315 | license: L<https://creativecommons.org/publicdomain/zero/1.0/>. |
315 | license: L<https://creativecommons.org/publicdomain/zero/1.0/>. |
| 316 | |
316 | |
| 317 | =cut |
317 | =cut |
| 318 | |
318 | |
| 319 | */ |
319 | */ |
|
|
320 | |
|
|
321 | #if PERL_MULTICORE_DISABLE |
|
|
322 | |
|
|
323 | #define perlinterp_release() do { } while (0) |
|
|
324 | #define perlinterp_acquire() do { } while (0) |
|
|
325 | |
|
|
326 | #else |
| 320 | |
327 | |
| 321 | /* this struct is shared between all modules, and currently */ |
328 | /* this struct is shared between all modules, and currently */ |
| 322 | /* contain only the two function pointers for release/acquire */ |
329 | /* contain only the two function pointers for release/acquire */ |
| 323 | struct perl_multicore_api |
330 | struct perl_multicore_api |
| 324 | { |
331 | { |
| … | |
… | |
| 369 | /* call the real (or dummy) implementation now */ |
376 | /* call the real (or dummy) implementation now */ |
| 370 | perlinterp_release (); |
377 | perlinterp_release (); |
| 371 | } |
378 | } |
| 372 | |
379 | |
| 373 | #endif |
380 | #endif |
|
|
381 | |
|
|
382 | #endif |
