[Git][cmucl/cmucl][sparc64-dev] Support sparc64 in load_core_file

[Raymond Toy]

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/6be8c6f7767cd79d57f0f9005b36ada8921889ae
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20161228/d411e9f6/attachment-0001.html>