X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=unixish.h;h=f6923b7f66b0df60103ca866e6754eb8e759427d;hb=a062834f6b91f994c046043f1bbf3218aea18281;hp=492b24a401a27d8120e00781e1d41edbe44bc064;hpb=1761cee512762c09b2a848d3c6cbd5a3b4232ffa;p=p5sagit%2Fp5-mst-13.2.git diff --git a/unixish.h b/unixish.h index 492b24a..f6923b7 100644 --- a/unixish.h +++ b/unixish.h @@ -5,6 +5,8 @@ * here. */ +#ifndef PERL_MICRO + /* HAS_IOCTL: * This symbol, if defined, indicates that the ioctl() routine is * available to set I/O characteristics @@ -33,6 +35,8 @@ #define HAS_KILL #define HAS_WAIT + +#endif /* !PERL_MICRO */ /* USEMYBINMODE * This symbol, if defined, indicates that the program should @@ -116,25 +120,27 @@ /* these should be set in a hint file, not here */ #ifndef PERL_SYS_INIT -#ifdef PERL_SCO5 +#if defined(PERL_SCO5) || defined(__FreeBSD__) +# ifdef __FreeBSD__ +# include +# endif # define PERL_SYS_INIT(c,v) fpsetmask(0); MALLOC_INIT #else # ifdef POSIX_BC # define PERL_SYS_INIT(c,v) sigignore(SIGFPE); MALLOC_INIT # else -# ifdef __CYGWIN__ -# define PERL_SYS_INIT(c,v) Perl_my_setenv_init(&environ); MALLOC_INIT -# else -# define PERL_SYS_INIT(c,v) MALLOC_INIT -# endif +# define PERL_SYS_INIT(c,v) MALLOC_INIT # endif #endif #endif #ifndef PERL_SYS_TERM -#define PERL_SYS_TERM() MALLOC_TERM +#define PERL_SYS_TERM() OP_REFCNT_TERM; MALLOC_TERM #endif #define BIT_BUCKET "/dev/null" #define dXSUB_SYS + +#define USE_ENVIRON_ARRAY +