From b97255441df049bfa2aa371cdc886fe2b7596573 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Mar 1992 11:01:14 +0000
Subject: [PATCH] Eliminate mismatched declaration of `ftruncate' for SYSV4.

---
 v7/src/microcode/bchdmp.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index 28e1fd26d..9fa40fde0 100644
--- a/v7/src/microcode/bchdmp.c
+++ b/v7/src/microcode/bchdmp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.62 1992/03/26 04:11:47 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.63 1992/03/26 11:01:14 cph Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -245,6 +245,10 @@ do {									\
   STORE_CLOSURE_ENTRY_ADDRESS (Temp, Scan);				\
 }
 
+#if (defined(_HPUX) && (_HPUX_VERSION >= 80)) || defined(_SYSV4)
+#define FTRUNCATE_DECLARED
+#endif
+
 Boolean
 DEFUN (fasdump_exit, (length), long length)
 {
@@ -256,7 +260,7 @@ DEFUN (fasdump_exit, (length), long length)
 
 #if TRUE
   {
-#if !(defined(_HPUX) && (_HPUX_VERSION >= 80))
+#ifndef FTRUNCATE_DECLARED
     extern int EXFUN (ftruncate, (int, unsigned long));
 #endif
     ftruncate (dump_file, length);
-- 
2.25.1