Suppress gcc warnings when ignoring the return value of io_close(),

as suggested by Gisle Aas.

p4raw-id: //depot/perl@26123

diff --git a/embed.fnc b/embed.fnc
index 1b37a51..aa43973 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -314,7 +314,7 @@ Ap  |void   |init_stacks
 Ap     |void   |init_tm        |NN struct tm *ptm
 pd     |U32    |intro_my
 ApPR   |char*  |instr          |NN const char* big|NN const char* little
-pR     |bool   |io_close       |NN IO* io|bool not_implicit
+p      |bool   |io_close       |NN IO* io|bool not_implicit
 pR     |OP*    |invert         |NULLOK OP* cmd
 dpR    |bool   |is_gv_magical  |NN const char *name|STRLEN len|U32 flags
 ApR    |I32    |is_lvalue_sub

diff --git a/proto.h b/proto.h
index 33e9f82..9acd42f 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -732,7 +732,6 @@ PERL_CALLCONV char* Perl_instr(pTHX_ const char* big, const char* little)
                        __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV bool     Perl_io_close(pTHX_ IO* io, bool not_implicit)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV OP*      Perl_invert(pTHX_ OP* cmd)