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