From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Mar 1992 04:21:11 +0000 (+0000)
Subject: Do the right thing for hpux with the ANSI compiler.
X-Git-Tag: 20090517-FFI~9556
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=921e23fc0e118d8c3653022cced1202dd908cf26;p=mit-scheme.git

Do the right thing for hpux with the ANSI compiler.
---

diff --git a/v7/src/microcode/bchdrn.c b/v7/src/microcode/bchdrn.c
index 3858092ad..fc3f9e3c2 100644
--- a/v7/src/microcode/bchdrn.c
+++ b/v7/src/microcode/bchdrn.c
@@ -1,8 +1,8 @@
 /* -*- C -*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdrn.c,v 1.3 1992/02/10 13:53:03 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdrn.c,v 1.4 1992/03/26 04:21:11 cph Exp $
 
-Copyright (c) 1991-1992 Massachusetts Institute of Technology
+Copyright (c) 1991-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -169,7 +169,9 @@ DEFUN (always_one, (operation_name, noise),
 static void
 DEFUN (process_requests, (drone), struct drone_info * drone)
 {
+#if !(defined(_HPUX) && (_HPUX_VERSION >= 80))
   extern int EXFUN (select, (int, int *, int *, int *, struct timeval *));
+#endif
   sigset_t non_blocking_signal_mask, blocking_signal_mask;
   int result, count, buffer_index, flags;
   long current_position = -1;
diff --git a/v7/src/microcode/bchmmg.c b/v7/src/microcode/bchmmg.c
index db595663d..e48d3473f 100644
--- a/v7/src/microcode/bchmmg.c
+++ b/v7/src/microcode/bchmmg.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$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 $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.73 1992/03/26 04:17:53 cph Exp $
 
 Copyright (c) 1987-92 Massachusetts Institute of Technology
 
@@ -494,7 +494,9 @@ 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 *, const struct timeval *));
+#if !(defined(_HPUX) && (_HPUX_VERSION >= 80))
+extern int EXFUN (select, (int, int *, int *, int *, struct timeval *));
+#endif
 
 static void
 DEFUN (sleep_awaiting_drones, (microsec, mask),