… | |
… | |
1987 | { |
1987 | { |
1988 | assert (("FATAL: SLF call with illegal CV value", !CvANON (cv))); |
1988 | assert (("FATAL: SLF call with illegal CV value", !CvANON (cv))); |
1989 | |
1989 | |
1990 | if (PL_op->op_ppaddr != PL_ppaddr [OP_ENTERSUB] |
1990 | if (PL_op->op_ppaddr != PL_ppaddr [OP_ENTERSUB] |
1991 | && PL_op->op_ppaddr != pp_slf) |
1991 | && PL_op->op_ppaddr != pp_slf) |
1992 | croak ("FATAL: Coro SLF calls can only be made normally, not via goto or other means, caught"); |
1992 | croak ("FATAL: Coro SLF calls can only be made normally, not via goto or any other means, caught"); |
1993 | |
1993 | |
1994 | if (items > 3) |
1994 | if (items > 3) |
1995 | croak ("Coro only supports up to three arguments to SLF functions currently, caught"); |
1995 | croak ("Coro only supports up to three arguments to SLF functions currently, caught"); |
1996 | |
1996 | |
1997 | CvFLAGS (cv) |= CVf_SLF; |
1997 | CvFLAGS (cv) |= CVf_SLF; |