/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | run.c | 24 while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {
|
H A D | cc_runtime.h | 10 #define DOOP(ppname) PUTBACK; PL_op = ppname(aTHX); SPAGAIN 56 PL_op = ppaddr(aTHX); \ 58 if (PL_op != nxt) CALLRUNOPS(); \ 68 PL_op = nxt; \
|
H A D | op.h | 69 #define GIMME_V OP_GIMME(PL_op, block_gimme()) 110 (PL_op->op_flags & OPf_WANT \ 111 ? ((PL_op->op_flags & OPf_WANT) == OPf_WANT_LIST \ 363 #define cUNOP cUNOPx(PL_op) 364 #define cBINOP cBINOPx(PL_op) 365 #define cLISTOP cLISTOPx(PL_op) 366 #define cLOGOP cLOGOPx(PL_op) 367 #define cPMOP cPMOPx(PL_op) 368 #define cSVOP cSVOPx(PL_op) 369 #define cPADOP cPADOPx(PL_op) [all...] |
H A D | pp.h | 83 #define GETTARGETSTACKED targ = (PL_op->op_flags & OPf_STACKED ? POPs : PAD_SV(PL_op->op_targ)) 86 #define GETTARGET targ = PAD_SV(PL_op->op_targ) 89 #define GETATARGET targ = (PL_op->op_flags & OPf_STACKED ? sp[-1] : PAD_SV(PL_op->op_targ)) 94 #define NORMAL PL_op->op_next 269 (SvOK(sv) || SvGMAGICAL(sv) || !(PL_op->op_flags & OPf_STACKED)) 299 #define ARGTARG PL_op->op_targ 302 #define MAXARG (PL_op->op_private & 15) 378 #define opASSIGN (PL_op [all...] |
H A D | reentr.c | 320 switch (PL_op->op_type) { 334 switch (PL_op->op_type) { 367 switch (PL_op->op_type) { 402 switch (PL_op->op_type) { 434 switch (PL_op->op_type) { 468 switch (PL_op->op_type) { 498 switch (PL_op->op_type) {
|
H A D | pp_hot.c | 38 PL_curcop = (COP*)PL_op; 49 if (PL_op->op_private & OPpLVAL_INTRO) 63 PL_curcop = (COP*)PL_op; 103 if (PL_op->op_private & OPpASSIGN_BACKWARDS) { 204 if (PL_op->op_flags & OPf_MOD) { 205 if (PL_op->op_private & OPpLVAL_INTRO) 206 SAVECLEARSV(PAD_SVl(PL_op->op_targ)); 207 else if (PL_op->op_private & OPpDEREF) { 209 vivify_ref(PAD_SVl(PL_op->op_targ), PL_op [all...] |
H A D | doop.c | 31 I32 grows = PL_op->op_private & OPpTRANS_GROWS; 101 I32 complement = PL_op->op_private & OPpTRANS_COMPLEMENT; 140 I32 grows = PL_op->op_private & OPpTRANS_GROWS; 141 I32 complement = PL_op->op_private & OPpTRANS_COMPLEMENT; 142 I32 del = PL_op->op_private & OPpTRANS_DELETE; 157 if (PL_op->op_private & OPpTRANS_SQUASH) { 202 if (PL_op->op_private & OPpTRANS_SQUASH) { 302 I32 grows = PL_op->op_private & OPpTRANS_GROWS; 439 I32 squash = PL_op->op_private & OPpTRANS_SQUASH; 440 I32 del = PL_op [all...] |
H A D | fakethr.h | 46 #define SCHEDULE() return schedule(), PL_op
|
H A D | pp_ctl.c | 105 if (PL_op->op_flags & OPf_SPECIAL) 145 cLOGOP->op_first->op_next = PL_op->op_next; 834 RETURNOP(PL_op->op_next->op_next); 852 if (PL_op->op_type == OP_MAPSTART) 854 return ((LOGOP*)PL_op->op_next)->op_other; 967 if (SvTRUEx(PAD_SV(PL_op->op_targ))) 982 SV *targ = PAD_SV(PL_op->op_targ); 985 if (PL_op->op_private & OPpFLIP_LINENUM) { 998 if (PL_op->op_flags & OPf_SPECIAL) { 1080 if (PL_op [all...] |
H A D | pp.c | 52 if (PL_op->op_private & OPpLVAL_INTRO) 53 SAVECLEARSV(PAD_SVl(PL_op->op_targ)); 55 if (PL_op->op_flags & OPf_REF) { 95 if (PL_op->op_private & OPpLVAL_INTRO) 96 SAVECLEARSV(PAD_SVl(PL_op->op_targ)); 97 if (PL_op->op_flags & OPf_REF) 155 if (PL_op->op_private & OPpDEREF) { 182 if (PL_op->op_flags & OPf_REF || 183 PL_op->op_private & HINT_STRICT_REFS) 190 if ((PL_op [all...] |
H A D | pp_sys.c | 319 if (PL_op->op_private & OPpOPEN_IN_RAW) 321 else if (PL_op->op_private & OPpOPEN_IN_CRLF) 461 VMSISH_HUSHED = VMSISH_HUSHED || (PL_op->op_private & OPpHUSH_VMSISH); 680 report_evil_fh(gv, io, PL_op->op_type); 749 report_evil_fh(gv, io, PL_op->op_type); 1157 newdefout = (PL_op->op_private > 0) ? ((GV *) POPs) : (GV *) NULL; 1215 report_evil_fh(gv, io, PL_op->op_type); 1300 return doform(cv,gv,PL_op->op_next); 1391 return doform(cv,gv,PL_op); 1405 report_evil_fh(gv, io, PL_op [all...] |
H A D | pp_sort.c | 1423 OP* nextop = PL_op->op_next; 1436 if (PL_op->op_flags & OPf_STACKED) { 1437 if (PL_op->op_flags & OPf_SPECIAL) { 1487 if (PL_op->op_private & OPpSORT_INPLACE) { 1558 if (!(PL_op->op_flags & OPf_SPECIAL)) { 1587 (PL_op->op_private & OPpSORT_NUMERIC) 1588 ? ( (PL_op->op_private & OPpSORT_INTEGER) 1596 if (PL_op->op_private & OPpSORT_REVERSE) { 1641 PL_op = PL_sortcop; 1686 PL_op [all...] |
H A D | utf8.c | 518 if (PL_op) 520 "%s in %s", s, OP_DESC(PL_op)); 597 if (PL_op) 599 "%s in %s", unees, OP_DESC(PL_op)); 610 if (PL_op) 612 unees, OP_DESC(PL_op)); 652 if (PL_op) 654 "%s in %s", unees, OP_DESC(PL_op)); 670 if (PL_op) 672 "%s in %s", unees, OP_DESC(PL_op)); [all...] |
H A D | perl.c | 1915 PL_op = PL_restartop; 1921 PL_op = PL_main_start; 2123 OP* oldop = PL_op; 2139 PL_op = (OP*)&myop; 2153 PL_op->op_private |= OPpENTERSUB_DB; 2157 method_op.op_next = PL_op; 2160 PL_op = (OP*)&method_op; 2183 PL_eval_root = PL_op; /* Only needed so that goto works right. */ 2224 PL_op = PL_restartop; 2260 PL_op [all...] |
H A D | XSUB.h | 89 #define dXSTARG SV * targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \ 90 ? PAD_SV(PL_op->op_targ) : sv_newmortal())
|
H A D | doio.c | 102 if (PL_op && PL_op->op_type == OP_OPEN) { 104 U8 flags = PL_op->op_private; 989 report_evil_fh(gv, io, PL_op->op_type); 1074 if (PL_op->op_flags & OPf_SPECIAL) { /* not necessarily a real EOF yet? */ 1098 report_evil_fh(gv, io, PL_op->op_type); 1117 report_evil_fh(gv, io, PL_op->op_type); 1131 report_evil_fh(gv, io, PL_op->op_type); 1328 if (PL_op->op_flags & OPf_REF) { 1343 report_evil_fh(gv, io, PL_op [all...] |
H A D | dump.c | 645 if ( ! PL_op->op_flags & OPf_SPECIAL) { /* not lexical */ 1415 if (!PL_op) { 1439 if (DEBUG_t_TEST_) debop(PL_op); 1440 if (DEBUG_P_TEST_) debprof(PL_op); 1442 } while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX)));
|
H A D | cop.h | 143 cx->blk_sub.lval = PL_op->op_private & \ 223 cx->blk_eval.old_op_type = PL_op->op_type; \
|
H A D | gv.c | 1728 PL_op = (OP *) &myop; 1730 PL_op->op_private |= OPpENTERSUB_DB; 1744 if ((PL_op = Perl_pp_entersub(aTHX)))
|
H A D | scope.c | 658 SSPUSHPTR(PL_op); 1019 PL_op = (OP*)SSPOPPTR;
|
H A D | sv.c | 601 if (PL_op) 603 " in ", OP_DESC(PL_op)); 1681 OP_DESC(PL_op)); 1792 OP_NAME(PL_op)); 1878 if (PL_op) 1881 OP_DESC(PL_op)); 3520 if (PL_op) 3522 OP_DESC(PL_op)); 3755 if (PL_op) 3757 OP_NAME(PL_op)); [all...] |
H A D | perlapi.h | 807 #undef PL_op 808 #define PL_op (*Perl_Top_ptr(aTHX))
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/C/ |
H A D | C.xs | 14 if( PL_op->op_type == OP_QR ) { 16 REGEXP* rx = PM_GETRE( (PMOP*)PL_op ); 20 Copy( PL_op, op, 1, PMOP ); 40 } while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX)));
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/ |
H A D | Util.xs | 80 # define PL_op op 240 SAVESPTR(PL_op); 249 PL_op = reducecop; 291 SAVESPTR(PL_op); 300 PL_op = reducecop; 321 struct op *old_op = PL_op; 328 dmy_op.op_targ = PL_op->op_targ; 329 PL_op = &dmy_op; 331 PL_op = old_op;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/ |
H A D | byterun.c | 96 PL_op = arg; 110 BSET_OBJ_STORE(PL_op, arg); 152 BSET_newop(PL_op, arg); 159 BSET_newopx(PL_op, arg); 166 BSET_newopn(PL_op, arg); 721 PL_op->op_next = arg; 728 PL_op->op_sibling = arg; 735 BSET_op_ppaddr(PL_op->op_ppaddr, arg); 742 PL_op->op_targ = arg; 749 BSET_op_type(PL_op, ar [all...] |