From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 18 Jun 1987 22:15:11 +0000 (+0000)
Subject: Some changes for pyramids.
X-Git-Tag: 20090517-FFI~13348
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=086e04dbbbd5c20060643cd6c563ff0ce432ad63;p=mit-scheme.git

Some changes for pyramids.
---

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index f80884f0f..056a65bac 100644
--- a/v7/src/microcode/config.h
+++ b/v7/src/microcode/config.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.27 1987/06/18 19:54:55 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.28 1987/06/18 22:12:42 jinx Exp $
  *
  * This file contains the configuration information and the information
  * given on the command line on Unix.
@@ -195,6 +195,7 @@ typedef unsigned long Pointer;
 #define FASL_CELERITY		9
 #define FASL_HP_SPECTRUM	10
 #define FASL_UMAX		11
+#define FALS_PYR		12
 
 /* These (pdp10 and nu) haven't worked in a while.
  * Should be upgraded or flushed some day. 
@@ -418,7 +419,7 @@ longjmp(Exit_Point, NORMAL_EXIT)
 #define HAS_FLOOR
 #define HAS_FREXP
 #endif
-
+
 #ifdef umax
 #define Heap_In_Low_Memory
 #define UNSIGNED_SHIFT
@@ -433,6 +434,20 @@ longjmp(Exit_Point, NORMAL_EXIT)
 #define HAS_FLOOR
 #define HAS_FREXP
 #endif
+
+#ifdef pyr
+#define Heap_In_Low_Memory
+#define UNSIGNED_SHIFT
+#define CHAR_SIZE            8
+#define USHORT_SIZE          16
+#define ULONG_SIZE           32
+#define BELL                 '\007'
+#define FASL_INTERNAL_FORMAT FASL_PYR
+/* Flonum (double) size is 64 bits. */
+#define FLONUM_EXPT_SIZE     11
+#define FLONUM_MANTISSA_BITS 52
+#define MAX_FLONUM_EXPONENT  2047
+#endif
 
 /* Make sure that some definition applies. 
    If this error occurs, and the parameters of the
diff --git a/v7/src/microcode/dmpwrld.c b/v7/src/microcode/dmpwrld.c
index 43040560a..f0cb31043 100644
--- a/v7/src/microcode/dmpwrld.c
+++ b/v7/src/microcode/dmpwrld.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/dmpwrld.c,v 9.24 1987/04/16 02:21:08 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/dmpwrld.c,v 9.25 1987/06/18 22:15:11 jinx Rel $
  *
  * This file contains a primitive to dump an executable version of Scheme.
  * It uses unexec.c from GNU Emacs.
@@ -86,6 +86,12 @@ MIT in each case. */
 #define UNEXEC_AVAILABLE
 #define SEGMENT_MASK		(SEGSIZ - 1)
 #endif
+
+#ifdef pyr
+#define UNEXEC_AVAILABLE
+#define SEGMENT_MASK (2048-1)	/* ZMAGIC format */
+				/* man a.out for info */
+#endif
 
 #ifndef UNEXEC_AVAILABLE
 #include "Error: dumpworld.c only works on a few machines."