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