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

(truncate): Conditionalize on "HAVE_FTRUNCATE && ! HAVE_TRUNCATE" so

Browse source 
as not to hard-code mingw.
This commit is contained in:
Kevin Ryde 2006-09-28 01:05:55 +00:00
parent 3527bdc71b
commit f3dbe1aff3
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ports.c
View file

@ -1422,8 +1422,9 @@ SCM_DEFINE (scm_seek, "seek", 3, 0, 0,
}
#undef FUNC_NAME
#ifdef __MINGW32__
/* Define this function since it is not supported under Windows. */
/* Mingw has ftruncate(), perhaps implemented above using chsize, but
doesn't have the filename version truncate(), hence this code. */
#if HAVE_FTRUNCATE && ! HAVE_TRUNCATE
static int truncate (char *file, int length)
{
int ret = -1, fdes;
@ -1434,7 +1435,7 @@ static int truncate (char *file, int length)
}
return ret;
}
#endif /* __MINGW32__ */
#endif /* HAVE_FTRUNCATE && ! HAVE_TRUNCATE */
SCM_DEFINE (scm_truncate_file, "truncate-file", 1, 1, 0,
(SCM object, SCM length),