From: Dave Mitchell Date: Tue, 12 Jul 2005 18:15:48 +0000 (+0000) Subject: get_?v have side effects, so their return values may be ignored X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56d23705b5c1a6644965d52e2de049e897bc5077;p=p5sagit%2Fp5-mst-13.2.git get_?v have side effects, so their return values may be ignored p4raw-id: //depot/perl@25126 --- diff --git a/embed.fnc b/embed.fnc index 6346937..0532cf5 100644 --- 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 --- 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);