Change 33300 by [EMAIL PROTECTED] on 2008/02/13 12:27:56
pp_system explicitly passes NULL to do_aspawn, so NULL must be "OK"
*Now* my Win32 DEBUGGING build works :-)
Affected files ...
... //depot/perl/embed.fnc#586 edit
... //depot/perl/proto.h#921 edit
Differences ...
==== //depot/perl/embed.fnc#586 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#585~33299~ 2008-02-13 04:19:17.000000000 -0800
+++ perl/embed.fnc 2008-02-13 04:27:56.000000000 -0800
@@ -212,7 +212,7 @@
#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
==== //depot/perl/proto.h#921 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#920~33299~ 2008-02-13 04:19:17.000000000 -0800
+++ perl/proto.h 2008-02-13 04:27:56.000000000 -0800
@@ -584,11 +584,10 @@
#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);
End of Patch.