| … | |
… | |
| 355 | |
355 | |
| 356 | PUSHs (Nullsv); |
356 | PUSHs (Nullsv); |
| 357 | /* this loop was inspired by pp_caller */ |
357 | /* this loop was inspired by pp_caller */ |
| 358 | for (;;) |
358 | for (;;) |
| 359 | { |
359 | { |
| 360 | do |
360 | while (cxix >= 0) |
| 361 | { |
361 | { |
| 362 | PERL_CONTEXT *cx = &ccstk[cxix--]; |
362 | PERL_CONTEXT *cx = &ccstk[cxix--]; |
| 363 | |
363 | |
| 364 | if (CxTYPE(cx) == CXt_SUB) |
364 | if (CxTYPE(cx) == CXt_SUB) |
| 365 | { |
365 | { |
| … | |
… | |
| 391 | /* I never used formats, so how should I know how these are implemented? */ |
391 | /* I never used formats, so how should I know how these are implemented? */ |
| 392 | /* my bold guess is as a simple, plain sub... */ |
392 | /* my bold guess is as a simple, plain sub... */ |
| 393 | croak ("CXt_FORMAT not yet handled. Don't switch coroutines from within formats"); |
393 | croak ("CXt_FORMAT not yet handled. Don't switch coroutines from within formats"); |
| 394 | } |
394 | } |
| 395 | } |
395 | } |
| 396 | while (cxix >= 0); |
|
|
| 397 | |
396 | |
| 398 | if (top_si->si_type == PERLSI_MAIN) |
397 | if (top_si->si_type == PERLSI_MAIN) |
| 399 | break; |
398 | break; |
| 400 | |
399 | |
| 401 | top_si = top_si->si_prev; |
400 | top_si = top_si->si_prev; |
