From d0f77a5b6d7a17375602ea2aa5f899a14b68bbed Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 28 Apr 2004 04:29:37 +0000
Subject: [PATCH] Increase static and read-only space to the maximum of 256 MB.
  (We already had space for this but were only allocating 128 MB.  If we want
 more, we'll have to move things around.)

---
 lisp/sparc-validate.h | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lisp/sparc-validate.h b/lisp/sparc-validate.h
index 5330c69e1..d2e2f6cba 100644
--- a/lisp/sparc-validate.h
+++ b/lisp/sparc-validate.h
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-validate.h,v 1.16 2004/01/09 05:15:09 toy Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-validate.h,v 1.17 2004/04/28 04:29:37 rtoy Exp $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -53,6 +53,8 @@
 
 /*#include "internals.h"*/
 
+/* 128 MB */
+#define MB_128	(0x08000000)
 /*
  *
  * Note: I'm not sure why, but the sizes must be on a
@@ -87,16 +89,16 @@
 
 
 #define READ_ONLY_SPACE_START	(SpaceStart_TargetReadOnly)
-#define READ_ONLY_SPACE_SIZE	(0x08000000 - SPARSE_BLOCK_SIZE) /* 128 MB - 32 KB, 256 MB max */
+#define READ_ONLY_SPACE_SIZE	((2*MB_128) - SPARSE_BLOCK_SIZE) /* 256 MB - 32 KB, 256 MB max */
   
 #define BINDING_STACK_START 	(0x20000000)
-#define BINDING_STACK_SIZE  	(0x08000000 - SPARSE_BLOCK_SIZE) /* 128 MB - 32 KB, 128 MB max */
+#define BINDING_STACK_SIZE  	(MB_128 - SPARSE_BLOCK_SIZE) /* 128 MB - 32 KB, 128 MB max */
 
 #define STATIC_SPACE_START  	(SpaceStart_TargetStatic)
-#define STATIC_SPACE_SIZE   	(0x08000000 - SPARSE_BLOCK_SIZE) /* 128 MB - 32 KB, 256 MB max */
+#define STATIC_SPACE_SIZE   	((2*MB_128) - SPARSE_BLOCK_SIZE) /* 256 MB - 32 KB, 256 MB max */
 
 #define CONTROL_STACK_START 	(0x38000000)
-#define CONTROL_STACK_SIZE  	(0x08000000 - SPARSE_BLOCK_SIZE) /* 128 MB - 32 KB, 128 MB max */
+#define CONTROL_STACK_SIZE  	(MB_128 - SPARSE_BLOCK_SIZE) /* 128 MB - 32 KB, 128 MB max */
 #define CONTROL_STACK_END       (CONTROL_STACK_START + CONTROL_STACK_SIZE)
 
 #define DYNAMIC_0_SPACE_START	(SpaceStart_TargetDynamic)
-- 
GitLab