import Pod-Simple 3.14 for C<< >> fix

[perl5.git] / os2 / os2ish.h

diff --git a/os2/os2ish.h b/os2/os2ish.h
index b27a631..a1072a3 100644 (file)
--- a/os2/os2ish.h
+++ b/os2/os2ish.h
@@ -223,7 +223,7 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
 /* These ones should be in the same block as PERL_SYS_TERM() */
 #ifdef PERL_CORE
 
-#  define PERL_SYS_INIT3(argcp, argvp, envp)   \
+#  define PERL_SYS_INIT3_BODY(argcp, argvp, envp)      \
   { void *xreg[2];                             \
     MALLOC_CHECK_TAINT(*argcp, *argvp, *envp)  \
     _response(argcp, argvp);                   \
@@ -231,7 +231,7 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
     Perl_OS2_init3(*envp, xreg, 0);            \
     PERLIO_INIT
 
-#  define PERL_SYS_INIT(argcp, argvp)  {       \
+#  define PERL_SYS_INIT_BODY(argcp, argvp)  {  \
   { void *xreg[2];                             \
     _response(argcp, argvp);                   \
     _wildcard(argcp, argvp);                   \
@@ -240,11 +240,11 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
 
 #else  /* Compiling embedded Perl or Perl extension */
 
-#  define PERL_SYS_INIT3(argcp, argvp, envp)   \
+#  define PERL_SYS_INIT3_BODY(argcp, argvp, envp)      \
   { void *xreg[2];                             \
     Perl_OS2_init3(*envp, xreg, 0);            \
     PERLIO_INIT
-#  define PERL_SYS_INIT(argcp, argvp)  {       \
+#  define PERL_SYS_INIT_BODY(argcp, argvp)     {       \
   { void *xreg[2];                             \
     Perl_OS2_init3(NULL, xreg, 0);             \
     PERLIO_INIT
@@ -262,8 +262,8 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
 #define PERL_SYS_TERM1(xreg)                                           \
      Perl_OS2_term(xreg, 0, FORCE_EMX_DEINIT_RUN_ATEXIT)
 
-/* This one should come in pair with PERL_SYS_INIT() and in the same block */
-#define PERL_SYS_TERM()                                                        \
+/* This one should come in pair with PERL_SYS_INIT_BODY() and in the same block */
+#define PERL_SYS_TERM_BODY()                                                   \
      PERL_SYS_TERM1(xreg);                                             \
   }
 
@@ -271,7 +271,7 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags);
 #  define PERL_CALLCONV _System
 #endif
 
-/* #define PERL_SYS_TERM() STMT_START {        \
+/* #define PERL_SYS_TERM_BODY() STMT_START {   \
     if (Perl_HAB_set) WinTerminate(Perl_hab);  } STMT_END */
 
 #define dXSUB_SYS OS2_XS_init()
@@ -312,7 +312,10 @@ void *sys_alloc(int size);
 #define TMPPATH1 "plXXXXXX"
 extern const char *tmppath;
 PerlIO *my_syspopen(pTHX_ char *cmd, char *mode);
-/* Cannot prototype with I32 at this point. */
+#ifdef PERL_CORE
+/* Cannot prototype with I32, SV at this point (used in x2p too). */
+PerlIO *my_syspopen4(pTHX_ char *cmd, char *mode, I32 cnt, SV** args);
+#endif
 int my_syspclose(PerlIO *f);
 FILE *my_tmpfile (void);
 char *my_tmpnam (char *);