From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 24 Aug 1991 02:27:52 +0000 (+0000)
Subject: Changes for apollo.
X-Git-Tag: 20090517-FFI~10310
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2cae2380654447a7c27213d7a152222cc82416d1;p=mit-scheme.git

Changes for apollo.
---

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index 8cf047951..7131c4be0 100644
--- a/v7/src/microcode/config.h
+++ b/v7/src/microcode/config.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.62 1991/08/24 02:15:56 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.63 1991/08/24 02:27:52 cph Exp $
 
 Copyright (c) 1987-91 Massachusetts Institute of Technology
 
@@ -499,8 +499,13 @@ typedef unsigned long SCHEME_OBJECT;
 #endif /* alliant */
 
 #ifdef apollo
+#if _ISP__M68K
 #define MACHINE_TYPE          "Apollo 68k"
 #define FASL_INTERNAL_FORMAT  FASL_APOLLO_68K
+#else
+#define MACHINE_TYPE          "Apollo Prism"
+#define FASL_INTERNAL_FORMAT  FASL_APOLLO_PRISM
+#endif
 #define b32
 #define HEAP_IN_LOW_MEMORY
 #define HAS_FLOOR
diff --git a/v7/src/microcode/ux.h b/v7/src/microcode/ux.h
index 6f58a9afd..3b422e722 100644
--- a/v7/src/microcode/ux.h
+++ b/v7/src/microcode/ux.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ux.h,v 1.24 1991/08/12 22:16:02 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ux.h,v 1.25 1991/08/24 02:27:37 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -327,6 +327,11 @@ extern void EXFUN (error_system_call, (int code, enum syscall_names name));
 #define SYSTEM_VARIANT "NeXT"
 #endif
 
+#ifdef apollo
+#define SYSTEM_VARIANT "Domain"
+#undef S_IFIFO
+#endif
+
 #ifdef _SUNOS
 
 #define SYSTEM_VARIANT "SunOS"