From: Steve Hay <SteveHay@planit.com>
Date: Wed, 13 Feb 2008 12:27:56 +0000 (+0000)
Subject: pp_system explicitly passes NULL to do_aspawn, so NULL must be "OK"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a3e405b265335c7002fb234702f4c800f4a9accb;p=p5sagit%2Fp5-mst-13.2.git

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