diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-11-26 21:18:58 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-26 21:18:58 +0000 |
| commit | 9d8f40c4d2ff3c9a7ded072d81df73638a8c1d83 (patch) | |
| tree | 3b2a95adfd030cfdc036517deb954945bfefd445 /proto.h | |
| parent | f0cb02e3e781e9ee7442d6b61ec0330b7fb95a52 (diff) | |
| download | perl-9d8f40c4d2ff3c9a7ded072d81df73638a8c1d83.tar.gz | |
Merge S_is_gv_magical() into Perl_is_gv_magical_sv().
p4raw-id: //depot/perl@34931
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 12 |
1 files changed, 2 insertions, 10 deletions
@@ -1150,14 +1150,6 @@ PERL_CALLCONV bool Perl_io_close(pTHX_ IO* io, bool not_implicit) PERL_CALLCONV OP* Perl_invert(pTHX_ OP* cmd) __attribute__warn_unused_result__; -#if defined(PERL_IN_GV_C) -STATIC bool S_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags) - __attribute__warn_unused_result__ - __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT_IS_GV_MAGICAL \ - assert(name) - -#endif PERL_CALLCONV I32 Perl_is_lvalue_sub(pTHX) __attribute__warn_unused_result__; @@ -6320,11 +6312,11 @@ PERL_CALLCONV GV* Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, const svtype sv_typ #define PERL_ARGS_ASSERT_GV_FETCHSV \ assert(name) -PERL_CALLCONV bool Perl_is_gv_magical_sv(pTHX_ SV *name, U32 flags) +PERL_CALLCONV bool Perl_is_gv_magical_sv(pTHX_ SV *const name_sv, U32 flags) __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_IS_GV_MAGICAL_SV \ - assert(name) + assert(name_sv) PERL_CALLCONV bool Perl_stashpv_hvname_match(pTHX_ const COP *c, const HV *hv) |