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 /proto.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 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -6162,6 +6162,11 @@ STATIC PADOFFSET S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, in #define PERL_ARGS_ASSERT_PAD_FINDLEX \ assert(name); assert(cv); assert(out_name_sv); assert(out_flags) +STATIC PADOFFSET S_pad_add_name_sv(pTHX_ SV *namesv, const U32 flags, HV *typestash, HV *ourstash) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_PAD_ADD_NAME_SV \ + assert(namesv) + # if defined(DEBUGGING) STATIC void S_cv_dump(pTHX_ const CV *cv, const char *title) __attribute__nonnull__(pTHX_1) |