diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-02-10 09:57:23 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-05-24 15:50:57 +0100 |
| commit | d5b1589c09b534ccfeb2eae26b3de9339c1bf22b (patch) | |
| tree | 64fa4c03090b557d0687e9e3e845a62d74dc01fd /embed.h | |
| parent | e42956688f2e0df936f1a42811962946e4e185bf (diff) | |
| download | perl-d5b1589c09b534ccfeb2eae26b3de9339c1bf22b.tar.gz | |
Convert PAD_DUP to a function Perl_padlist_dup().
assert() that pads are never AvREAL().
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -1777,6 +1777,11 @@ #define pad_push Perl_pad_push #define pad_compname_type Perl_pad_compname_type #endif +#if defined(USE_ITHREADS) +#ifdef PERL_CORE +#define padlist_dup Perl_padlist_dup +#endif +#endif #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define pad_findlex S_pad_findlex @@ -4212,6 +4217,11 @@ #define pad_push(a,b) Perl_pad_push(aTHX_ a,b) #define pad_compname_type(a) Perl_pad_compname_type(aTHX_ a) #endif +#if defined(USE_ITHREADS) +#ifdef PERL_CORE +#define padlist_dup(a,b) Perl_padlist_dup(aTHX_ a,b) +#endif +#endif #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define pad_findlex(a,b,c,d,e,f,g) S_pad_findlex(aTHX_ a,b,c,d,e,f,g) |