From 27de76921b5e4c964166236b61eeb83b74831fa4 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 8 Sep 1992 23:23:39 +0000
Subject: [PATCH] Under SunOS, use the real C stack instead of mapping our own
 so that it stays demand paged.

---
 lisp/sparc-validate.h | 4 ++++
 lisp/validate.c       | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/sparc-validate.h b/lisp/sparc-validate.h
index e790de13b..ef1297c7f 100644
--- a/lisp/sparc-validate.h
+++ b/lisp/sparc-validate.h
@@ -15,5 +15,9 @@
 #define BINDING_STACK_START	(0x00f00000)
 #define BINDING_STACK_SIZE	(0x00080000)
 
+#ifdef SUNOS
+#define NUMBER_STACK_START	(0xf7ef0000)
+#else
 #define NUMBER_STACK_START	(0xf0000000)
+#endif
 #define NUMBER_STACK_SIZE	(0x00100000)
diff --git a/lisp/validate.c b/lisp/validate.c
index 89ed7c2b1..cbde6a116 100644
--- a/lisp/validate.c
+++ b/lisp/validate.c
@@ -1,5 +1,5 @@
 /*
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.c,v 1.1 1992/07/28 20:15:36 wlott Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.c,v 1.2 1992/09/08 23:22:52 wlott Exp $
  *
  * Memory Validation
  */
@@ -55,7 +55,9 @@ void validate(void)
 	ensure_space(binding_stack, BINDING_STACK_SIZE);
 
 	/* Number stack */
+#ifndef SUNOS
 	ensure_space((lispobj *)NUMBER_STACK_START, NUMBER_STACK_SIZE);
+#endif
 
 #ifdef PRINTNOISE
 	printf(" done.\n");
-- 
GitLab