From 27ece61a73fea3907829ea192fcd51009bcbb541 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 8 Nov 1997 15:33:49 +0000 Subject: [PATCH] GENCGC support. --- lisp/alloc.c | 4 ++-- lisp/validate.c | 6 ++++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/alloc.c b/lisp/alloc.c index e896a447f..7aacdbfe0 100644 --- a/lisp/alloc.c +++ b/lisp/alloc.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.c,v 1.3 1997/01/21 00:28:13 ram Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.c,v 1.4 1997/11/08 15:33:48 dtc Exp $ */ #include "lisp.h" #include "internals.h" @@ -27,7 +27,7 @@ /**************************************************************** Allocation Routines. ****************************************************************/ -#if defined WANT_CGC +#if defined(WANT_CGC) || defined(GENCGC) extern lispobj *alloc(int bytes); #else static lispobj *alloc(int bytes) diff --git a/lisp/validate.c b/lisp/validate.c index f113fcd06..b9bf97c52 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.5 1997/01/21 00:28:13 ram Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.c,v 1.6 1997/11/08 15:33:49 dtc Exp $ * * Memory Validation */ @@ -65,7 +65,9 @@ void validate(void) /* Dynamic-1 Space */ dynamic_1_space = (lispobj *) DYNAMIC_1_SPACE_START; - ensure_space(dynamic_1_space, DYNAMIC_SPACE_SIZE); +#ifndef GENCGC + ensure_space(dynamic_1_space, DYNAMIC_SPACE_SIZE); +#endif /* Control Stack */ control_stack = (lispobj *) CONTROL_STACK_START; -- GitLab