Imported Upstream version 5.23.3
[platform/upstream/perl.git] / pad.h
1 /*    pad.h
2  *
3  *    Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008,
4  *    2009, 2010, 2011 by Larry Wall and others
5  *
6  *    You may distribute under the terms of either the GNU General Public
7  *    License or the Artistic License, as specified in the README file.
8  *
9  * This file defines the types and macros associated with the API for
10  * manipulating scratchpads, which are used by perl to store lexical
11  * variables, op targets and constants.
12  */
13
14 /*
15 =head1 Pad Data Structures
16 */
17
18
19 /* offsets within a pad */
20
21 #if PTRSIZE == 4
22 typedef U32TYPE PADOFFSET;
23 #else
24 #   if PTRSIZE == 8
25 typedef U64TYPE PADOFFSET;
26 #   endif
27 #endif
28 #define NOT_IN_PAD ((PADOFFSET) -1)
29
30 /* B.xs expects the first members of these two structs to line up
31    (xpadl_max with xpadnl_fill).
32  */
33
34 struct padlist {
35     SSize_t     xpadl_max;      /* max index for which array has space */
36     union {
37         PAD **  xpadlarr_alloc; /* Pointer to beginning of array of AVs.
38                                    index 0 is a padnamelist *          */
39         struct {
40             PADNAMELIST * padnl;
41             PAD * pad_1;        /* this slice of PAD * array always alloced */
42             PAD * pad_2;        /* maybe unalloced */
43         } * xpadlarr_dbg;       /* for use with a C debugger only */
44     } xpadl_arr;
45     U32         xpadl_id;       /* Semi-unique ID, shared between clones */
46     U32         xpadl_outid;    /* ID of outer pad */
47 };
48
49 struct padnamelist {
50     SSize_t     xpadnl_fill;    /* max index in use */
51     PADNAME **  xpadnl_alloc;   /* pointer to beginning of array */
52     SSize_t     xpadnl_max;     /* max index for which array has space */
53     PADOFFSET   xpadnl_max_named; /* highest index with len > 0 */
54     U32         xpadnl_refcnt;
55 };
56
57 /* PERL_PADNAME_MINIMAL uses less memory, but on some platforms
58    PERL_PADNAME_ALIGNED may be faster, so platform-specific hints can
59    define one or the other.  */
60 #if defined(PERL_PADNAME_MINIMAL) && defined (PERL_PADNAME_ALIGNED)
61 #  error PERL_PADNAME_MINIMAL and PERL_PADNAME_ALIGNED are exclusive
62 #endif
63
64 #if !defined(PERL_PADNAME_MINIMAL) && !defined(PERL_PADNAME_ALIGNED)
65 #  define PERL_PADNAME_MINIMAL
66 #endif
67
68 #define _PADNAME_BASE \
69     char *      xpadn_pv;               \
70     HV *        xpadn_ourstash;         \
71     union {                             \
72         HV *    xpadn_typestash;        \
73         CV *    xpadn_protocv;          \
74     } xpadn_type_u;                     \
75     U32         xpadn_low;              \
76     U32         xpadn_high;             \
77     U32         xpadn_refcnt;           \
78     int         xpadn_gen;              \
79     U8          xpadn_len;              \
80     U8          xpadn_flags
81
82 struct padname {
83     _PADNAME_BASE;
84 };
85
86 struct padname_with_str {
87 #ifdef PERL_PADNAME_MINIMAL
88     _PADNAME_BASE;
89 #else
90     struct padname      xpadn_padname;
91 #endif
92     char                xpadn_str[1];
93 };
94
95 #undef _PADNAME_BASE
96
97 #define PADNAME_FROM_PV(s) \
98     ((PADNAME *)((s) - STRUCT_OFFSET(struct padname_with_str, xpadn_str)))
99
100
101 /* a value that PL_cop_seqmax is guaranteed never to be,
102  * flagging that a lexical is being introduced, or has not yet left scope
103  */
104 #define PERL_PADSEQ_INTRO  U32_MAX
105 #define COP_SEQMAX_INC \
106         (PL_cop_seqmax++, \
107          (void)(PL_cop_seqmax == PERL_PADSEQ_INTRO && PL_cop_seqmax++))
108
109
110 /* B.xs needs these for the benefit of B::Deparse */
111 /* Low range end is exclusive (valid from the cop seq after this one) */
112 /* High range end is inclusive (valid up to this cop seq) */
113
114 #define COP_SEQ_RANGE_LOW(pn)           (pn)->xpadn_low
115 #define COP_SEQ_RANGE_HIGH(pn)          (pn)->xpadn_high
116 #define PARENT_PAD_INDEX(pn)            (pn)->xpadn_low
117 #define PARENT_FAKELEX_FLAGS(pn)        (pn)->xpadn_high
118
119 /* Flags set in the SvIVX field of FAKE namesvs */
120
121 #define PAD_FAKELEX_ANON   1 /* the lex is declared in an ANON, or ... */
122 #define PAD_FAKELEX_MULTI  2 /* the lex can be instantiated multiple times */
123
124 /* flags for the pad_new() function */
125
126 #define padnew_CLONE    1       /* this pad is for a cloned CV */
127 #define padnew_SAVE     2       /* save old globals */
128 #define padnew_SAVESUB  4       /* also save extra stuff for start of sub */
129
130 /* values for the pad_tidy() function */
131
132 typedef enum {
133         padtidy_SUB,            /* tidy up a pad for a sub, */
134         padtidy_SUBCLONE,       /* a cloned sub, */
135         padtidy_FORMAT          /* or a format */
136 } padtidy_type;
137
138 /* flags for pad_add_name_pvn. */
139
140 #define padadd_OUR              0x01       /* our declaration. */
141 #define padadd_STATE            0x02       /* state declaration. */
142 #define padadd_NO_DUP_CHECK     0x04       /* skip warning on dups. */
143 #define padadd_STALEOK          0x08       /* allow stale lexical in active
144                                             * sub, but only one level up */
145
146 /* ASSERT_CURPAD_LEGAL and ASSERT_CURPAD_ACTIVE respectively determine
147  * whether PL_comppad and PL_curpad are consistent and whether they have
148  * active values */
149
150 #  define pad_peg(label)
151
152 #ifdef DEBUGGING
153 #  define ASSERT_CURPAD_LEGAL(label) \
154     pad_peg(label); \
155     if (PL_comppad ? (AvARRAY(PL_comppad) != PL_curpad) : (PL_curpad != 0))  \
156         Perl_croak(aTHX_ "panic: illegal pad in %s: 0x%" UVxf "[0x%" UVxf "]",\
157             label, PTR2UV(PL_comppad), PTR2UV(PL_curpad));
158
159
160 #  define ASSERT_CURPAD_ACTIVE(label) \
161     pad_peg(label); \
162     if (!PL_comppad || (AvARRAY(PL_comppad) != PL_curpad))                \
163         Perl_croak(aTHX_ "panic: invalid pad in %s: 0x%" UVxf "[0x%" UVxf "]",\
164             label, PTR2UV(PL_comppad), PTR2UV(PL_curpad));
165 #else
166 #  define ASSERT_CURPAD_LEGAL(label)
167 #  define ASSERT_CURPAD_ACTIVE(label)
168 #endif
169
170
171
172 /* Note: the following three macros are actually defined in scope.h, but
173  * they are documented here for completeness, since they directly or
174  * indirectly affect pads.
175
176 =for apidoc m|void|SAVEPADSV    |PADOFFSET po
177 Save a pad slot (used to restore after an iteration)
178
179 XXX DAPM it would make more sense to make the arg a PADOFFSET
180 =for apidoc m|void|SAVECLEARSV  |SV **svp
181 Clear the pointed to pad value on scope exit.  (i.e. the runtime action of
182 C<my>)
183
184 =for apidoc m|void|SAVECOMPPAD
185 save C<PL_comppad> and C<PL_curpad>
186
187
188 =for apidoc Amx|PAD **|PadlistARRAY|PADLIST padlist
189 The C array of a padlist, containing the pads.  Only subscript it with
190 numbers >= 1, as the 0th entry is not guaranteed to remain usable.
191
192 =for apidoc Amx|SSize_t|PadlistMAX|PADLIST padlist
193 The index of the last allocated space in the padlist.  Note that the last
194 pad may be in an earlier slot.  Any entries following it will be C<NULL> in
195 that case.
196
197 =for apidoc Amx|PADNAMELIST *|PadlistNAMES|PADLIST padlist
198 The names associated with pad entries.
199
200 =for apidoc Amx|PADNAME **|PadlistNAMESARRAY|PADLIST padlist
201 The C array of pad names.
202
203 =for apidoc Amx|SSize_t|PadlistNAMESMAX|PADLIST padlist
204 The index of the last pad name.
205
206 =for apidoc Amx|U32|PadlistREFCNT|PADLIST padlist
207 The reference count of the padlist.  Currently this is always 1.
208
209 =for apidoc Amx|PADNAME **|PadnamelistARRAY|PADNAMELIST pnl
210 The C array of pad names.
211
212 =for apidoc Amx|SSize_t|PadnamelistMAX|PADNAMELIST pnl
213 The index of the last pad name.
214
215 =for apidoc Amx|SSize_t|PadnamelistREFCNT|PADNAMELIST pnl
216 The reference count of the pad name list.
217
218 =for apidoc Amx|void|PadnamelistREFCNT_dec|PADNAMELIST pnl
219 Lowers the reference count of the pad name list.
220
221 =for apidoc Amx|SV **|PadARRAY|PAD pad
222 The C array of pad entries.
223
224 =for apidoc Amx|SSize_t|PadMAX|PAD pad
225 The index of the last pad entry.
226
227 =for apidoc Amx|char *|PadnamePV|PADNAME pn     
228 The name stored in the pad name struct.  This returns C<NULL> for a target
229 slot.
230
231 =for apidoc Amx|STRLEN|PadnameLEN|PADNAME pn    
232 The length of the name.
233
234 =for apidoc Amx|bool|PadnameUTF8|PADNAME pn
235 Whether PadnamePV is in UTF-8.  Currently, this is always true.
236
237 =for apidoc Amx|SV *|PadnameSV|PADNAME pn
238 Returns the pad name as a mortal SV.
239
240 =for apidoc m|bool|PadnameIsOUR|PADNAME pn
241 Whether this is an "our" variable.
242
243 =for apidoc m|HV *|PadnameOURSTASH
244 The stash in which this "our" variable was declared.
245
246 =for apidoc m|bool|PadnameOUTER|PADNAME pn
247 Whether this entry belongs to an outer pad.  Entries for which this is true
248 are often referred to as 'fake'.
249
250 =for apidoc m|bool|PadnameIsSTATE|PADNAME pn
251 Whether this is a "state" variable.
252
253 =for apidoc m|HV *|PadnameTYPE|PADNAME pn
254 The stash associated with a typed lexical.  This returns the C<%Foo::> hash
255 for C<my Foo $bar>.
256
257 =for apidoc Amx|SSize_t|PadnameREFCNT|PADNAME pn
258 The reference count of the pad name.
259
260 =for apidoc Amx|void|PadnameREFCNT_dec|PADNAME pn
261 Lowers the reference count of the pad name.
262
263
264 =for apidoc m|SV *|PAD_SETSV    |PADOFFSET po|SV* sv
265 Set the slot at offset C<po> in the current pad to C<sv>
266
267 =for apidoc m|SV *|PAD_SV       |PADOFFSET po
268 Get the value at offset C<po> in the current pad
269
270 =for apidoc m|SV *|PAD_SVl      |PADOFFSET po
271 Lightweight and lvalue version of C<PAD_SV>.
272 Get or set the value at offset C<po> in the current pad.
273 Unlike C<PAD_SV>, does not print diagnostics with -DX.
274 For internal use only.
275
276 =for apidoc m|SV *|PAD_BASE_SV  |PADLIST padlist|PADOFFSET po
277 Get the value from slot C<po> in the base (DEPTH=1) pad of a padlist
278
279 =for apidoc m|void|PAD_SET_CUR  |PADLIST padlist|I32 n
280 Set the current pad to be pad C<n> in the padlist, saving
281 the previous current pad.  NB currently this macro expands to a string too
282 long for some compilers, so it's best to replace it with
283
284     SAVECOMPPAD();
285     PAD_SET_CUR_NOSAVE(padlist,n);
286
287
288 =for apidoc m|void|PAD_SET_CUR_NOSAVE   |PADLIST padlist|I32 n
289 like PAD_SET_CUR, but without the save
290
291 =for apidoc m|void|PAD_SAVE_SETNULLPAD
292 Save the current pad then set it to null.
293
294 =for apidoc m|void|PAD_SAVE_LOCAL|PAD *opad|PAD *npad
295 Save the current pad to the local variable C<opad>, then make the
296 current pad equal to C<npad>
297
298 =for apidoc m|void|PAD_RESTORE_LOCAL|PAD *opad
299 Restore the old pad saved into the local variable C<opad> by C<PAD_SAVE_LOCAL()>
300
301 =cut
302 */
303
304 #define PadlistARRAY(pl)        (pl)->xpadl_arr.xpadlarr_alloc
305 #define PadlistMAX(pl)          (pl)->xpadl_max
306 #define PadlistNAMES(pl)        *((PADNAMELIST **)PadlistARRAY(pl))
307 #define PadlistNAMESARRAY(pl)   PadnamelistARRAY(PadlistNAMES(pl))
308 #define PadlistNAMESMAX(pl)     PadnamelistMAX(PadlistNAMES(pl))
309 #define PadlistREFCNT(pl)       1       /* reserved for future use */
310
311 #define PadnamelistARRAY(pnl)           (pnl)->xpadnl_alloc
312 #define PadnamelistMAX(pnl)             (pnl)->xpadnl_fill
313 #define PadnamelistMAXNAMED(pnl)        (pnl)->xpadnl_max_named
314 #define PadnamelistREFCNT(pnl)          (pnl)->xpadnl_refcnt
315 #define PadnamelistREFCNT_dec(pnl)      Perl_padnamelist_free(aTHX_ pnl)
316
317 #define PadARRAY(pad)           AvARRAY(pad)
318 #define PadMAX(pad)             AvFILLp(pad)
319
320 #define PadnamePV(pn)           (pn)->xpadn_pv
321 #define PadnameLEN(pn)          (pn)->xpadn_len
322 #define PadnameUTF8(pn)         1
323 #define PadnameSV(pn) \
324         newSVpvn_flags(PadnamePV(pn), PadnameLEN(pn), SVs_TEMP|SVf_UTF8)
325 #define PadnameFLAGS(pn)        (pn)->xpadn_flags
326 #define PadnameIsOUR(pn)        (!!(pn)->xpadn_ourstash)
327 #define PadnameOURSTASH(pn)     (pn)->xpadn_ourstash
328 #define PadnameTYPE(pn)         (pn)->xpadn_type_u.xpadn_typestash
329 #define PadnamePROTOCV(pn)      (pn)->xpadn_type_u.xpadn_protocv
330 #define PadnameREFCNT(pn)       (pn)->xpadn_refcnt
331 #define PadnameREFCNT_dec(pn)   Perl_padname_free(aTHX_ pn)
332 #define PadnameOURSTASH_set(pn,s) (PadnameOURSTASH(pn) = (s))
333 #define PadnameTYPE_set(pn,s)     (PadnameTYPE(pn) = (s))
334 #define PadnameOUTER(pn)        (PadnameFLAGS(pn) & PADNAMEt_OUTER)
335 #define PadnameIsSTATE(pn)      (PadnameFLAGS(pn) & PADNAMEt_STATE)
336 #define PadnameLVALUE(pn)       (PadnameFLAGS(pn) & PADNAMEt_LVALUE)
337
338 #define PadnameLVALUE_on(pn)    (PadnameFLAGS(pn) |= PADNAMEt_LVALUE)
339 #define PadnameIsSTATE_on(pn)   (PadnameFLAGS(pn) |= PADNAMEt_STATE)
340
341 #define PADNAMEt_OUTER  1       /* outer lexical var */
342 #define PADNAMEt_STATE  2       /* state var */
343 #define PADNAMEt_LVALUE 4       /* used as lvalue */
344 #define PADNAMEt_TYPED  8       /* for B; unused by core */
345 #define PADNAMEt_OUR    16      /* for B; unused by core */
346
347 /* backward compatibility */
348 #define SvPAD_STATE             PadnameIsSTATE
349 #define SvPAD_TYPED(pn)         (!!PadnameTYPE(pn))
350 #define SvPAD_OUR(pn)           (!!PadnameOURSTASH(pn))
351 #define SvPAD_STATE_on          PadnameIsSTATE_on
352 #define SvPAD_TYPED_on(pn)      (PadnameFLAGS(pn) |= PADNAMEt_TYPED)
353 #define SvPAD_OUR_on(pn)        (PadnameFLAGS(pn) |= PADNAMEt_OUR)
354 #define SvOURSTASH              PadnameOURSTASH
355 #define SvOURSTASH_set          PadnameOURSTASH_set
356 #define SVpad_STATE             PADNAMEt_STATE
357 #define SVpad_TYPED             PADNAMEt_TYPED
358 #define SVpad_OUR               PADNAMEt_OUR
359
360 #ifdef DEBUGGING
361 #  define PAD_SV(po)       pad_sv(po)
362 #  define PAD_SETSV(po,sv) pad_setsv(po,sv)
363 #else
364 #  define PAD_SV(po)       (PL_curpad[po])
365 #  define PAD_SETSV(po,sv) PL_curpad[po] = (sv)
366 #endif
367
368 #define PAD_SVl(po)       (PL_curpad[po])
369
370 #define PAD_BASE_SV(padlist, po) \
371         (PadlistARRAY(padlist)[1])                                      \
372             ? AvARRAY(MUTABLE_AV((PadlistARRAY(padlist)[1])))[po] \
373             : NULL;
374
375
376 #define PAD_SET_CUR_NOSAVE(padlist,nth) \
377         PL_comppad = (PAD*) (PadlistARRAY(padlist)[nth]);       \
378         PL_curpad = AvARRAY(PL_comppad);                        \
379         DEBUG_Xv(PerlIO_printf(Perl_debug_log,                  \
380               "Pad 0x%" UVxf "[0x%" UVxf "] set_cur    depth=%d\n",     \
381               PTR2UV(PL_comppad), PTR2UV(PL_curpad), (int)(nth)));
382
383
384 #define PAD_SET_CUR(padlist,nth) \
385         SAVECOMPPAD();                                          \
386         PAD_SET_CUR_NOSAVE(padlist,nth);
387
388
389 #define PAD_SAVE_SETNULLPAD()   SAVECOMPPAD(); \
390         PL_comppad = NULL; PL_curpad = NULL;    \
391         DEBUG_Xv(PerlIO_printf(Perl_debug_log, "Pad set_null\n"));
392
393 #define PAD_SAVE_LOCAL(opad,npad) \
394         opad = PL_comppad;                                      \
395         PL_comppad = (npad);                                    \
396         PL_curpad =  PL_comppad ? AvARRAY(PL_comppad) : NULL;   \
397         DEBUG_Xv(PerlIO_printf(Perl_debug_log,                  \
398               "Pad 0x%" UVxf "[0x%" UVxf "] save_local\n",              \
399               PTR2UV(PL_comppad), PTR2UV(PL_curpad)));
400
401 #define PAD_RESTORE_LOCAL(opad) \
402         assert(!opad || !SvIS_FREED(opad));                                     \
403         PL_comppad = opad;                                              \
404         PL_curpad =  PL_comppad ? AvARRAY(PL_comppad) : NULL;   \
405         DEBUG_Xv(PerlIO_printf(Perl_debug_log,                  \
406               "Pad 0x%" UVxf "[0x%" UVxf "] restore_local\n",   \
407               PTR2UV(PL_comppad), PTR2UV(PL_curpad)));
408
409
410 /*
411 =for apidoc m|void|CX_CURPAD_SAVE|struct context
412 Save the current pad in the given context block structure.
413
414 =for apidoc m|SV *|CX_CURPAD_SV|struct context|PADOFFSET po
415 Access the SV at offset C<po> in the saved current pad in the given
416 context block structure (can be used as an lvalue).
417
418 =cut
419 */
420
421 #define CX_CURPAD_SAVE(block)  (block).oldcomppad = PL_comppad
422 #define CX_CURPAD_SV(block,po) (AvARRAY(MUTABLE_AV(((block).oldcomppad)))[po])
423
424
425 /*
426 =for apidoc m|U32|PAD_COMPNAME_FLAGS|PADOFFSET po
427 Return the flags for the current compiling pad name
428 at offset C<po>.  Assumes a valid slot entry.
429
430 =for apidoc m|char *|PAD_COMPNAME_PV|PADOFFSET po
431 Return the name of the current compiling pad name
432 at offset C<po>.  Assumes a valid slot entry.
433
434 =for apidoc m|HV *|PAD_COMPNAME_TYPE|PADOFFSET po
435 Return the type (stash) of the current compiling pad name at offset
436 C<po>.  Must be a valid name.  Returns null if not typed.
437
438 =for apidoc m|HV *|PAD_COMPNAME_OURSTASH|PADOFFSET po
439 Return the stash associated with an C<our> variable.
440 Assumes the slot entry is a valid C<our> lexical.
441
442 =for apidoc m|STRLEN|PAD_COMPNAME_GEN|PADOFFSET po
443 The generation number of the name at offset C<po> in the current
444 compiling pad (lvalue).
445
446 =for apidoc m|STRLEN|PAD_COMPNAME_GEN_set|PADOFFSET po|int gen
447 Sets the generation number of the name at offset C<po> in the current
448 ling pad (lvalue) to C<gen>.
449 =cut
450
451 */
452
453 #define PAD_COMPNAME(po)        PAD_COMPNAME_SV(po)
454 #define PAD_COMPNAME_SV(po)     (PadnamelistARRAY(PL_comppad_name)[(po)])
455 #define PAD_COMPNAME_FLAGS(po)  PadnameFLAGS(PAD_COMPNAME(po))
456 #define PAD_COMPNAME_FLAGS_isOUR(po) SvPAD_OUR(PAD_COMPNAME_SV(po))
457 #define PAD_COMPNAME_PV(po)     PadnamePV(PAD_COMPNAME(po))
458
459 #define PAD_COMPNAME_TYPE(po)   PadnameTYPE(PAD_COMPNAME(po))
460
461 #define PAD_COMPNAME_OURSTASH(po) \
462     (SvOURSTASH(PAD_COMPNAME_SV(po)))
463
464 #define PAD_COMPNAME_GEN(po) \
465     ((STRLEN)PadnamelistARRAY(PL_comppad_name)[po]->xpadn_gen)
466
467 #define PAD_COMPNAME_GEN_set(po, gen) \
468     (PadnamelistARRAY(PL_comppad_name)[po]->xpadn_gen = (gen))
469
470
471 /*
472 =for apidoc m|void|PAD_CLONE_VARS|PerlInterpreter *proto_perl|CLONE_PARAMS* param
473 Clone the state variables associated with running and compiling pads.
474
475 =cut
476 */
477
478 /* NB - we set PL_comppad to null unless it points at a value that
479  * has already been dup'ed, ie it points to part of an active padlist.
480  * Otherwise PL_comppad ends up being a leaked scalar in code like
481  * the following:
482  *     threads->create(sub { threads->create(sub {...} ) } );
483  * where the second thread dups the outer sub's comppad but not the
484  * sub's CV or padlist. */
485
486 #define PAD_CLONE_VARS(proto_perl, param)                               \
487     PL_comppad                  = av_dup(proto_perl->Icomppad, param);  \
488     PL_curpad = PL_comppad ?  AvARRAY(PL_comppad) : NULL;               \
489     PL_comppad_name             =                                       \
490                   padnamelist_dup(proto_perl->Icomppad_name, param);    \
491     PL_comppad_name_fill        = proto_perl->Icomppad_name_fill;       \
492     PL_comppad_name_floor       = proto_perl->Icomppad_name_floor;      \
493     PL_min_intro_pending        = proto_perl->Imin_intro_pending;       \
494     PL_max_intro_pending        = proto_perl->Imax_intro_pending;       \
495     PL_padix                    = proto_perl->Ipadix;                   \
496     PL_padix_floor              = proto_perl->Ipadix_floor;             \
497     PL_pad_reset_pending        = proto_perl->Ipad_reset_pending;       \
498     PL_cop_seqmax               = proto_perl->Icop_seqmax;
499
500 /*
501 =for apidoc Am|PADOFFSET|pad_add_name_pvs|const char *name|U32 flags|HV *typestash|HV *ourstash
502
503 Exactly like L</pad_add_name_pvn>, but takes a literal string instead
504 of a string/length pair.
505
506 =cut
507 */
508
509 #define pad_add_name_pvs(name,flags,typestash,ourstash) \
510     Perl_pad_add_name_pvn(aTHX_ STR_WITH_LEN(name), flags, typestash, ourstash)
511
512 /*
513 =for apidoc Am|PADOFFSET|pad_findmy_pvs|const char *name|U32 flags
514
515 Exactly like L</pad_findmy_pvn>, but takes a literal string instead
516 of a string/length pair.
517
518 =cut
519 */
520
521 #define pad_findmy_pvs(name,flags) \
522     Perl_pad_findmy_pvn(aTHX_ STR_WITH_LEN(name), flags)
523
524 /*
525  * ex: set ts=8 sts=4 sw=4 et:
526  */