From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 27 Oct 1993 22:19:14 +0000 (+0000)
Subject: Conditionalize for SunOS 4.1.?
X-Git-Tag: 20090517-FFI~7667
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=470cb1e70e7dc2017fb50cf1f86f43833863ec5d;p=mit-scheme.git

Conditionalize for SunOS 4.1.?
---

diff --git a/v7/src/microcode/ux.c b/v7/src/microcode/ux.c
index 3d1892013..32f6e0455 100644
--- a/v7/src/microcode/ux.c
+++ b/v7/src/microcode/ux.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ux.c,v 1.11 1993/02/18 05:15:19 gjr Exp $
+$Id: ux.c,v 1.12 1993/10/27 22:16:43 gjr Exp $
 
 Copyright (c) 1990-1993 Massachusetts Institute of Technology
 
@@ -415,7 +415,7 @@ DEFUN_VOID (UX_SC_CLK_TCK)
 
 #endif /* _POSIX */
 
-#ifndef _POSIX
+#ifndef HAVE_SIGSET_OPS
 
 int
 DEFUN (UX_sigemptyset, (set), sigset_t * set)
diff --git a/v7/src/microcode/ux.h b/v7/src/microcode/ux.h
index f56fb6b11..2a6571564 100644
--- a/v7/src/microcode/ux.h
+++ b/v7/src/microcode/ux.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ux.h,v 1.52 1993/09/09 18:19:58 gjr Exp $
+$Id: ux.h,v 1.53 1993/10/27 22:17:55 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -59,7 +59,7 @@ extern int errno;
 
 /* These seem to be missing from versions of unistd.h */
 
-#if !(defined(_HPUX) || defined(sonyrisc))
+#if !(defined(_HPUX) || defined(sonyrisc) || defined(_SUNOS4))
 /* As specified by OSF/1 Programmer's reference: */
 extern int EXFUN (ioctl, (int, unsigned long, ...));
 #endif
@@ -999,6 +999,8 @@ extern int EXFUN (UX_sigsuspend, (CONST sigset_t * set));
 
 #ifdef _POSIX
 
+#define HAVE_SIGSET_OPS
+
 #ifdef EMULATE_FPATHCONF
 
 /* These values match HP-UX, and the index in the table in the 
@@ -1047,6 +1049,10 @@ extern clock_t EXFUN (UX_SC_CLK_TCK, (void));
 
 #else /* not _POSIX */
 
+#ifdef _SUNOS4
+#define HAVE_SIGSET_OPS
+#endif
+
 #define UX_PC_VDISABLE(fildes) '\377'
 
 #ifdef OPEN_MAX
diff --git a/v7/src/microcode/uxio.c b/v7/src/microcode/uxio.c
index 5da3afdfb..77b386fbb 100644
--- a/v7/src/microcode/uxio.c
+++ b/v7/src/microcode/uxio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxio.c,v 1.31 1993/09/09 23:03:19 cph Exp $
+$Id: uxio.c,v 1.32 1993/10/27 22:18:36 gjr Exp $
 
 Copyright (c) 1990-1993 Massachusetts Institute of Technology
 
@@ -368,7 +368,7 @@ DEFUN (OS_channel_blocking, (channel), Tchannel channel)
 
 /* select(2) system call */
 
-#if defined(_HPUX) && (_HPUX_VERSION >= 80)
+#if (defined(_HPUX) && (_HPUX_VERSION >= 80)) || defined(_SUNOS4)
 #define SELECT_DECLARED
 #endif
 
diff --git a/v7/src/microcode/uxsock.c b/v7/src/microcode/uxsock.c
index 705937244..16ff18af4 100644
--- a/v7/src/microcode/uxsock.c
+++ b/v7/src/microcode/uxsock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxsock.c,v 1.12 1993/09/09 18:21:59 gjr Exp $
+$Id: uxsock.c,v 1.13 1993/10/27 22:19:14 gjr Exp $
 
 Copyright (c) 1990-1993 Massachusetts Institute of Technology
 
@@ -48,7 +48,9 @@ MIT in each case. */
 #include "prims.h"
 #include "limits.h"
 
+#ifndef _SUNOS4
 extern struct servent * EXFUN (getservbyname, (CONST char *, CONST char *));
+#endif
 extern struct hostent * EXFUN (gethostbyname, (CONST char *));
 
 Tchannel