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 (".")); scm_dot_string = scm_permanent_object (scm_from_locale_string ("."));
#ifdef O_RDONLY #ifdef O_RDONLY
scm_c_define ("O_RDONLY", scm_from_long (O_RDONLY)); scm_c_define ("O_RDONLY", scm_from_int (O_RDONLY));
#endif #endif
#ifdef O_WRONLY #ifdef O_WRONLY
scm_c_define ("O_WRONLY", scm_from_long (O_WRONLY)); scm_c_define ("O_WRONLY", scm_from_int (O_WRONLY));
#endif #endif
#ifdef O_RDWR #ifdef O_RDWR
scm_c_define ("O_RDWR", scm_from_long (O_RDWR)); scm_c_define ("O_RDWR", scm_from_int (O_RDWR));
#endif #endif
#ifdef O_CREAT #ifdef O_CREAT
scm_c_define ("O_CREAT", scm_from_long (O_CREAT)); scm_c_define ("O_CREAT", scm_from_int (O_CREAT));
#endif #endif
#ifdef O_EXCL #ifdef O_EXCL
scm_c_define ("O_EXCL", scm_from_long (O_EXCL)); scm_c_define ("O_EXCL", scm_from_int (O_EXCL));
#endif #endif
#ifdef O_NOCTTY #ifdef O_NOCTTY
scm_c_define ("O_NOCTTY", scm_from_long (O_NOCTTY)); scm_c_define ("O_NOCTTY", scm_from_int (O_NOCTTY));
#endif #endif
#ifdef O_TRUNC #ifdef O_TRUNC
scm_c_define ("O_TRUNC", scm_from_long (O_TRUNC)); scm_c_define ("O_TRUNC", scm_from_int (O_TRUNC));
#endif #endif
#ifdef O_APPEND #ifdef O_APPEND
scm_c_define ("O_APPEND", scm_from_long (O_APPEND)); scm_c_define ("O_APPEND", scm_from_int (O_APPEND));
#endif #endif
#ifdef O_NONBLOCK #ifdef O_NONBLOCK
scm_c_define ("O_NONBLOCK", scm_from_long (O_NONBLOCK)); scm_c_define ("O_NONBLOCK", scm_from_int (O_NONBLOCK));
#endif #endif
#ifdef O_NDELAY #ifdef O_NDELAY
scm_c_define ("O_NDELAY", scm_from_long (O_NDELAY)); scm_c_define ("O_NDELAY", scm_from_int (O_NDELAY));
#endif #endif
#ifdef O_SYNC #ifdef O_SYNC
scm_c_define ("O_SYNC", scm_from_long (O_SYNC)); scm_c_define ("O_SYNC", scm_from_int (O_SYNC));
#endif #endif
#ifdef O_LARGEFILE #ifdef O_LARGEFILE
scm_c_define ("O_LARGEFILE", scm_from_long (O_LARGEFILE)); scm_c_define ("O_LARGEFILE", scm_from_int (O_LARGEFILE));
#endif #endif
#ifdef F_DUPFD #ifdef F_DUPFD