Searched refs:PL_op (Results 1 - 25 of 31) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Drun.c24 while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {
H A Dcc_runtime.h10 #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 Dop.h69 #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 Dpp.h83 #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 Dreentr.c320 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 Dpp_hot.c38 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 Ddoop.c31 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 Dfakethr.h46 #define SCHEDULE() return schedule(), PL_op
H A Dpp_ctl.c105 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 Dpp.c52 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 Dpp_sys.c319 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 Dpp_sort.c1423 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 Dutf8.c518 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 Dperl.c1915 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 DXSUB.h89 #define dXSTARG SV * targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \
90 ? PAD_SV(PL_op->op_targ) : sv_newmortal())
H A Ddoio.c102 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 Ddump.c645 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 Dcop.h143 cx->blk_sub.lval = PL_op->op_private & \
223 cx->blk_eval.old_op_type = PL_op->op_type; \
H A Dgv.c1728 PL_op = (OP *) &myop;
1730 PL_op->op_private |= OPpENTERSUB_DB;
1744 if ((PL_op = Perl_pp_entersub(aTHX)))
H A Dscope.c658 SSPUSHPTR(PL_op);
1019 PL_op = (OP*)SSPOPPTR;
H A Dsv.c601 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 Dperlapi.h807 #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 DC.xs14 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 DUtil.xs80 # 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 Dbyterun.c96 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...]

Completed in 125 milliseconds

12