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.

Reply via email to