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

(scm_init_filesys): Use scm_from_int rather than

Browse source 
scm_from_long for O_RDONLY, O_WRONLY, O_RDWR, O_CREAT, O_EXCL,
O_NOCTTY, O_TRUNC, O_APPEND, O_NONBLOCK, O_NDELAY, O_SYNC and
O_LARGEFILE.  These are all int not long.
This commit is contained in:
Kevin Ryde 2007-01-15 21:49:44 +00:00
parent 7d32cbebbf
commit 43c6dfffaa
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
libguile/filesys.c
View file

@ -1681,40 +1681,40 @@ scm_init_filesys ()
scm_dot_string = scm_permanent_object (scm_from_locale_string ("."));
#ifdef O_RDONLY
scm_c_define ("O_RDONLY", scm_from_long (O_RDONLY));
scm_c_define ("O_RDONLY", scm_from_int (O_RDONLY));
#endif
#ifdef O_WRONLY
scm_c_define ("O_WRONLY", scm_from_long (O_WRONLY));
scm_c_define ("O_WRONLY", scm_from_int (O_WRONLY));
#endif
#ifdef O_RDWR
scm_c_define ("O_RDWR", scm_from_long (O_RDWR));
scm_c_define ("O_RDWR", scm_from_int (O_RDWR));
#endif
#ifdef O_CREAT
scm_c_define ("O_CREAT", scm_from_long (O_CREAT));
scm_c_define ("O_CREAT", scm_from_int (O_CREAT));
#endif
#ifdef O_EXCL
scm_c_define ("O_EXCL", scm_from_long (O_EXCL));
scm_c_define ("O_EXCL", scm_from_int (O_EXCL));
#endif
#ifdef O_NOCTTY
scm_c_define ("O_NOCTTY", scm_from_long (O_NOCTTY));
scm_c_define ("O_NOCTTY", scm_from_int (O_NOCTTY));
#endif
#ifdef O_TRUNC
scm_c_define ("O_TRUNC", scm_from_long (O_TRUNC));
scm_c_define ("O_TRUNC", scm_from_int (O_TRUNC));
#endif
#ifdef O_APPEND
scm_c_define ("O_APPEND", scm_from_long (O_APPEND));
scm_c_define ("O_APPEND", scm_from_int (O_APPEND));
#endif
#ifdef O_NONBLOCK
scm_c_define ("O_NONBLOCK", scm_from_long (O_NONBLOCK));
scm_c_define ("O_NONBLOCK", scm_from_int (O_NONBLOCK));
#endif
#ifdef O_NDELAY
scm_c_define ("O_NDELAY", scm_from_long (O_NDELAY));
scm_c_define ("O_NDELAY", scm_from_int (O_NDELAY));
#endif
#ifdef O_SYNC
scm_c_define ("O_SYNC", scm_from_long (O_SYNC));
scm_c_define ("O_SYNC", scm_from_int (O_SYNC));
#endif
#ifdef O_LARGEFILE
scm_c_define ("O_LARGEFILE", scm_from_long (O_LARGEFILE));
scm_c_define ("O_LARGEFILE", scm_from_int (O_LARGEFILE));
#endif
#ifdef F_DUPFD