From d2c4367503a4f48ce2590100ccc7278e46d333b4 Mon Sep 17 00:00:00 2001
From: "Loren J. Rittle" <ljrittle@acm.org>
Date: Tue, 15 May 2001 21:24:41 +0000
Subject: [PATCH] endfile.c (t_runc): Add cast to help case where ftruncate()
 prototype is somehow missing even...

	* libI77/endfile.c (t_runc): Add cast to help case where
	ftruncate() prototype is somehow missing even though autoconf
	test found it properly.

From-SVN: r42120
---
 libf2c/ChangeLog        | 6 ++++++
 libf2c/libI77/endfile.c | 5 ++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 5206fa8b7c12..c53502302592 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+2001-05-15  Loren J. Rittle  <ljrittle@acm.org>
+
+	* libI77/endfile.c (t_runc): Add cast to help case where
+	ftruncate() prototype is somehow missing even though autoconf
+	test found it properly.
+
 2001-02-26  Toon Moene  <toon@moene.indiv.nluug.nl>
 
 	* libI77/configure.in: Test for ftruncate.
diff --git a/libf2c/libI77/endfile.c b/libf2c/libI77/endfile.c
index 8e60d05f439a..7b009c7013d4 100644
--- 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");