… | … | ||
---|---|---|---|
3445 | 3445 | ||
3446 | PROTOTYPES: DISABLE | 3446 | PROTOTYPES: DISABLE |
3447 | 3447 | ||
3448 | BOOT: | 3448 | BOOT: |
3449 | { | 3449 | { |
3450 | #define VARx(name,expr,type) if (sizeof (type) < sizeof (expr)) croak ("FATAL: Coro thread context slot '" # name "' too small for this version of perl"); | ||
3451 | #include "state.h" | ||
3450 | #ifdef USE_ITHREADS | 3452 | #ifdef USE_ITHREADS |
3451 | # if CORO_PTHREAD | 3453 | # if CORO_PTHREAD |
3452 | coro_thx = PERL_GET_CONTEXT; | 3454 | coro_thx = PERL_GET_CONTEXT; |
3453 | # endif | 3455 | # endif |
3454 | #endif | 3456 | #endif |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |