Skip to content
Snippets Groups Projects
Commit 15347333 authored by toy's avatar toy
Browse files

Only x86 has ALLOCATION_POINTER. Use

current_dynamic_space_free_pointer for the other ports.  (Is this
right?)
parent 5256a270
No related branches found
No related tags found
No related merge requests found
/* /*
* main() entry point for a stand alone lisp image. * 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[]) ...@@ -565,7 +565,11 @@ int main(int argc, char *argv[], char *envp[])
if(initial_function_addr != 0) { if(initial_function_addr != 0) {
extern int image_dynamic_space_size; extern int image_dynamic_space_size;
int allocation_pointer = dynamic_0_space + (int)&image_dynamic_space_size; int allocation_pointer = dynamic_0_space + (int)&image_dynamic_space_size;
#ifdef i386
SetSymbolValue(ALLOCATION_POINTER, (lispobj)allocation_pointer); SetSymbolValue(ALLOCATION_POINTER, (lispobj)allocation_pointer);
#else
current_dynamic_space_free_pointer = (lispobj)allocation_pointer;
#endif
} else { } else {
initial_function = load_core_file(core); initial_function = load_core_file(core);
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment