* libI77/endfile.c (t_runc): Add cast to help case where

[pf3gnuchains/gcc-fork.git] / libf2c / libI77 / endfile.c

diff --git a/libf2c/libI77/endfile.c b/libf2c/libI77/endfile.c
index 8e60d05..7b009c7 100644 (file)
--- a/libf2c/libI77/endfile.c
+++ b/libf2c/libI77/endfile.c
@@ -129,7 +129,10 @@ done:
        f__cf = b->ufd = bf;
 #else  /* !defined(HAVE_FTRUNCATE) */
        fflush(b->ufd);
-       rc = ftruncate(fileno(b->ufd),loc);
+       /* The cast of loc is helpful on FreeBSD.  It helps
+       in any case where ftruncate() prototype is somehow missing
+       even though autoconf test found it properly.  */
+       rc = ftruncate(fileno(b->ufd), (off_t)loc);
 #endif /* !defined(HAVE_FTRUNCATE) */
        if (rc)
                err(a->aerr,111,"endfile");