Skip to content
Snippets Groups Projects
Commit b1743a1b authored by fgilham's avatar fgilham
Browse files

Fix typo that caused executables to have incorrect initial dynamic space allocation pointers.

parent bc8a91ee
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.57 2007/07/21 21:12:42 fgilham Exp $ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.58 2007/07/23 05:05:17 fgilham Exp $
* *
*/ */
...@@ -641,8 +641,7 @@ main(int argc, char *argv[], char *envp[]) ...@@ -641,8 +641,7 @@ main(int argc, char *argv[], char *envp[])
if (builtin_image_flag != 0) { if (builtin_image_flag != 0) {
extern int image_dynamic_space_size; extern int image_dynamic_space_size;
long allocation_pointer = long allocation_pointer =
(long) dynamic_0_space + (int) image_dynamic_space_size;
(long) dynamic_0_space + (int) &image_dynamic_space_size;
#if defined(i386) || defined(__x86_64) #if defined(i386) || defined(__x86_64)
SetSymbolValue(ALLOCATION_POINTER, (lispobj) allocation_pointer); SetSymbolValue(ALLOCATION_POINTER, (lispobj) allocation_pointer);
#else #else
......
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