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

amd64 changes

parent 777667de
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/coreparse.c,v 1.6 1997/03/16 15:52:51 pw Exp $ */ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/coreparse.c,v 1.7 2004/05/18 22:46:57 cwang Exp $ */
#include <stdio.h> #include <stdio.h>
#include <sys/types.h> #include <sys/types.h>
#include <sys/file.h> #include <sys/file.h>
...@@ -55,7 +55,7 @@ static void process_directory(int fd, long *ptr, int count) ...@@ -55,7 +55,7 @@ static void process_directory(int fd, long *ptr, int count)
&& addr != (os_vm_address_t)dynamic_1_space) && addr != (os_vm_address_t)dynamic_1_space)
printf("Strange ... dynamic space lossage.\n"); printf("Strange ... dynamic space lossage.\n");
current_dynamic_space = (lispobj *)addr; current_dynamic_space = (lispobj *)addr;
#if defined(ibmrt) || defined(i386) #if defined(ibmrt) || defined(i386) || defined(__x86_64)
SetSymbolValue(ALLOCATION_POINTER, (lispobj)free_pointer); SetSymbolValue(ALLOCATION_POINTER, (lispobj)free_pointer);
#else #else
current_dynamic_space_free_pointer = free_pointer; current_dynamic_space_free_pointer = free_pointer;
...@@ -78,7 +78,7 @@ static void process_directory(int fd, long *ptr, int count) ...@@ -78,7 +78,7 @@ static void process_directory(int fd, long *ptr, int count)
lispobj load_core_file(char *file) lispobj load_core_file(char *file)
{ {
int fd = open(file, O_RDONLY), count; int fd = open(file, O_RDONLY), count;
#ifndef alpha #if !(defined(alpha) || defined(__x86_64))
long header[CORE_PAGESIZE / sizeof(long)], val, len, *ptr; long header[CORE_PAGESIZE / sizeof(long)], val, len, *ptr;
#else #else
u32 header[CORE_PAGESIZE / sizeof(u32)], val, len, *ptr; u32 header[CORE_PAGESIZE / sizeof(u32)], val, len, *ptr;
...@@ -130,7 +130,7 @@ lispobj load_core_file(char *file) ...@@ -130,7 +130,7 @@ lispobj load_core_file(char *file)
case CORE_NDIRECTORY: case CORE_NDIRECTORY:
process_directory(fd, ptr, process_directory(fd, ptr,
#ifndef alpha #if !(defined(alpha) || defined(__x86_64))
(len-2) / (sizeof(struct ndir_entry) / sizeof(long))); (len-2) / (sizeof(struct ndir_entry) / sizeof(long)));
#else #else
(len-2) / (sizeof(struct ndir_entry) / sizeof(u32))); (len-2) / (sizeof(struct ndir_entry) / sizeof(u32)));
......
/* /*
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/dynbind.c,v 1.2 1997/01/21 00:28:13 ram Exp $ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/dynbind.c,v 1.3 2004/05/18 22:48:22 cwang Exp $
* *
* Support for dynamic binding from C. * Support for dynamic binding from C.
*/ */
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
#include "globals.h" #include "globals.h"
#include "dynbind.h" #include "dynbind.h"
#if defined(ibmrt) || defined(i386) #if defined(ibmrt) || defined(i386) || defined(__x86_64)
#define GetBSP() ((struct binding *)SymbolValue(BINDING_STACK_POINTER)) #define GetBSP() ((struct binding *)SymbolValue(BINDING_STACK_POINTER))
#define SetBSP(value) SetSymbolValue(BINDING_STACK_POINTER, (lispobj)(value)) #define SetBSP(value) SetSymbolValue(BINDING_STACK_POINTER, (lispobj)(value))
#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