Lines Matching defs:padlist

163 Perl_set_padlist(CV * cv, PADLIST *padlist){
166     assert((Size_t)padlist != UINT64_C(0xEFEFEFEFEFEFEFEF));
168     assert((Size_t)padlist != 0xEFEFEFEF);
173     ((XPVCV*)MUTABLE_PTR(SvANY(cv)))->xcv_padlist_u.xcv_padlist = padlist;
180 Create a new padlist, updating the global variables for the
181 currently-compiling padlist to point to the new padlist.  The following
194     PADLIST *padlist;
221     Newxz(padlist, 1, PADLIST);
239         padlist->xpadl_id = PL_padlist_generation++;
247     /* Most subroutines never recurse, hence only need 2 entries in the padlist
252     PadlistMAX(padlist) = 1;
253     PadlistARRAY(padlist) = ary;
279     return (PADLIST*)padlist;
378         const PADLIST *padlist = CvPADLIST(&cvbody);
380         /* Free the padlist associated with a CV.
387                               "Pad undef: cv=0x%" UVxf " padlist=0x%" UVxf " comppad=0x%" UVxf "\n",
388                               PTR2UV(cv), PTR2UV(padlist), PTR2UV(PL_comppad))
398             PADNAMELIST * const comppad_name = PadlistNAMES(padlist);
400             PAD * const comppad = PadlistARRAY(padlist)[1];
443         ix = PadlistMAX(padlist);
445             PAD * const sv = PadlistARRAY(padlist)[ix--];
455             PADNAMELIST * const names = PadlistNAMES(padlist);
460         if (PadlistARRAY(padlist)) Safefree(PadlistARRAY(padlist));
461         Safefree(padlist);
1107     const PADLIST * const padlist = CvPADLIST(cv);
1127     if (padlist) { /* not an undef CV */
1129         const PADNAMELIST * const names = PadlistNAMES(padlist);
1238                     *out_capture = AvARRAY(PadlistARRAY(padlist)[
1304     if (CvCOMPILED(cv) || !padlist)
1311         PL_comppad_name = PadlistNAMES(padlist);
1312         PL_comppad = PadlistARRAY(padlist)[1];
1795 Dump the contents of a padlist
1801 Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full)
1811     if (!padlist) {
1814     pad_name = PadlistNAMES(padlist);
1815     pad = PadlistARRAY(padlist)[1];
1899         PADLIST* const padlist = CvPADLIST(cv);
1901                     "    PADLIST = 0x%" UVxf "\n", PTR2UV(padlist));
1902         do_dump_pad(1, Perl_debug_log, padlist, 1);
2353 Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv, CV *new_cv)
2356     PADNAMELIST * const comppad_name = PadlistNAMES(padlist);
2357     AV * const comppad = PadlistARRAY(padlist)[1];
2417 Push a new pad frame onto the padlist, unless there's already a pad at
2425 Perl_pad_push(pTHX_ PADLIST *padlist, int depth)
2429     if (depth > PadlistMAX(padlist) || !PadlistARRAY(padlist)[depth]) {
2430         PAD** const svp = PadlistARRAY(padlist);
2489         padlist_store(padlist, depth, newpad);
2614 Perl_padlist_store(pTHX_ PADLIST *padlist, I32 key, PAD *val)
2617     SSize_t const oldmax = PadlistMAX(padlist);
2623     if (key > PadlistMAX(padlist)) {
2624         av_extend_guts(NULL,key,&PadlistMAX(padlist),
2625                        (SV ***)&PadlistARRAY(padlist),
2626                        (SV ***)&PadlistARRAY(padlist));
2627         Zero(PadlistARRAY(padlist)+oldmax+1, PadlistMAX(padlist)-oldmax,
2630     ary = PadlistARRAY(padlist);