Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl Commits: 6be8c6f7 by Raymond Toy at 2016-12-28T10:48:39-08:00 Support sparc64 in load_core_file Add __sparc64v9 where __x86_64 is to get core parsing. Basically, we want to read 32-bit values to get the core header information. (I think.) - - - - - 1 changed file: - src/lisp/coreparse.c Changes: ===================================== src/lisp/coreparse.c ===================================== --- a/src/lisp/coreparse.c +++ b/src/lisp/coreparse.c @@ -95,10 +95,10 @@ load_core_file(const char *file, fpu_mode_t* fpu_type) { int fd = open(file, O_RDONLY), count; -#if !(defined(alpha) || defined(__x86_64)) +#if !(defined(alpha) || defined(__x86_64) || defined(__sparcv9)) long header[CORE_PAGESIZE / sizeof(long)], val, len, *ptr; #else - u32 header[CORE_PAGESIZE / sizeof(u32)], val, len, *ptr; + uint32_t header[CORE_PAGESIZE / sizeof(uint32_t)], val, len, *ptr; #endif lispobj initial_function = NIL; @@ -154,10 +154,10 @@ load_core_file(const char *file, fpu_mode_t* fpu_type) case CORE_NDIRECTORY: process_directory(fd, ptr, -#if !(defined(alpha) || defined(__x86_64)) +#if !(defined(alpha) || defined(__x86_64) || defined(__sparcv9)) (len - 2) / (sizeof(struct ndir_entry) / sizeof(long))); #else - (len - 2) / (sizeof(struct ndir_entry) / sizeof(u32))); + (len - 2) / (sizeof(struct ndir_entry) / sizeof(uint32_t))); #endif break; View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/6be8c6f7767cd79d57f0f9005b...