diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-09-25 18:00:32 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-09-25 18:00:32 +0000 |
| commit | cbec8ebe2f7855c619451e56c6921e1537d3eba5 (patch) | |
| tree | b15c2a3f29a517dce5b080fa94e0beef050444dc /os2 | |
| parent | 6f8d0260355f8c4ae7955768122638ad99f0ebab (diff) | |
| download | perl-cbec8ebe2f7855c619451e56c6921e1537d3eba5.tar.gz | |
make PERL_SYS_INIT/INIT3/TERM into functions
p4raw-id: //depot/perl@31970
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/os2ish.h | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/os2/os2ish.h b/os2/os2ish.h index a4b972ff02..a1072a3da6 100644 --- 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() |