Defined-or patch (cleaned up)

[p5sagit/p5-mst-13.2.git] / embed.h

diff --git a/embed.h b/embed.h
index 9f8605a..03b64f5 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -133,6 +133,11 @@
 #define do_close               Perl_do_close
 #define do_eof                 Perl_do_eof
 #define do_exec                        Perl_do_exec
+#if defined(WIN32)
+#define do_aspawn              Perl_do_aspawn
+#define do_spawn               Perl_do_spawn
+#define do_spawn_nowait                Perl_do_spawn_nowait
+#endif
 #if !defined(WIN32)
 #define do_exec3               Perl_do_exec3
 #endif
@@ -1301,6 +1306,8 @@
 #define pp_die                 Perl_pp_die
 #define pp_divide              Perl_pp_divide
 #define pp_dofile              Perl_pp_dofile
+#define pp_dor                 Perl_pp_dor
+#define pp_dorassign           Perl_pp_dorassign
 #define pp_dump                        Perl_pp_dump
 #define pp_each                        Perl_pp_each
 #define pp_egrent              Perl_pp_egrent
@@ -1700,6 +1707,11 @@
 #define do_close(a,b)          Perl_do_close(aTHX_ a,b)
 #define do_eof(a)              Perl_do_eof(aTHX_ a)
 #define do_exec(a)             Perl_do_exec(aTHX_ a)
+#if defined(WIN32)
+#define do_aspawn(a,b,c)       Perl_do_aspawn(aTHX_ a,b,c)
+#define do_spawn(a)            Perl_do_spawn(aTHX_ a)
+#define do_spawn_nowait(a)     Perl_do_spawn_nowait(aTHX_ a)
+#endif
 #if !defined(WIN32)
 #define do_exec3(a,b,c)                Perl_do_exec3(aTHX_ a,b,c)
 #endif
@@ -2854,6 +2866,8 @@
 #define pp_die()               Perl_pp_die(aTHX)
 #define pp_divide()            Perl_pp_divide(aTHX)
 #define pp_dofile()            Perl_pp_dofile(aTHX)
+#define pp_dor()               Perl_pp_dor(aTHX)
+#define pp_dorassign()         Perl_pp_dorassign(aTHX)
 #define pp_dump()              Perl_pp_dump(aTHX)
 #define pp_each()              Perl_pp_each(aTHX)
 #define pp_egrent()            Perl_pp_egrent(aTHX)