Skip to content
Snippets Groups Projects
Commit 97c1178e authored by cwang's avatar cwang
Browse files

amd64 change

parent 16a8b276
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/parse.c,v 1.4 1997/11/23 08:52:52 dtc Exp $ */ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/parse.c,v 1.5 2004/05/19 23:33:44 cwang Exp $ */
#include <stdio.h> #include <stdio.h>
#include <ctype.h> #include <ctype.h>
#include <signal.h> #include <signal.h>
...@@ -258,7 +258,7 @@ static boolean lookup_symbol(char *name, lispobj *result) ...@@ -258,7 +258,7 @@ static boolean lookup_symbol(char *name, lispobj *result)
/* Search dynamic space */ /* Search dynamic space */
headerptr = current_dynamic_space; headerptr = current_dynamic_space;
#if !defined(ibmrt) && !defined(i386) #if !defined(ibmrt) && !defined(i386) && !defined(__x86_64)
count = current_dynamic_space_free_pointer - current_dynamic_space; count = current_dynamic_space_free_pointer - current_dynamic_space;
#else #else
count = (lispobj *)SymbolValue(ALLOCATION_POINTER) - current_dynamic_space; count = (lispobj *)SymbolValue(ALLOCATION_POINTER) - current_dynamic_space;
......
/* /*
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.c,v 1.17 2004/01/09 04:36:39 toy Exp $ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.c,v 1.18 2004/05/19 23:38:13 cwang Exp $
* *
* Memory Validation * Memory Validation
*/ */
...@@ -38,7 +38,7 @@ ensure_space(lispobj *start, size_t size) ...@@ -38,7 +38,7 @@ ensure_space(lispobj *start, size_t size)
builtin_image_flag is used as a flag indicating that the lisp image builtin_image_flag is used as a flag indicating that the lisp image
is built into the executable. FMG */ is built into the executable. FMG */
extern int builtin_image_flag; extern int builtin_image_flag;
int image_dynamic_space_size = 0; long image_dynamic_space_size = 0;
void void
validate(void) validate(void)
...@@ -90,7 +90,7 @@ validate(void) ...@@ -90,7 +90,7 @@ validate(void)
/* Control Stack */ /* Control Stack */
control_stack = (lispobj *) CONTROL_STACK_START; control_stack = (lispobj *) CONTROL_STACK_START;
#ifdef i386 #if (defined(i386) || defined(__x86_64))
control_stack_end = (lispobj *) (CONTROL_STACK_START control_stack_end = (lispobj *) (CONTROL_STACK_START
+ CONTROL_STACK_SIZE); + CONTROL_STACK_SIZE);
#endif #endif
......
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