From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 9 Jun 2006 16:40:52 +0000 (+0000)
Subject: Mark the 1st argument to S_exec_failed as non null
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b1366aafc0ae88aa629334eee83ef65c43f75718;p=p5sagit%2Fp5-mst-13.2.git

Mark the 1st argument to S_exec_failed as non null

p4raw-id: //depot/perl@28377
---

diff --git a/embed.fnc b/embed.fnc
index 3212583..9710cae 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -207,7 +207,7 @@ p	|bool	|do_exec3	|NN const char* cmd|int fd|int do_report
 #endif
 p	|void	|do_execfree
 #ifdef PERL_IN_DOIO_C
-s	|void	|exec_failed	|const char *cmd|int fd|int do_report
+s	|void	|exec_failed	|NN const char *cmd|int fd|int do_report
 #endif
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 p	|I32	|do_ipcctl	|I32 optype|NN SV** mark|NN SV** sp
diff --git a/proto.h b/proto.h
index aad0de6..8460990 100644
--- a/proto.h
+++ b/proto.h
@@ -442,7 +442,9 @@ PERL_CALLCONV bool	Perl_do_exec3(pTHX_ const char* cmd, int fd, int do_report)
 #endif
 PERL_CALLCONV void	Perl_do_execfree(pTHX);
 #ifdef PERL_IN_DOIO_C
-STATIC void	S_exec_failed(pTHX_ const char *cmd, int fd, int do_report);
+STATIC void	S_exec_failed(pTHX_ const char *cmd, int fd, int do_report)
+			__attribute__nonnull__(pTHX_1);
+
 #endif
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 PERL_CALLCONV I32	Perl_do_ipcctl(pTHX_ I32 optype, SV** mark, SV** sp)