From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 8 Jun 1993 04:09:38 +0000 (+0000)
Subject: Linux changes.
X-Git-Tag: 20090517-FFI~8358
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b1483a3181aaaefab81b1079c5de8535a64da6df;p=mit-scheme.git

Linux changes.
---

diff --git a/v7/src/microcode/unxutl/ymkfile b/v7/src/microcode/unxutl/ymkfile
index a200c2ca1..756ffc631 100644
--- a/v7/src/microcode/unxutl/ymkfile
+++ b/v7/src/microcode/unxutl/ymkfile
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ymkfile,v 1.64 1993/03/17 01:53:18 gjr Exp $
+$Id: ymkfile,v 1.65 1993/06/08 04:09:38 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -551,11 +551,11 @@ Findprim : Findprim.o
 
 Bintopsb : Bintopsb.o missing.o
 	@ECHO "#** Re-linking" $@ because of $?
-	$(CC) $(LDFLAGS) -o $@ Bintopsb.o missing.o
+	$(CC) $(LDFLAGS) -o $@ Bintopsb.o missing.o LIB_MATH
 
 Psbtobin : Psbtobin.o missing.o
 	@ECHO "#** Re-linking" $@ because of $?
-	$(CC) $(LDFLAGS) -o $@ Psbtobin.o missing.o
+	$(CC) $(LDFLAGS) -o $@ Psbtobin.o missing.o LIB_MATH
 
 Breakup : Breakup.o
 	@ECHO "#** Re-linking" $@ because of $?
diff --git a/v7/src/microcode/ux.h b/v7/src/microcode/ux.h
index 789139240..88f1d6730 100644
--- a/v7/src/microcode/ux.h
+++ b/v7/src/microcode/ux.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ux.h,v 1.44 1993/02/21 01:09:48 gjr Exp $
+$Id: ux.h,v 1.45 1993/06/08 04:08:26 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -380,6 +380,18 @@ extern void EXFUN (error_system_call, (int code, enum syscall_names name));
 #define HAVE_UNIX_SOCKETS
 #define HAVE_VFORK
 
+#ifdef __linux
+#include <sys/time.h>
+#define SYSTEM_VARIANT "Linux"
+#undef HAVE_SIGCONTEXT
+/* Hacks to put handlers for non-existent signals on SIGSEGV.
+   (Scheme handles SIGSEGV, SIGBUS, SIGEMT, and SIGSYS the same way anyway:
+    defsignal (SIGSEGV, "SIGSEGV",	dfl_terminate,	CORE_DUMP); */
+#define SIGBUS SIGSEGV
+#define SIGEMT SIGSEGV
+#define SIGSYS SIGSEGV
+#endif
+
 #ifdef _ULTRIX
 #define SYSTEM_VARIANT "Ultrix"
 #endif
@@ -791,12 +803,16 @@ extern PTR EXFUN (malloc, (unsigned int size));
 extern PTR EXFUN (realloc, (PTR ptr, unsigned int size));
 extern char * EXFUN (getenv, (CONST char * name));
 
-#ifndef _HPUX
+#ifndef __linux
+/* <unistd.h> in linux libc 2.3.3 has
+   extern int gethostname (char *__name, size_t __len); */
+# ifndef _HPUX
 /* <unistd.h> in HP-UX has mis-matching prototype 
    The following is as specified by OSF/1 Programmer's reference.
  */
 extern int EXFUN (gethostname, (char * name, int size));
-#endif /* _HPUX */
+# endif /* _HPUX */
+#endif /* linux */
 
 #ifdef HAVE_FCNTL
 #define UX_fcntl fcntl