Home
last modified time | relevance | path

Searched refs:op_flags (Results 1 – 25 of 33) sorted by relevance

12

/openbsd-src/gnu/usr.bin/perl/
H A Dpeep.c124 assert(!(o->op_flags & OPf_STACKED)); in S_sprintf_is_multiconcatable()
180 if ((kid->op_flags & OPf_WANT) != OPf_WANT_SCALAR) in S_sprintf_is_multiconcatable()
268 U8 flags = 0; /* what will become the op_flags and ... */ in S_maybe_multiconcat()
326 && (topop->op_flags & OPf_STACKED) in S_maybe_multiconcat()
488 stacked_last = (kid->op_flags & OPf_STACKED); in S_maybe_multiconcat()
994 o->op_flags = (flags|OPf_KIDS|stacked_last in S_maybe_multiconcat()
995 |(o->op_flags & (OPf_WANT|OPf_PARENS))); in S_maybe_multiconcat()
1108 OP *first = (o->op_flags & OPf_KIDS) ? cUNOPo->op_first : NULL; in S_optimize_op()
1127 if(!CvUNIQUE(PL_compcv) && !(o->op_flags & OPf_KIDS)) in S_optimize_op()
1132 if(!(o->op_flags in S_optimize_op()
[all...]
H A Dop.c874 o->op_flags &= ~OPf_KIDS; in Perl_op_free()
930 assert(!(o->op_flags & OPf_KIDS) || cUNOPo->op_first); in Perl_op_free()
932 if (!went_up && o->op_flags & OPf_KIDS) { in Perl_op_free()
1078 if (!(o->op_flags & OPf_REF) || !OP_IS_STAT(o->op_type)) in Perl_op_clear()
1135 if (o->op_flags & (OPf_SPECIAL|OPf_STACKED|OPf_KIDS)) in Perl_op_clear()
1164 && !(o->op_flags & OPf_STACKED)) /* @{expr} = split */ in Perl_op_clear()
1439 if (o->op_flags & OPf_KIDS) { in S_find_and_forget_pmops()
1616 parent->op_flags |= OPf_KIDS; in Perl_op_sibling_splice()
1618 parent->op_flags &= ~OPf_KIDS; in Perl_op_sibling_splice()
1724 logop->op_flags
[all...]
H A Dpp_hot.c319 assert(op->op_flags & OPf_STACKED); in PP()
356 assert(op->op_flags & OPf_STACKED);
533 if (!(PL_op->op_flags & OPf_SPECIAL)) { in PP()
613 SV *targ = (PL_op->op_flags & OPf_STACKED) in PP()
634 Several op_flags and/or op_private bits indicate what the target is, and in PP()
723 if (PL_op->op_flags & OPf_STACKED) { in PP()
1426 && ( (PL_op->op_flags & OPf_STACKED) in PP()
1456 : UNLIKELY(PL_op->op_flags & OPf_MOD) in PP()
1468 : UNLIKELY(PL_op->op_flags & OPf_MOD) in PP()
1484 if (PL_op->op_flags in PP()
[all...]
H A Dpp.h30 ((PL_op->op_flags & OPf_STACKED) ? 2 : 1)
151 #define GETTARGETSTACKED targ = (PL_op->op_flags & OPf_STACKED ? POPs : PAD_SV(PL_op->op_targ))
164 #define GETATARGET targ = (PL_op->op_flags & OPf_STACKED ? sp[-1] : PAD_SV(PL_op->op_targ))
606 (SvOK(sv) || !(PL_op->op_flags & OPf_STACKED))
694 #define opASSIGN (PL_op->op_flags & OPf_STACKED)
H A Dpp.c145 if (PL_op->op_flags & OPf_REF || strict) { in S_rv2gv()
197 ((PL_op->op_flags & OPf_SPECIAL) && !(PL_op->op_flags & OPf_MOD)) in PP()
201 save_gp(MUTABLE_GV(sv), !(PL_op->op_flags & OPf_SPECIAL)); in PP()
233 PL_op->op_flags & OPf_REF in Perl_softref2xv()
245 if ((PL_op->op_flags & OPf_SPECIAL) && in Perl_softref2xv()
246 !(PL_op->op_flags & OPf_MOD)) in Perl_softref2xv()
285 if (PL_op->op_flags & OPf_MOD) { in PP()
304 const I32 lvalue = PL_op->op_flags & OPf_MOD || LVRET; in PP()
350 if (PL_op->op_flags in PP()
[all...]
H A Dop.h63 U8 op_flags; \
82 (((op)->op_flags & OPf_WANT) ? ((op)->op_flags & OPf_WANT) : dfl)
178 (PL_op->op_flags & OPf_WANT \
179 ? ((PL_op->op_flags & OPf_WANT) == OPf_WANT_LIST \
H A Dpp_ctl.c99 if (PL_op->op_flags & OPf_STACKED) { in PP()
126 (PL_op->op_flags & OPf_SPECIAL ? PMf_USE_RE_EVAL : 0)); in PP()
143 if (pm->op_flags & OPf_STACKED) in PP()
296 if (pm->op_flags & OPf_STACKED) in PP()
1350 if (PL_op->op_flags & OPf_SPECIAL) { in PP()
2370 if (PL_op->op_flags & OPf_SPECIAL /* breakpoint */ in PP()
2465 if (PL_op->op_flags & OPf_SPECIAL) in PP()
2561 if (PL_op->op_flags & OPf_STACKED) { in PP()
2928 if (PL_op->op_flags & OPf_SPECIAL) { in S_dofindlabel()
2941 if (PL_op->op_flags in S_check_op_type()
[all...]
H A Ddump.c910 kidbar = ((bar << 1) | cBOOL(pm->op_flags & OPf_KIDS)) << 1; in S_do_pmop_dump_bar()
1131 if (!p || !(p->op_flags & OPf_KIDS)) in S_do_op_dump_bar()
1153 if (o->op_flags || o->op_slabbed || o->op_savefree || o->op_static) { in S_do_op_dump_bar()
1155 switch (o->op_flags & OPf_WANT) { in S_do_op_dump_bar()
1169 append_flags(tmpsv, o->op_flags, op_flags_names); in S_do_op_dump_bar()
1407 if (o->op_flags & (OPf_SPECIAL|OPf_STACKED|OPf_KIDS)) in S_do_op_dump_bar()
1461 if (o->op_flags & OPf_KIDS) { in S_do_op_dump_bar()
3238 return (o->op_flags & OPf_KIDS) ? OPclass_UNOP : OPclass_BASEOP; in Perl_op_class()
3317 return (o->op_flags & OPf_KIDS) ? OPclass_UNOP : OPclass_BASEOP; in Perl_op_class()
3329 return ((o->op_flags in Perl_op_class()
[all...]
H A Dpp_sys.c375 if (UNLIKELY(PL_op->op_flags & OPf_SPECIAL)) { in PP()
396 tryAMAGICunTARGETlist(iter_amg, (PL_op->op_flags & OPf_SPECIAL)); */ in PP()
430 if (PL_op->op_flags & OPf_SPECIAL) { in PP()
445 if (PL_op->op_flags & OPf_SPECIAL) { in PP()
1842 = (PL_op->op_flags & OPf_STACKED) ? MUTABLE_GV(*++MARK) : PL_defoutgv; in PP()
2366 if (PL_op->op_flags & OPf_SPECIAL) { in PP()
2383 if (!MAXARG && (PL_op->op_flags & OPf_SPECIAL)) { /* eof() */ in PP()
2517 if (PL_op->op_flags & OPf_SPECIAL in PP()
3068 PP_wrapped(pp_stat, !(PL_op->op_flags & OPf_REF), 0) in PP()
3077 if (PL_op->op_flags in PP()
[all...]
H A Dperly.y529 $my_list_of_scalars->op_flags |= OPf_PARENS;
701 ($mblock)->op_flags |= OPf_PARENS;
890 && !(defexpr->op_flags & OPf_KIDS))
901 var->op_flags |= OPf_STACKED;
H A Ddoop.c795 const I32 svpv_flags = ((PL_op->op_flags & OPf_MOD || LVRET) in Perl_do_vecget()
1238 if (PL_op->op_flags & OPf_MOD || LVRET) { /* lvalue */ in PP()
H A Dgv.c3589 bool mutator = (flags & AMGf_assign) && (PL_op->op_flags & OPf_STACKED); in Perl_try_amagic_bin()
4159 myop.op_flags = OPf_STACKED; in Perl_amagic_call()
4166 myop.op_flags |= OPf_WANT_VOID; in Perl_amagic_call()
4170 myop.op_flags |= OPf_WANT_LIST; in Perl_amagic_call()
4175 myop.op_flags |= OPf_WANT_SCALAR; in Perl_amagic_call()
H A Dperl.c3159 myop.op_flags |= OPf_STACKED; in Perl_call_sv()
3160 myop.op_flags |= OP_GIMME_REVERSE(flags); in Perl_call_sv()
3335 myop.op_flags = OPf_STACKED; in Perl_eval_sv()
3337 myop.op_flags |= OP_GIMME_REVERSE(flags); in Perl_eval_sv()
3339 myop.op_flags |= OPf_SPECIAL; in Perl_eval_sv()
H A Dperly.act538 (ps[-6].val.opval)->op_flags |= OPf_PARENS;
804 ((ps[0].val.opval))->op_flags |= OPf_PARENS;
1016 && !(defexpr->op_flags & OPf_KIDS))
1027 var->op_flags |= OPf_STACKED;
H A Ddoio.c2019 if (PL_op->op_flags & OPf_SPECIAL) { /* not necessarily a real EOF yet? */ in Perl_do_sysseek()
2274 if (PL_op->op_flags & OPf_REF) { in Perl_my_stat_flags()
2351 if (PL_op->op_flags & OPf_REF) { in Perl_my_lstat_flags()
H A Dcop.h876 (PL_op->op_flags & OPf_WANT) \
H A Dpp_sort.c704 const U8 flags = PL_op->op_flags; in PP()
H A Dmg.c2344 o->op_flags |= OPf_SPECIAL; in Perl_magic_setdbline()
2346 o->op_flags &= ~OPf_SPECIAL; in Perl_magic_setdbline()
/openbsd-src/gnu/usr.bin/perl/ext/Devel-Peek/
H A DPeek.xs387 first->op_flags |= OPf_REF; in S_ck_dump()
389 first->op_flags &= ~OPf_MOD; in S_ck_dump()
403 newop->op_flags = OPf_KIDS|OPf_WANT_SCALAR; in S_ck_dump()
/openbsd-src/gnu/usr.bin/perl/ext/B/B/
H A DConcise.pm429 sub op_flags { # common flags (see BASOP.op_flags in op.h) subroutine
1001 $h{flags} = op_flags($op->flags);
/openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/
H A DAPItest.xs642 if (o->op_flags & OPf_KIDS) { in THX_mkBINOP()
1060 if (PL_hints & HINT_BLOCK_SCOPE) o->op_flags |= OPf_PARENS; in THX_parse_keyword_swaplabel()
1076 if (PL_hints & HINT_BLOCK_SCOPE) o->op_flags |= OPf_PARENS; in THX_parse_keyword_arraylistexpr()
1092 if (PL_hints & HINT_BLOCK_SCOPE) o->op_flags |= OPf_PARENS;
1168 if(!(sigop->op_flags & OPf_KIDS))
1200 newSVpvf(kid->op_flags & OPf_KIDS ? "argelem:%s:d" : "argelem:%s", namepv))); in THX_parse_keyword_with_vars()
1476 if (!(flag_svp && SvTRUE(*flag_svp) && (op->op_flags & OPf_KIDS) && in test_bool_internals_func()
1480 flags = op->op_flags; in test_bool_internals_func()
1497 if (flag_svp && SvTRUE(*flag_svp) && (o->op_flags & OPf_KIDS) in test_bool_internals_func()
1591 mXPUSHs((PL_op->op_flags
[all...]
/openbsd-src/gnu/usr.bin/perl/ext/B/
H A DB.xs395 if (o && (o->op_flags & OPf_KIDS)) { in walkoptree()
421 if (o->op_flags & OPf_STACKED && o->op_flags & OPf_SPECIAL) { in oplist()
531 { STR_WITH_LEN("flags"), U8p, STRUCT_OFFSET(struct op, op_flags), },/* 3*/
/openbsd-src/gnu/usr.bin/perl/dist/Storable/
H A DStorable.xs3358 U8 op_flags = 0; in store_regexp() local
3367 op_flags |= SHR_U32_RE_LEN; in store_regexp()
3371 PUTMARK(op_flags); in store_regexp()
3372 if (op_flags & SHR_U32_RE_LEN) { in store_regexp()
6764 int op_flags; in retrieve_regexp() local
6778 GETMARK(op_flags); in retrieve_regexp()
6779 if (op_flags & SHR_U32_RE_LEN) { in retrieve_regexp()
/openbsd-src/gnu/usr.bin/perl/amigaos4/
H A Damigaio.c831 if (PL_op->op_flags & OPf_STACKED) in amigaos_system_child()
/openbsd-src/gnu/usr.bin/perl/dist/Time-HiRes/
H A DHiRes.xs1526 fakeop.op_flags = GIMME_V == G_LIST ? OPf_WANT_LIST :

12