mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* fports.c: HAVE_ST_BLKSIZE changed to

Browse source 
HAVE_STRUCT_STAT_ST_BLKSIZE.
(scm_fport_buffer_add): HAVE_ST_BLKSIZE changed to
HAVE_STRUCT_STAT_ST_BLKSIZE.
This commit is contained in:
Rob Browning 2001-06-02 20:30:20 +00:00
parent b0c16cd922
commit f47a5239d4
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/fports.c
View file

@ -61,7 +61,7 @@
#else
size_t fwrite ();
#endif
#ifdef HAVE_ST_BLKSIZE
#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
#include <sys/stat.h>
#endif
@ -88,7 +88,7 @@ scm_fport_buffer_add (SCM port, long read_size, int write_size)
if (read_size == -1 || write_size == -1)
{
size_t default_size;
#ifdef HAVE_ST_BLKSIZE
#ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
struct stat st;
default_size = (fstat (fp->fdes, &st) == -1) ? default_buffer_size