diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-14 19:36:21 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-15 08:21:56 +0000 |
| commit | 3291825f3fd927adacdb9c44790978a741046199 (patch) | |
| tree | 3a0586471127ee2ece9f6a95f55c3d7ab855f336 /embed.h | |
| parent | ded326e4b6fad7e2479796691d0c27b89d2fe080 (diff) | |
| download | perl-3291825f3fd927adacdb9c44790978a741046199.tar.gz | |
Refactor common code paths from Perl_pad_add_name() into S_pad_add_name_sv().
The only user of the pad_add_FAKE flag was S_pad_findlex(), so move the relevant
code there from Perl_pad_add_name(), and have S_pad_findlex() call
S_pad_add_name_sv() directly. This eliminates the pad_add_FAKE flag completely.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1734,6 +1734,7 @@ #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define pad_findlex S_pad_findlex +#define pad_add_name_sv S_pad_add_name_sv #endif # if defined(DEBUGGING) #ifdef PERL_CORE @@ -4111,6 +4112,7 @@ #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) +#define pad_add_name_sv(a,b,c,d) S_pad_add_name_sv(aTHX_ a,b,c,d) #endif # if defined(DEBUGGING) #ifdef PERL_CORE |