From e6a7795376be1cecc13b0733b9b3f5e749293998 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Tue, 9 May 2006 00:26:01 +0000 Subject: [PATCH] (scm_open_fdes): Use open64. (scm_init_filesys): Add O_LARGEFILE. --- libguile/filesys.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/libguile/filesys.c b/libguile/filesys.c index 14078ef45..2c05741ca 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -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));