mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 06:50:21 +02:00
Code Activity

(scm_to_off_t, scm_from_off_t): No error if unknown off_t

Browse source 
size, to help the guile-readline build where off_t is unused.
This commit is contained in:
Kevin Ryde 2006-04-17 01:22:27 +00:00
parent 51c28a2047
commit 5c7ff8d92a
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/_scm.h
View file

@ -145,6 +145,7 @@
#define dirent_or_dirent64 CHOOSE_LARGEFILE(dirent,dirent64) #define dirent_or_dirent64 CHOOSE_LARGEFILE(dirent,dirent64)
#define fstat_or_fstat64 CHOOSE_LARGEFILE(fstat,fstat64) #define fstat_or_fstat64 CHOOSE_LARGEFILE(fstat,fstat64)
#define ftruncate_or_ftruncate64 CHOOSE_LARGEFILE(ftruncate,ftruncate64) #define ftruncate_or_ftruncate64 CHOOSE_LARGEFILE(ftruncate,ftruncate64)
#define lseek_or_lseek64 CHOOSE_LARGEFILE(lseek,lseek64)
#define lstat_or_lstat64 CHOOSE_LARGEFILE(lstat,lstat64) #define lstat_or_lstat64 CHOOSE_LARGEFILE(lstat,lstat64)
#define off_t_or_off64_t CHOOSE_LARGEFILE(off_t,off64_t) #define off_t_or_off64_t CHOOSE_LARGEFILE(off_t,off64_t)
#define open_or_open64 CHOOSE_LARGEFILE(open,open64) #define open_or_open64 CHOOSE_LARGEFILE(open,open64)
@ -160,13 +161,10 @@
#if SIZEOF_OFF_T == 4 #if SIZEOF_OFF_T == 4
#define scm_to_off_t scm_to_int32 #define scm_to_off_t scm_to_int32
#define scm_from_off_t scm_from_int32 #define scm_from_off_t scm_from_int32
#else #endif
#if SIZEOF_OFF_T == 8 #if SIZEOF_OFF_T == 8
#define scm_to_off_t scm_to_int64 #define scm_to_off_t scm_to_int64
#define scm_from_off_t scm_from_int64 #define scm_from_off_t scm_from_int64
#else
#error sizeof(off_t) is not 4 or 8.
#endif
#endif #endif