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