diff options
Diffstat (limited to 'pad.h')
-rw-r--r-- | pad.h | 40 |
1 files changed, 31 insertions, 9 deletions
@@ -10,7 +10,9 @@ * variables, op targets and constants. */ - +/* +=head1 Pad Data Structures +*/ /* a padlist is currently just an AV; but that might change, @@ -118,15 +120,11 @@ typedef enum { padtidy_FORMAT /* or a format */ } padtidy_type; -#ifdef PERL_CORE - -/* flags for pad_add_name. SVf_UTF8 will also be valid in the future. */ - -# define padadd_OUR 0x01 /* our declaration. */ -# define padadd_STATE 0x02 /* state declaration. */ -# define padadd_NO_DUP_CHECK 0x04 /* skip warning on dups. */ +/* flags for pad_add_name_pvn. SVf_UTF8 will also be valid in the future. */ -#endif +#define padadd_OUR 0x01 /* our declaration. */ +#define padadd_STATE 0x02 /* state declaration. */ +#define padadd_NO_DUP_CHECK 0x04 /* skip warning on dups. */ /* ASSERT_CURPAD_LEGAL and ASSERT_CURPAD_ACTIVE respectively determine * whether PL_comppad and PL_curpad are consistent and whether they have @@ -366,6 +364,30 @@ Clone the state variables associated with running and compiling pads. PL_cop_seqmax = proto_perl->Icop_seqmax; /* +=for apidoc Am|PADOFFSET|pad_add_name_pvs|const char *name|U32 flags|HV *typestash|HV *ourstash + +Exactly like L</pad_add_name_pvn>, but takes a literal string instead +of a string/length pair. + +=cut +*/ + +#define pad_add_name_pvs(name,flags,typestash,ourstash) \ + Perl_pad_add_name_pvn(aTHX_ STR_WITH_LEN(name), flags, typestash, ourstash) + +/* +=for apidoc Am|PADOFFSET|pad_findmy_pvs|const char *name|U32 flags + +Exactly like L</pad_findmy_pvn>, but takes a literal string instead +of a string/length pair. + +=cut +*/ + +#define pad_findmy_pvs(name,flags) \ + Perl_pad_findmy_pvn(aTHX_ STR_WITH_LEN(name), flags) + +/* * Local variables: * c-indentation-style: bsd * c-basic-offset: 4 |