diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-14 20:18:39 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-15 08:21:57 +0000 |
| commit | 73b81b142731b84cfdd5037cbef3bf9cf5ff3094 (patch) | |
| tree | d19e78c79f73d4698d5e7a4b01338ed2f4441f59 /embed.fnc | |
| parent | 3291825f3fd927adacdb9c44790978a741046199 (diff) | |
| download | perl-73b81b142731b84cfdd5037cbef3bf9cf5ff3094.tar.gz | |
Convert pad_check_dup() to static linkage, and call it from Perl_pad_add_name().
Provide a flag option to Perl_pad_add_name(), pad_add_NO_DUP_CHECK, to supress
the call.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -1939,9 +1939,10 @@ Mpd |PADOFFSET|pad_add_name |NN const char *name|const STRLEN len\ |NULLOK HV *ourstash : Only used in op.c pd |PADOFFSET|pad_add_anon |NN SV* sv|OPCODE op_type -: Only used in op.c -Mpd |void |pad_check_dup |NN const char *name|const STRLEN len\ - |const U32 flags|NN const HV *ourstash +#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) +sd |void |pad_check_dup |NN const char *name|const STRLEN len\ + |const U32 flags|NULLOK const HV *ourstash +#endif #ifdef DEBUGGING : Only used PAD_SETSV() in op.c pd |void |pad_setsv |PADOFFSET po|NN SV* sv |