/[cmucl]/src/lisp/gencgc.c
ViewVC logotype

Diff of /src/lisp/gencgc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.88 by rtoy, Thu Jul 26 14:05:02 2007 UTC revision 1.89 by rtoy, Mon Jul 30 16:19:25 2007 UTC
# Line 819  void *current_region_end_addr; Line 819  void *current_region_end_addr;
819  #endif  #endif
820    
821  /* The generation currently being allocated to. X */  /* The generation currently being allocated to. X */
822  static int gc_alloc_generation;  static int gc_alloc_generation = 0;
823    
824  extern void do_dynamic_space_overflow_warning(void);  extern void do_dynamic_space_overflow_warning(void);
825  extern void do_dynamic_space_overflow_error(void);  extern void do_dynamic_space_overflow_error(void);
# Line 1093  struct new_area { Line 1093  struct new_area {
1093      int size;      int size;
1094  };  };
1095  static struct new_area (*new_areas)[];  static struct new_area (*new_areas)[];
1096  static int new_areas_index;  static int new_areas_index = 0;
1097  int max_new_areas;  int max_new_areas;
1098    
1099  /* Add a new area to new_areas. */  /* Add a new area to new_areas. */
# Line 7466  gc_init(void) Line 7466  gc_init(void)
7466      dynamic_space_pages = (dynamic_space_size + (PAGE_SIZE - 1)) / PAGE_SIZE;      dynamic_space_pages = (dynamic_space_size + (PAGE_SIZE - 1)) / PAGE_SIZE;
7467    
7468      page_table =      page_table =
7469            (struct page *) malloc(dynamic_space_pages * sizeof(struct page));
         (struct page *) malloc(dynamic_space_pages * sizeof(struct page));  
7470      if (page_table == NULL) {      if (page_table == NULL) {
7471          fprintf(stderr, "Unable to allocate page table.\n");          fprintf(stderr, "Unable to allocate page table.\n");
7472          exit(1);          exit(1);
# Line 7477  gc_init(void) Line 7476  gc_init(void)
7476    
7477      for (i = 0; i < dynamic_space_pages; i++) {      for (i = 0; i < dynamic_space_pages; i++) {
7478          /* Initial all pages as free. */          /* Initial all pages as free. */
7479            page_table[i].flags = 0;
7480          page_table[i].flags &= ~PAGE_ALLOCATED_MASK;          page_table[i].flags &= ~PAGE_ALLOCATED_MASK;
7481          page_table[i].bytes_used = 0;          page_table[i].bytes_used = 0;
7482    

Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89

  ViewVC Help
Powered by ViewVC 1.1.5