… | |
… | |
1428 | CODE: |
1428 | CODE: |
1429 | RETVAL = boolSV (coro->flags & ix); |
1429 | RETVAL = boolSV (coro->flags & ix); |
1430 | OUTPUT: |
1430 | OUTPUT: |
1431 | RETVAL |
1431 | RETVAL |
1432 | |
1432 | |
|
|
1433 | SV * |
|
|
1434 | has_stack (Coro::State coro) |
|
|
1435 | PROTOTYPE: $ |
|
|
1436 | CODE: |
|
|
1437 | RETVAL = boolSV (!!coro->cctx); |
|
|
1438 | OUTPUT: |
|
|
1439 | RETVAL |
|
|
1440 | |
1433 | IV |
1441 | IV |
1434 | rss (Coro::State coro) |
1442 | rss (Coro::State coro) |
1435 | PROTOTYPE: $ |
1443 | PROTOTYPE: $ |
1436 | CODE: |
1444 | CODE: |
1437 | RETVAL = coro_rss (coro); |
1445 | RETVAL = coro_rss (coro); |
… | |
… | |
1570 | if (coro_rss (coro) > SvIV (sv_pool_rss) |
1578 | if (coro_rss (coro) > SvIV (sv_pool_rss) |
1571 | || av_len (av_async_pool) + 1 >= SvIV (sv_pool_size)) |
1579 | || av_len (av_async_pool) + 1 >= SvIV (sv_pool_size)) |
1572 | croak ("\3terminate\2\n"); |
1580 | croak ("\3terminate\2\n"); |
1573 | |
1581 | |
1574 | av_clear (GvAV (PL_defgv)); |
1582 | av_clear (GvAV (PL_defgv)); |
1575 | hv_store (SvRV (coro_current), "desc", sizeof ("desc") - 1, |
1583 | hv_store ((HV *)SvRV (coro_current), "desc", sizeof ("desc") - 1, |
1576 | newSVpvn ("[async_pool idle]", sizeof ("[async_pool idle]") - 1), 0); |
1584 | newSVpvn ("[async_pool idle]", sizeof ("[async_pool idle]") - 1), 0); |
1577 | coro->save = CORO_SAVE_DEF; |
1585 | coro->save = CORO_SAVE_DEF; |
1578 | coro->prio = 0; |
1586 | coro->prio = 0; |
1579 | av_push (av_async_pool, newSVsv (coro_current)); |
1587 | av_push (av_async_pool, newSVsv (coro_current)); |
1580 | } |
1588 | } |