Lines Matching refs:listop
2215 LISTOP *listop;
2217 NewOp(1101, listop, 1, LISTOP);
2219 listop->op_type = (OPCODE)type;
2220 listop->op_ppaddr = PL_ppaddr[type];
2223 listop->op_flags = (U8)flags;
2231 listop->op_first = first;
2232 listop->op_last = last;
2237 listop->op_first = pushop;
2238 listop->op_flags |= OPf_KIDS;
2240 listop->op_last = pushop;
2243 return CHECKOP(type, listop);
3640 OP* listop;
3675 * op, in listop. This is wrong. [perl #27024] */
3678 listop = append_elem(OP_LINESEQ, block, newOP(OP_UNSTACK, 0));
3679 o = new_logop(OP_AND, 0, &expr, &listop);
3681 if (listop)
3682 ((LISTOP*)listop)->op_last->op_next = LINKLIST(o);
3684 if (once && o != listop)
3687 if (o == listop)
3701 OP *listop;
3746 listop = append_list(OP_LINESEQ, (LISTOP*)block, (LISTOP*)cont);
3747 redo = LINKLIST(listop);
3751 scalar(listop);
3752 o = new_logop(OP_AND, 0, &expr, &listop);
3756 return Nullop; /* listop already freed by new_logop */
3758 if (listop)
3759 ((LISTOP*)listop)->op_last->op_next =
3760 (o == listop ? redo : LINKLIST(o));
3763 o = listop;
3845 LISTOP* listop;
3850 listop = (LISTOP*)newLISTOP(OP_LIST, 0, left, right);
3851 listop->op_first->op_next = range->op_next;
3853 right->op_next = (OP*)listop;
3854 listop->op_next = listop->op_first;
3857 expr = (OP*)(listop);