From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 14 Nov 2005 10:24:58 +0000 (+0000)
Subject: Suppress gcc warnings when ignoring the return value of io_close(),
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5836e3ecdff1c184f035811e31eb710069409212;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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)