| … | |
… | |
| 1178 | /* |
1178 | /* |
| 1179 | * If perl-run returns we assume exit() was being called or the coro |
1179 | * If perl-run returns we assume exit() was being called or the coro |
| 1180 | * fell off the end, which seems to be the only valid (non-bug) |
1180 | * fell off the end, which seems to be the only valid (non-bug) |
| 1181 | * reason for perl_run to return. We try to exit by jumping to the |
1181 | * reason for perl_run to return. We try to exit by jumping to the |
| 1182 | * bootstrap-time "top" top_env, as we cannot restore the "main" |
1182 | * bootstrap-time "top" top_env, as we cannot restore the "main" |
| 1183 | * coroutine as Coro has no such concept |
1183 | * coroutine as Coro has no such concept. |
|
|
1184 | * This actually isn't valid with the pthread backend, but OSes requiring |
|
|
1185 | * that backend are too broken to do it in a standards-compliant way. |
| 1184 | */ |
1186 | */ |
| 1185 | PL_top_env = main_top_env; |
1187 | PL_top_env = main_top_env; |
| 1186 | JMPENV_JUMP (2); /* I do not feel well about the hardcoded 2 at all */ |
1188 | JMPENV_JUMP (2); /* I do not feel well about the hardcoded 2 at all */ |
| 1187 | } |
1189 | } |
| 1188 | } |
1190 | } |
