/[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.72 by rtoy, Tue Jul 18 23:28:48 2006 UTC revision 1.73 by rtoy, Thu Jul 20 16:19:35 2006 UTC
# Line 505  unsigned int gencgc_oldest_gen_to_gc = N Line 505  unsigned int gencgc_oldest_gen_to_gc = N
505   * ALLOCATION_POINTER which is used by the room function to limit its   * ALLOCATION_POINTER which is used by the room function to limit its
506   * search of the heap. XX Gencgc obviously needs to be better   * search of the heap. XX Gencgc obviously needs to be better
507   * integrated with the lisp code.   * integrated with the lisp code.
508     *
509     * Except on sparc and ppc, there's no ALLOCATION_POINTER, so it's
510     * never updated.  So make this available (non-static).
511   */   */
512  static int last_free_page;  int last_free_page;
513    
514    
515    
# Line 7495  print_bytes_allocated_sum(void) Line 7498  print_bytes_allocated_sum(void)
7498       */       */
7499  #endif  #endif
7500  }  }
7501    
7502    /*
7503     * Let Lisp get at the page table entry and return the flags and the
7504     * bytes used
7505     */
7506    void
7507    get_page_table_info(int page, int* flags, int* bytes)
7508    {
7509        *flags = page_table[page].flags;
7510        *bytes = page_table[page].bytes_used;
7511    }

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

  ViewVC Help
Powered by ViewVC 1.1.5