Do the right thing for hpux with the ANSI compiler.

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index 70567605d75634f9ff6a46a851de7c33821f3e23..28e1fd26d4eb7bd06a3c01bb24f908a565ba424f 100644 (file)
--- a/v7/src/microcode/bchdmp.c
+++ b/v7/src/microcode/bchdmp.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.61 1992/02/29 19:33:03 mhwu Exp $
+$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 $
 
-Copyright (c) 1987-1992 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -256,8 +256,9 @@ DEFUN (fasdump_exit, (length), long length)
 
 #if TRUE
   {
+#if !(defined(_HPUX) && (_HPUX_VERSION >= 80))
     extern int EXFUN (ftruncate, (int, unsigned long));
-
+#endif
     ftruncate (dump_file, length);
     result = ((close (dump_file)) == 0);
   }

diff --git a/v7/src/microcode/bchmmg.c b/v7/src/microcode/bchmmg.c
index cdc3c27804efa81759f55fa3d266fad39dda8e04..db595663d78a66efcbbe5e2589df7c8147a1e8d8 100644 (file)
--- a/v7/src/microcode/bchmmg.c
+++ b/v7/src/microcode/bchmmg.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.71 1992/03/16 16:51:21 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.72 1992/03/26 04:14:35 cph Exp $
 
-Copyright (c) 1987-1992 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -494,7 +494,7 @@ static long default_sleep_period = 20 MILLISEC;
 #define GET_SLEEP_DELTA()      default_sleep_period
 #define SET_SLEEP_DELTA(value) default_sleep_period = (value)
 
-extern int EXFUN (select, (int, int *, int *, int *, struct timeval *));
+extern int EXFUN (select, (int, int *, int *, int *, const struct timeval *));
 
 static void
 DEFUN (sleep_awaiting_drones, (microsec, mask),
@@ -1916,7 +1916,7 @@ DEFUN (open_gc_file, (size, unlink_p),
 #ifdef HAVE_PREALLOC
   if (!exists_p)
   {
-    extern int EXFUN (prealloc, (int, unsigned int));
+    extern int EXFUN (prealloc, (int, off_t));
 
     (void) (prealloc (gc_file, ((unsigned int) gc_file_end_position)));
   }
@@ -3254,5 +3254,5 @@ DEFINE_PRIMITIVE ("BCHSCHEME-PARAMETERS-SET!", Prim_bchscheme_set_params, 1, 1,
     }
     /*NOTREACHED*/
   }
-#endif (CAN_RECONFIGURE_GC_BUFFERS == 0)
+#endif /* (CAN_RECONFIGURE_GC_BUFFERS == 0) */
 }