From 417fa52eab6ccde06f7c67e12d238195ed180762 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Mon, 22 Jan 1990 22:22:14 +0000
Subject: [PATCH] Bump the constant space and compiled constant space sizes for
 the spectrum.  Compiled binaries are 50% larger than on bobcats.

---
 v7/src/microcode/config.h | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index 49fc669fb..1c7e08820 100644
--- a/v7/src/microcode/config.h
+++ b/v7/src/microcode/config.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.51 1989/11/30 03:03:46 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.52 1990/01/22 22:22:14 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -488,6 +488,18 @@ longjmp(Exit_Point, NORMAL_EXIT)
 #define ADDRESS_TO_DATUM(address)					\
 ((SCHEME_OBJECT) (((unsigned long) (address)) & (~(HPPA_QUAD_BIT))))
 
+/* HPPA compiled binaries are large! */
+
+#ifdef HAS_COMPILER_SUPPORT
+#ifndef CONSTANT_SIZE
+#define CONSTANT_SIZE		600	/* Default Kcells for constant */
+#endif
+#endif
+
+#ifndef COMPILER_CONSTANT_SIZE
+#define COMPILER_CONSTANT_SIZE	1300
+#endif
+
 #endif /* spectrum */
 
 #ifdef umax
-- 
2.25.1