X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dosish.h;h=08b48fa0fe803730c9973db087f118469b44ffa3;hb=ed2b665b363546c550b4ce5b4fbb4a51c6943556;hp=589bd56cf8d7c8fba92f7f33feb23288ff2cd64b;hpb=0d85d8777a6ec9fdcc93593180474ebff6fbbccb;p=p5sagit%2Fp5-mst-13.2.git diff --git a/dosish.h b/dosish.h index 589bd56..08b48fa 100644 --- a/dosish.h +++ b/dosish.h @@ -8,6 +8,7 @@ # define BIT_BUCKET "nul" # define OP_BINARY O_BINARY # define PERL_SYS_INIT(c,v) Perl_DJGPP_init(c,v) +# define init_os_extras Perl_init_os_extras # include # define HAS_UTIME # define HAS_KILL @@ -18,6 +19,7 @@ # ifdef USE_THREADS # 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) @@ -28,9 +30,8 @@ # endif #endif /* DJGPP */ -#define PERL_SYS_TERM() MALLOC_TERM +#define PERL_SYS_TERM() OP_REFCNT_TERM; MALLOC_TERM #define dXSUB_SYS -#define TMPPATH "plXXXXXX" /* * 5.003_07 and earlier keyed on #ifdef MSDOS for determining if we were @@ -51,7 +52,7 @@ /* USEMYBINMODE * This symbol, if defined, indicates that the program should - * use the routine my_binmode(FILE *fp, char iotype) to insure + * use the routine my_binmode(FILE *fp, char iotype, int mode) to insure * that a file is in "binary" mode -- that is, that no translation * of bytes occurs on read or write operations. */ @@ -110,13 +111,4 @@ # define HAS_KILL # define HAS_WAIT # define HAS_CHOWN -/* - * This provides a layer of functions and macros to ensure extensions will - * get to use the same RTL functions as the core. - */ -# ifndef HASATTRIBUTE -# ifndef PERL_OBJECT -# include -# endif -# endif #endif /* WIN32 */