Some changes for pyramids.

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index f80884f0fb81b34da9fb377fcd012ca1ebdc37d9..056a65bac764367e96e1f0d53de47734ba6299da 100644 (file)
--- 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
 \f
 /* 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
-
+\f
 #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
 \f
 /* 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 43040560a737e521c7a2ecdcd7b78d67c5de1bfb..f0cb3104325c4731c5b4756b606a85ed4117d19a 100644 (file)
--- 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
 \f
 #ifndef UNEXEC_AVAILABLE
 #include "Error: dumpworld.c only works on a few machines."