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

[perl5.git] / os2 / os2ish.h

diff --git a/os2/os2ish.h b/os2/os2ish.h
index a4b972f..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()