This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
really allow pad_findmy's retval to be ignored
authorZefram <zefram@fysh.org>
Wed, 1 Feb 2012 22:22:59 +0000 (22:22 +0000)
committerZefram <zefram@fysh.org>
Wed, 1 Feb 2012 22:24:08 +0000 (22:24 +0000)
402642c6301a1dbc64ea3acc8beee35078afee26 only changed pad_findmy_pvn.
pad_findmy_pv and pad_findmy_sv need the same treatment.

embed.fnc
proto.h

index 2f60d47..c83c0a3 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2251,8 +2251,8 @@ Apd       |PADOFFSET|pad_add_anon |NN CV* func|I32 optype
 sd     |void   |pad_check_dup  |NN SV *name|U32 flags|NULLOK const HV *ourstash
 #endif
 Apd    |PADOFFSET|pad_findmy_pvn|NN const char* namepv|STRLEN namelen|U32 flags
-ApdR   |PADOFFSET|pad_findmy_pv|NN const char* name|U32 flags
-ApdR   |PADOFFSET|pad_findmy_sv|NN SV* name|U32 flags
+Apd    |PADOFFSET|pad_findmy_pv|NN const char* name|U32 flags
+Apd    |PADOFFSET|pad_findmy_sv|NN SV* name|U32 flags
 ApdD   |PADOFFSET|find_rundefsvoffset  |
 Apd    |SV*    |find_rundefsv  |
 : Used in pp.c
diff --git a/proto.h b/proto.h
index 750dab5..6ac437a 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2956,7 +2956,6 @@ PERL_CALLCONV HV* Perl_pad_compname_type(pTHX_ const PADOFFSET po)
                        __attribute__warn_unused_result__;
 
 PERL_CALLCONV PADOFFSET        Perl_pad_findmy_pv(pTHX_ const char* name, U32 flags)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_PAD_FINDMY_PV \
        assert(name)
@@ -2967,7 +2966,6 @@ PERL_CALLCONV PADOFFSET   Perl_pad_findmy_pvn(pTHX_ const char* namepv, STRLEN nam
        assert(namepv)
 
 PERL_CALLCONV PADOFFSET        Perl_pad_findmy_sv(pTHX_ SV* name, U32 flags)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_PAD_FINDMY_SV \
        assert(name)