mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Open files in binary mode.

Browse source
This commit is contained in:
jjgarcia 2001-09-29 11:03:19 +00:00
parent 2c35fb9a2c
commit 5ce60ad0d5
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/h/machines.h
View file

@ -35,7 +35,7 @@
# define FILE_CNT(fp) (fp)->_cnt
#endif
#ifdef MSDOS
#if defined(MSDOS) || defined(cygwin)
# define IS_DIR_SEPARATOR(x) ((x=='/')||(x=='\\'))
# define DIR_SEPARATOR '\\'
# define PATH_SEPARATOR ';'
@ -44,6 +44,7 @@
# define OPEN_RW "w+b"
# define OPEN_A "ab"
# define OPEN_RA "a+b"
# define CRLF
#else
# define IS_DIR_SEPARATOR(x) (x=='/')
# define DIR_SEPARATOR '/'
@ -55,9 +56,6 @@
# define OPEN_RA "a+"
#endif MSDOS
#ifdef MSDOS
# define CRLF
#endif MSDOS
/***********************************************************************