Lines Matching refs:PL_comppad
50 * whether PL_comppad and PL_curpad are consistent and whether they have
55 if (PL_comppad ? (AvARRAY(PL_comppad) != PL_curpad) : (PL_curpad != 0)) \
57 label, PTR2UV(PL_comppad), PTR2UV(PL_curpad));
61 if (!PL_comppad || (AvARRAY(PL_comppad) != PL_curpad)) \
63 label, PTR2UV(PL_comppad), PTR2UV(PL_curpad));
83 save PL_comppad and PL_curpad
140 PL_comppad = (PAD*) (AvARRAY(padlist)[n]); \
141 PL_curpad = AvARRAY(PL_comppad); \
144 PTR2UV(PL_comppad), PTR2UV(PL_curpad), (int)(n)));
153 PL_comppad = Null(PAD*); PL_curpad = Null(SV**); \
157 opad = PL_comppad; \
158 PL_comppad = (npad); \
159 PL_curpad = PL_comppad ? AvARRAY(PL_comppad) : Null(SV**); \
162 PTR2UV(PL_comppad), PTR2UV(PL_curpad)));
165 PL_comppad = opad; \
166 PL_curpad = PL_comppad ? AvARRAY(PL_comppad) : Null(SV**); \
169 PTR2UV(PL_comppad), PTR2UV(PL_curpad)));
183 #define CX_CURPAD_SAVE(block) (block).oldcomppad = PL_comppad
250 /* NB - we set PL_comppad to null unless it points at a value that
252 * Otherwise PL_comppad ends up being a leaked scalar in code like
259 PL_comppad = ptr_table_fetch(PL_ptr_table, proto_perl->Tcomppad); \
260 PL_curpad = PL_comppad ? AvARRAY(PL_comppad) : Null(SV**); \