Mark the 1st argument to S_exec_failed as non null

p4raw-id: //depot/perl@28377

2 files changed, 4 insertions, 2 deletions

diff --git a/embed.fnc b/embed.fnc
index 3212583c4f..9710caeca2 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 aad0de618d..846099060a 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)