/[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.87 by cshapiro, Fri Jul 6 08:04:39 2007 UTC revision 1.88 by rtoy, Thu Jul 26 14:05:02 2007 UTC
# Line 6376  free_oldspace(void) Line 6376  free_oldspace(void)
6376    
6377      do {      do {
6378          /* Find a first page for the next region of pages. */          /* Find a first page for the next region of pages. */
6379          while (first_page < last_free_page && (!PAGE_ALLOCATED(first_page)          while ((first_page < last_free_page)
6380                                                 || page_table[first_page].                 && (!PAGE_ALLOCATED(first_page)
6381                                                 bytes_used == 0                     || page_table[first_page].bytes_used == 0
6382                                                 || PAGE_GENERATION(first_page) !=                     || PAGE_GENERATION(first_page) != from_space)) {
6383                                                 from_space)) first_page++;              first_page++;
6384            }
6385    
6386          if (first_page >= last_free_page)          if (first_page >= last_free_page)
6387              break;              break;
# Line 6466  print_ptr(lispobj * addr) Line 6467  print_ptr(lispobj * addr)
6467  }  }
6468    
6469  #if defined(sparc) || (defined(DARWIN) && defined(__ppc__))  #if defined(sparc) || (defined(DARWIN) && defined(__ppc__))
6470  extern char closure_tramp;  /*
6471  extern char undefined_tramp;   * The assembly code defines these as functions, so we make them
6472     * functions.  We only care about their addresses anyway.
6473     */
6474    extern char closure_tramp();
6475    extern char undefined_tramp();
6476  #else  #else
6477  extern int undefined_tramp;  extern int undefined_tramp;
6478  #endif  #endif

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

  ViewVC Help
Powered by ViewVC 1.1.5