Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/coreparse.c
    ... ... @@ -95,10 +95,10 @@ load_core_file(const char *file, fpu_mode_t* fpu_type)
    95 95
     {
    
    96 96
         int fd = open(file, O_RDONLY), count;
    
    97 97
     
    
    98
    -#if !(defined(alpha) || defined(__x86_64))
    
    98
    +#if !(defined(alpha) || defined(__x86_64) || defined(__sparcv9))
    
    99 99
         long header[CORE_PAGESIZE / sizeof(long)], val, len, *ptr;
    
    100 100
     #else
    
    101
    -    u32 header[CORE_PAGESIZE / sizeof(u32)], val, len, *ptr;
    
    101
    +    uint32_t header[CORE_PAGESIZE / sizeof(uint32_t)], val, len, *ptr;
    
    102 102
     #endif
    
    103 103
         lispobj initial_function = NIL;
    
    104 104
     
    
    ... ... @@ -154,10 +154,10 @@ load_core_file(const char *file, fpu_mode_t* fpu_type)
    154 154
     
    
    155 155
     	  case CORE_NDIRECTORY:
    
    156 156
     	      process_directory(fd, ptr,
    
    157
    -#if !(defined(alpha) || defined(__x86_64))
    
    157
    +#if !(defined(alpha) || defined(__x86_64) || defined(__sparcv9))
    
    158 158
     				(len - 2) / (sizeof(struct ndir_entry) / sizeof(long)));
    
    159 159
     #else
    
    160
    -				(len - 2) / (sizeof(struct ndir_entry) / sizeof(u32)));
    
    160
    +				(len - 2) / (sizeof(struct ndir_entry) / sizeof(uint32_t)));
    
    161 161
     #endif
    
    162 162
     	      break;
    
    163 163