diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-26 17:03:03 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 06:22:15 +0000 |
| commit | aab1f907125f90712decb35f2a57d7c7c35d30a2 (patch) | |
| tree | b74db24075b25ca267853b404b0b314aebf32b12 /os2/os2ish.h | |
| parent | 8b73bbec3102cdf25a35c954eb1aab85acc07808 (diff) | |
| download | perl-aab1f907125f90712decb35f2a57d7c7c35d30a2.tar.gz | |
mark link type of exported functions for OS/2
Message-Id: <199807270103.VAA04977@monk.mps.ohio-state.edu>
Subject: Re: Compiler linkage's types [PATCH 5.005]
p4raw-id: //depot/maint-5.005/perl@1702
Diffstat (limited to 'os2/os2ish.h')
| -rw-r--r-- | os2/os2ish.h | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/os2/os2ish.h b/os2/os2ish.h index c02202abce..586f75b0e6 100644 --- a/os2/os2ish.h +++ b/os2/os2ish.h @@ -169,11 +169,16 @@ void Perl_OS2_init(char **); /* XXX This code hideously puts env inside: */ -#define PERL_SYS_INIT(argcp, argvp) STMT_START { \ +#ifdef __EMX__ +# define PERL_SYS_INIT(argcp, argvp) STMT_START { \ _response(argcp, argvp); \ _wildcard(argcp, argvp); \ Perl_OS2_init(env); } STMT_END - +#else /* Compiling embedded Perl with non-EMX compiler */ +# define PERL_SYS_INIT(argcp, argvp) STMT_START { \ + Perl_OS2_init(env); } STMT_END +# define PERL_CALLCONV _System +#endif #define PERL_SYS_TERM() MALLOC_TERM /* #define PERL_SYS_TERM() STMT_START { \ |