X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=unixish.h;h=a7e00d2d23ea0e6447a838123a673c17936f6c68;hb=396e383874c849ebbe1b4f03937ba654b9bfb11c;hp=7b8ef164c01bda29dee66511531acd1e1bd146ef;hpb=4b19af017623bfa3bb72bb164598a517f586e0d3;p=p5sagit%2Fp5-mst-13.2.git diff --git a/unixish.h b/unixish.h index 7b8ef16..a7e00d2 100644 --- a/unixish.h +++ b/unixish.h @@ -93,7 +93,7 @@ */ /* #define ALTERNATE_SHEBANG "#!" / **/ -#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX) || defined(__NetBSD__) +#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX) || defined(__NetBSD__) || defined(__FreeBSD__) # include #endif @@ -118,24 +118,8 @@ #define Fflush(fp) fflush(fp) #define Mkdir(path,mode) mkdir((path),(mode)) -/* these should be set in a hint file, not here */ #ifndef PERL_SYS_INIT -#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 -# endif -#endif +# define PERL_SYS_INIT(c,v) PERL_FPU_INIT MALLOC_INIT #endif #ifndef PERL_SYS_TERM @@ -145,3 +129,6 @@ #define BIT_BUCKET "/dev/null" #define dXSUB_SYS + +#define USE_ENVIRON_ARRAY +