This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
get_?v have side effects, so their return values may be ignored
authorDave Mitchell <davem@fdisolutions.com>
Tue, 12 Jul 2005 18:15:48 +0000 (18:15 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Tue, 12 Jul 2005 18:15:48 +0000 (18:15 +0000)
p4raw-id: //depot/perl@25126

embed.fnc
proto.h

index 6346937..0532cf5 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -591,10 +591,10 @@ Apd       |I32    |call_sv        |SV* sv|I32 flags
 Ap     |void   |despatch_signals
 Apd    |SV*    |eval_pv        |NN const char* p|I32 croak_on_error
 Apd    |I32    |eval_sv        |NN SV* sv|I32 flags
-ApdR   |SV*    |get_sv         |NN const char* name|I32 create
-ApdR   |AV*    |get_av         |NN const char* name|I32 create
-ApdR   |HV*    |get_hv         |NN const char* name|I32 create
-ApdR   |CV*    |get_cv         |NN const char* name|I32 create
+Apd    |SV*    |get_sv         |NN const char* name|I32 create
+Apd    |AV*    |get_av         |NN const char* name|I32 create
+Apd    |HV*    |get_hv         |NN const char* name|I32 create
+Apd    |CV*    |get_cv         |NN const char* name|I32 create
 Ap     |int    |init_i18nl10n  |int printwarn
 Ap     |int    |init_i18nl14n  |int printwarn
 Ap     |void   |new_collate    |NULLOK const char* newcoll
diff --git a/proto.h b/proto.h
index 3caa9f2..39e5a2d 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1315,19 +1315,15 @@ PERL_CALLCONV I32       Perl_eval_sv(pTHX_ SV* sv, I32 flags)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV SV*      Perl_get_sv(pTHX_ const char* name, I32 create)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV AV*      Perl_get_av(pTHX_ const char* name, I32 create)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV HV*      Perl_get_hv(pTHX_ const char* name, I32 create)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV CV*      Perl_get_cv(pTHX_ const char* name, I32 create)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV int      Perl_init_i18nl10n(pTHX_ int printwarn);