pp_system explicitly passes NULL to do_aspawn, so NULL must be "OK"

*Now* my Win32 DEBUGGING build works :-)

p4raw-id: //depot/perl@33300

diff --git a/embed.fnc b/embed.fnc
index 3d8c4b1..4e54636 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -212,7 +212,7 @@ p   |bool   |do_exec        |NN const char* cmd
 #endif
 
 #if defined(WIN32) || defined(__SYMBIAN32__)
-Ap     |int    |do_aspawn      |NN SV* really|NN SV** mark|NN SV** sp
+Ap     |int    |do_aspawn      |NULLOK SV* really|NN SV** mark|NN SV** sp
 Ap     |int    |do_spawn       |NN char* cmd
 Ap     |int    |do_spawn_nowait|NN char* cmd
 #endif

diff --git a/proto.h b/proto.h
index cd6aac5..7b2d14b 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -584,11 +584,10 @@ PERL_CALLCONV bool        Perl_do_exec(pTHX_ const char* cmd)
 
 #if defined(WIN32) || defined(__SYMBIAN32__)
 PERL_CALLCONV int      Perl_do_aspawn(pTHX_ SV* really, SV** mark, SV** sp)
-                       __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2)
                        __attribute__nonnull__(pTHX_3);
 #define PERL_ARGS_ASSERT_DO_ASPAWN     \
-       assert(really); assert(mark); assert(sp)
+       assert(mark); assert(sp)
 
 PERL_CALLCONV int      Perl_do_spawn(pTHX_ char* cmd)
                        __attribute__nonnull__(pTHX_1);