mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

(scm_open_fdes): Use open64.

Browse source 
(scm_init_filesys): Add O_LARGEFILE.
This commit is contained in:
Kevin Ryde 2006-05-09 00:26:01 +00:00
parent 65581bc84d
commit e6a7795376
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/filesys.c
View file

@ -349,7 +349,7 @@ SCM_DEFINE (scm_open_fdes, "open-fdes", 2, 1, 0,
iflags = SCM_NUM2INT (2, flags);
imode = SCM_NUM2INT_DEF (3, mode, 0666);
STRING_SYSCALL (path, c_path, fd = open (c_path, iflags, imode));
STRING_SYSCALL (path, c_path, fd = open_or_open64 (c_path, iflags, imode));
if (fd == -1)
SCM_SYSERROR;
return scm_from_int (fd);
@ -1707,6 +1707,9 @@ scm_init_filesys ()
#ifdef O_SYNC
scm_c_define ("O_SYNC", scm_from_long (O_SYNC));
#endif
#ifdef O_LARGEFILE
scm_c_define ("O_LARGEFILE", scm_from_long (O_LARGEFILE));
#endif
#ifdef F_DUPFD
scm_c_define ("F_DUPFD", scm_from_long (F_DUPFD));