From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Mar 1992 11:01:14 +0000 (+0000)
Subject: Eliminate mismatched declaration of `ftruncate' for SYSV4.
X-Git-Tag: 20090517-FFI~9553
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b97255441df049bfa2aa371cdc886fe2b7596573;p=mit-scheme.git

Eliminate mismatched declaration of `ftruncate' for SYSV4.
---

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);