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.fnc | |
| 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.fnc')
| -rw-r--r-- | embed.fnc | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1964,6 +1964,8 @@ pR |HV* |pad_compname_type|const PADOFFSET po sd |PADOFFSET|pad_findlex |NN const char *name|NN const CV* cv|U32 seq|int warn \ |NULLOK SV** out_capture|NN SV** out_name_sv \ |NN int *out_flags +s |PADOFFSET|pad_add_name_sv|NN SV *namesv|const U32 flags \ + |NULLOK HV *typestash|NULLOK HV *ourstash # if defined(DEBUGGING) sd |void |cv_dump |NN const CV *cv|NN const char *title # endif |