/openbsd/gnu/usr.bin/perl/ |
H A D | op.c | 1840 cBINOPx(cUNOPo->op_first)->op_first->op_type == OP_CONST && in S_scalarboolean() 1982 kid = cLISTOPx(cUNOPo->op_first)->op_first; in Perl_scalar() 1985 op_null(cLISTOPx(cUNOPo->op_first)->op_first); in Perl_scalar() 3468 kid = cUNOPx(cUNOPo->op_first)->op_first; in Perl_op_lvalue_flags() 3712 op_null(cLISTOPx(cUNOPo->op_first)->op_first); in Perl_doref() 7673 OP *kid = cUNOPx(cUNOPx(curop)->op_first)->op_first; in Perl_pmruntime() 8312 OP * const kid = cUNOPx(cUNOPo->op_first)->op_first; in S_assignment_type() 13093 kid = cUNOPx(OpSIBLING(cLISTOPo->op_first))->op_first; in Perl_ck_grep() 13485 OP *varop = cUNOPx(cUNOPx(left)->op_first)->op_first; in Perl_ck_refassign() 13709 kid = cUNOPx(OpSIBLING(cLISTOPo->op_first))->op_first; in Perl_ck_return() [all …]
|
H A D | peep.c | 46 kid = cLISTOPo->op_first; in S_scalar_slice_warning() 128 pm = cUNOPo->op_first; in S_sprintf_is_multiconcatable() 308 topop = cBINOPo->op_first; in S_maybe_multiconcat() 339 targetop = cBINOPo->op_first; in S_maybe_multiconcat() 378 topop = cBINOPx(topop)->op_first; in S_maybe_multiconcat() 478 k1 = cUNOPx(kid)->op_first; in S_maybe_multiconcat() 1152 next_kid = cUNOPo->op_first; in S_optimize_op() 1220 return cUNOPo->op_first; in S_traverse_op_tree() 1710 OP *kid = cUNOPo->op_first; in S_aassign_scan() 1867 next_kid = cUNOPo->op_first; in S_aassign_scan() [all …]
|
H A D | op.h | 225 OP * op_first; member 230 OP *op_first; member 236 OP * op_first; member 242 OP * op_first; member 254 OP * op_first; member 263 OP* op_first; /* optree for method name */ member 275 OP * op_first; member 451 OP * op_first; member
|
H A D | pp_ctl.c | 187 cLOGOP->op_first->op_next = PL_op->op_next; in PP() 1006 RETURNOP(cLISTOP->op_first); 1329 RETURNOP(cLOGOPx(cUNOP->op_first)->op_other); 1469 sv_setiv(PAD_SV(cUNOPx(cUNOP->op_first)->op_first->op_targ), 0); 3066 *ops++ = cUNOPo->op_first; in S_dofindlabel() 3070 && cUNOPo->op_first->op_type == OP_PUSHMARK) { in S_dofindlabel() 3080 OP * const kid = cUNOPo->op_first; in S_dofindlabel() 3090 OP * const kid1 = cUNOPo->op_first; in S_dofindlabel() 4387 if (cUNOP->op_first->op_type == OP_CONST && cUNOP->op_first->op_private & OPpCONST_NOVER) { in S_require_version() 4604 SVOP * const kid = cSVOPx(cUNOP->op_first); in S_require_file() [all …]
|
H A D | class.c | 623 OP *o = cLISTOPx(attrlist)->op_first; in Perl_class_apply_attributes() 707 OP *o = cLISTOPx(valop)->op_first; in Perl_class_seal_stash() 708 cLISTOPx(valop)->op_first = NULL; in Perl_class_seal_stash() 1104 OP *o = cLISTOPx(attrlist)->op_first; in Perl_class_apply_field_attributes()
|
H A D | builtin.c | 456 pushop = cUNOPx(entersubop)->op_first; in ck_builtin_func1() 458 pushop = cUNOPx(pushop)->op_first; in ck_builtin_func1()
|
H A D | universal.c | 1400 pushop = cUNOPx(entersubop)->op_first; in optimize_out_native_convert_function() 1403 pushop = cUNOPx(pushop)->op_first; in optimize_out_native_convert_function()
|
H A D | sv.c | 16937 gv = cGVOPx_gv(cUNOPx(obase)->op_first); 17011 o = cUNOPx(obase)->op_first; 17028 o = cBINOPx(obase)->op_first; 17039 gv = cGVOPx_gv(cUNOPo->op_first); 17050 kid = cUNOPx(kid)->op_first; 17359 o = cUNOPx(obase)->op_first; 17404 o = cUNOPx(obase)->op_first; 17511 o = cUNOPx(obase)->op_first; 17528 o = cUNOPx(obase)->op_first; 17530 o2 = cUNOPx(o)->op_first; [all …]
|
H A D | pad.c | 2180 cUNOPx(cUNOPx(CvROOT(cv))->op_first)->op_first in S_cv_clone_pad()
|
H A D | pp_sort.c | 739 OP *nullop = OpSIBLING(cLISTOP->op_first); /* pass pushmark */ in PP()
|
H A D | dump.c | 1134 OP *kid = cUNOPx(p)->op_first; in S_do_op_dump_bar() 1465 for (kid = cUNOPo->op_first; kid; kid = OpSIBLING(kid)) in S_do_op_dump_bar()
|
H A D | perly.y | 887 OP *defexpr = cLOGOPx(defop)->op_first;
|
H A D | regcomp.c | 1451 for (o = cLISTOPx(expr)->op_first; o; o = OpSIBLING(o)) in Perl_re_op_compile() 1471 for (o = cLISTOPx(expr)->op_first; o; o = OpSIBLING(o)) { in Perl_re_op_compile() 1487 for (o = cLISTOPx(expr)->op_first; o; o = OpSIBLING(o)) { in Perl_re_op_compile() 1503 expr = cLISTOPx(expr)->op_first; in Perl_re_op_compile()
|
H A D | regexec.c | 8308 OP *o = cUNOPx(nop)->op_first; in S_regmatch() 8311 o = cUNOPo->op_first; in S_regmatch() 8315 o = cUNOPo->op_first; in S_regmatch()
|
H A D | perly.act | 1013 OP *defexpr = cLOGOPx(defop)->op_first;
|
H A D | util.c | 1534 for (kid = cUNOPo->op_first; kid; kid = OpSIBLING(kid)) { in Perl_closest_cop()
|
H A D | toke.c | 12895 OP *prev = cLISTOPx(attrlist)->op_first; in Perl_apply_builtin_cv_attributes() 12912 if(OpHAS_SIBLING(cLISTOPx(attrlist)->op_first)) in Perl_apply_builtin_cv_attributes()
|
H A D | pp.c | 287 if (cUNOP->op_first->op_type == OP_NULL) in PP()
|
/openbsd/gnu/usr.bin/perl/ext/XS-APItest/ |
H A D | APItest.xs | 590 OP *aop = cUNOPx(entersubop)->op_first; in THX_ck_entersub_args_scalars() 594 aop = cUNOPx(aop)->op_first; in THX_ck_entersub_args_scalars() 611 pushop = cUNOPx(pushop)->op_first; in THX_ck_entersub_multi_sum() 755 pushop = cUNOPx(entersubop)->op_first; in THX_ck_entersub_establish_cleanup() 758 pushop = cUNOPx(pushop)->op_first; in THX_ck_entersub_establish_cleanup() 777 pushop = cUNOPx(entersubop)->op_first; in THX_ck_entersub_postinc() 780 pushop = cUNOPx(pushop)->op_first; in THX_ck_entersub_postinc() 796 pushop = cUNOPx(entersubop)->op_first; in THX_ck_entersub_pad_scalar() 798 pushop = cUNOPx(pushop)->op_first; in THX_ck_entersub_pad_scalar() 1170 listop = cUNOPx(sigop)->op_first; in THX_parse_keyword_subsignature() [all …]
|
/openbsd/gnu/usr.bin/perl/ext/Devel-Peek/ |
H A D | Peek.xs | 364 pm = cUNOPx(entersubop)->op_first; in S_ck_dump() 367 pm = cUNOPx(pm)->op_first; in S_ck_dump()
|
/openbsd/gnu/usr.bin/perl/ext/B/ |
H A D | B.xs | 396 for (kid = ((UNOP*)o)->op_first; kid; kid = OpSIBLING(kid)) { in walkoptree() 422 OP *kid = OpSIBLING(cLISTOPo->op_first); /* pass pushmark */ in oplist() 423 kid = kUNOP->op_first; /* pass rv2gv */ in oplist() 424 kid = kUNOP->op_first; /* pass leave */ in oplist() 533 { STR_WITH_LEN("first"), OPp, STRUCT_OFFSET(struct unop, op_first), },/* 5*/ 960 for (kid = ((LISTOP*)o)->op_first; kid; kid = OpSIBLING(kid)) 1074 ? cMETHOPo->op_u.op_first : NULL);
|
/openbsd/gnu/usr.bin/perl/pod/ |
H A D | perlinterp.pod | 739 7 OP *kid = cLISTOPo->op_first;
|
H A D | perlguts.pod | 2479 C<op_first> field. Binary operators (C<BINOP>s) have not only an 2480 C<op_first> field but also an C<op_last> field. The most complex type of 2482 first child is pointed to by C<op_first> and the last child by 2505 follow C<op_first> and then the C<OpSIBLING> chain itself to find the
|
H A D | perl5220delta.pod | 2678 parent at the same time (I<e.g.> by updating C<op_first> and C<op_last> where
|