| … | |
… | |
| 720 | assert (PL_top_env == prev__cctx->top_env); |
720 | assert (PL_top_env == prev__cctx->top_env); |
| 721 | |
721 | |
| 722 | cctx_put (prev__cctx); |
722 | cctx_put (prev__cctx); |
| 723 | prev->cctx = 0; |
723 | prev->cctx = 0; |
| 724 | } |
724 | } |
|
|
725 | else if (prev__cctx->idle_sp) //D |
|
|
726 | fprintf (stderr, "coro %p has own stack %p-%p\n", prev__cctx, prev__cctx->idle_sp, STACKLEVEL);//D |
| 725 | |
727 | |
| 726 | if (!next->cctx) |
728 | if (!next->cctx) |
| 727 | next->cctx = cctx_get (); |
729 | next->cctx = cctx_get (); |
| 728 | |
730 | |
| 729 | if (prev__cctx != next->cctx) |
731 | if (prev__cctx != next->cctx) |
