diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-07 13:37:12 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-07 15:37:33 +0000 |
| commit | f8f98e0a8bdbde83a9cdc3573d818f69d0a64c78 (patch) | |
| tree | a11a9634e18216edad55a2be0986db162c4a59a8 /embed.h | |
| parent | eda4663d0f345e78f0a82529a08f3aa28c98ff2c (diff) | |
| download | perl-f8f98e0a8bdbde83a9cdc3573d818f69d0a64c78.tar.gz | |
Add length and flags arguments to Perl_pad_findmy(), moving it to the public API.
Currently no flags bits are used, and the length is cross-checked against
strlen() on the pointer, but the intent is to re-work the entire pad API to be
UTF-8 aware, from the current situation of char * pointers only.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -639,9 +639,7 @@ #define pad_alloc Perl_pad_alloc #define allocmy Perl_allocmy #endif -#if defined(PERL_CORE) || defined(PERL_EXT) #define pad_findmy Perl_pad_findmy -#endif #define find_rundefsvoffset Perl_find_rundefsvoffset #ifdef PERL_CORE #define oopsAV Perl_oopsAV @@ -3009,9 +3007,7 @@ #define pad_alloc(a,b) Perl_pad_alloc(aTHX_ a,b) #define allocmy(a) Perl_allocmy(aTHX_ a) #endif -#if defined(PERL_CORE) || defined(PERL_EXT) -#define pad_findmy(a) Perl_pad_findmy(aTHX_ a) -#endif +#define pad_findmy(a,b,c) Perl_pad_findmy(aTHX_ a,b,c) #define find_rundefsvoffset() Perl_find_rundefsvoffset(aTHX) #ifdef PERL_CORE #define oopsAV(a) Perl_oopsAV(aTHX_ a) |