Changeset 9960


Ignore:
Timestamp:
Jul 10, 2008, 9:17:57 AM (11 years ago)
Author:
gb
Message:

Changes from trunk: premature WINDOWS stuff, preserve WEAK_GC_METHOD
kernel global, set HEAP_START/HEAP_END later.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lisp-kernel/image.c

    r8662 r9960  
    2222#include <errno.h>
    2323#include <unistd.h>
     24#ifndef WINDOWS
    2425#include <sys/mman.h>
     26#endif
    2527#include <stdio.h>
    2628
     
    161163}
    162164
     165#ifdef WINDOWS
     166void
     167load_image_section(int fd, openmcl_image_section_header *sect)
     168{
     169}
     170#else
    163171void
    164172load_image_section(int fd, openmcl_image_section_header *sect)
     
    234242  lseek(fd, pos+advance, SEEK_SET);
    235243}
    236    
     244#endif
     245
     246#ifdef WINDOWS
     247LispObj
     248load_openmcl_image(int fd, openmcl_image_file_header *h)
     249{
     250}
     251#else
    237252LispObj
    238253load_openmcl_image(int fd, openmcl_image_file_header *h)
     
    304319        break;
    305320      case AREA_DYNAMIC:
    306         lisp_global(HEAP_START) = ptr_to_lispobj(a->low);
    307         lisp_global(HEAP_END) = ptr_to_lispobj(a->high);
    308321        if (bias) {
    309322          relocate_area_contents(a, bias);
     
    317330  return image_nil;
    318331}
    319      
     332#endif
     333 
    320334void
    321335prepare_to_write_dynamic_space()
     
    469483    case GC_NUM:
    470484    case STATIC_CONSES:
     485    case WEAK_GC_METHOD:
    471486      break;
    472487    default:
     
    515530  trailer.delta = (int) (header_pos-eof_pos);
    516531  if (write(fd, &trailer, sizeof(trailer)) == sizeof(trailer)) {
     532#ifndef WINDOWS
    517533    fsync(fd);
     534#endif
    518535    close(fd);
    519536    return 0;
Note: See TracChangeset for help on using the changeset viewer.