From 15347333776166cebaf28a6fe647649a6806f3aa Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Mon, 18 Aug 2003 20:48:38 +0000
Subject: [PATCH] Only x86 has ALLOCATION_POINTER.  Use
 current_dynamic_space_free_pointer for the other ports.  (Is this right?)

---
 lisp/lisp.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/lisp.c b/lisp/lisp.c
index 6447be69c..e3df333a5 100644
--- a/lisp/lisp.c
+++ b/lisp/lisp.c
@@ -1,7 +1,7 @@
 /*
  * main() entry point for a stand alone lisp image.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.34 2003/08/12 16:41:40 gerd Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.35 2003/08/18 20:48:38 toy Exp $
  *
  */
 
@@ -565,7 +565,11 @@ int main(int argc, char *argv[], char *envp[])
     if(initial_function_addr != 0) {
       extern int image_dynamic_space_size;
       int allocation_pointer = dynamic_0_space + (int)&image_dynamic_space_size;
+#ifdef i386
       SetSymbolValue(ALLOCATION_POINTER, (lispobj)allocation_pointer);
+#else
+      current_dynamic_space_free_pointer = (lispobj)allocation_pointer;
+#endif
     } else {
       initial_function = load_core_file(core);
     }
-- 
GitLab