X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dosish.h;h=6828bafe06e5454edce0cff9ac1b915e5da2a68d;hb=6dfd2d0514085d4203b8b22a3be051e3dd47f61f;hp=c9335971e4754b14e88abd345cf886ee90658d0b;hpb=004283b80f6094bb85aba6f48a74e3c5c34ea24f;p=p5sagit%2Fp5-mst-13.2.git diff --git a/dosish.h b/dosish.h index c933597..6828baf 100644 --- a/dosish.h +++ b/dosish.h @@ -1,12 +1,12 @@ /* dosish.h * - * Copyright (c) 1997-2002, Larry Wall + * Copyright (C) 1993, 1994, 1996, 1997, 1998, 1999, + * 2000, 2001, 2002, by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. * */ - #define ABORT() abort(); #ifndef SH_PATH @@ -26,13 +26,11 @@ # if (DJGPP==2 && DJGPP_MINOR < 2) # define NO_LOCALECONV_MON_THOUSANDS_SEP # endif -# ifdef USE_5005THREADS -# define OLD_PTHREADS_API -# endif # define PERL_FS_VER_FMT "%d_%d_%d" #else /* DJGPP */ # ifdef WIN32 # define PERL_SYS_INIT(c,v) Perl_win32_init(c,v) +# define PERL_SYS_TERM() Perl_win32_term() # define BIT_BUCKET "nul" # else # ifdef NETWARE @@ -45,7 +43,9 @@ # endif #endif /* DJGPP */ -#define PERL_SYS_TERM() OP_REFCNT_TERM; MALLOC_TERM +#ifndef PERL_SYS_TERM +# define PERL_SYS_TERM() OP_REFCNT_TERM; MALLOC_TERM +#endif #define dXSUB_SYS /* @@ -79,7 +79,15 @@ * to include and to get any typedef'ed * information. */ +#if defined(WIN64) || defined(USE_LARGE_FILES) +#define Stat_t struct _stati64 +#else +#if defined(UNDER_CE) +#define Stat_t struct xcestat +#else #define Stat_t struct stat +#endif +#endif /* USE_STAT_RDEV: * This symbol is defined if this system has a stat structure declaring