/[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.57 by rtoy, Wed Jul 7 20:31:06 2004 UTC revision 1.58 by rtoy, Thu Jul 8 03:31:15 2004 UTC
# Line 521  static int count_dont_move_pages(void) Line 521  static int count_dont_move_pages(void)
521   * Work through the pages and add up the number of bytes used for the   * Work through the pages and add up the number of bytes used for the
522   * given generation.   * given generation.
523   */   */
524    #ifdef GC_ASSERTIONS
525  static int generation_bytes_allocated (int generation)  static int generation_bytes_allocated (int generation)
526  {  {
527    int i;    int i;
# Line 536  static int generation_bytes_allocated (i Line 537  static int generation_bytes_allocated (i
537    }    }
538    return bytes_allocated;    return bytes_allocated;
539  }  }
540    #endif
541    
542  /*  /*
543   * Return the average age of the memory in a generation.   * Return the average age of the memory in a generation.
# Line 5077  static void scavenge_thread_stacks(void) Line 5079  static void scavenge_thread_stacks(void)
5079            unsigned long stack_pointer = stack->data[0];            unsigned long stack_pointer = stack->data[0];
5080            if ((char *) stack_pointer < (char *) control_stack ||            if ((char *) stack_pointer < (char *) control_stack ||
5081                (char *) stack_pointer > (char *) control_stack_end)                (char *) stack_pointer > (char *) control_stack_end)
5082              fprintf(stderr, "*E Invalid stack pointer %x\n", stack_pointer);              fprintf(stderr, "*E Invalid stack pointer %lx\n", stack_pointer);
5083            if ((char *) stack_pointer > (char *) control_stack &&            if ((char *) stack_pointer > (char *) control_stack &&
5084                (char *) stack_pointer < (char *) control_stack_end) {                (char *) stack_pointer < (char *) control_stack_end) {
5085              unsigned int length = ((int) control_stack_end - stack_pointer) / sizeof(lispobj);              unsigned int length = ((int) control_stack_end - stack_pointer) / sizeof(lispobj);
# Line 6099  static void write_protect_generation_pag Line 6101  static void write_protect_generation_pag
6101    
6102    
6103  static void  static void
6104  scavenge_interrupt_handlers()  scavenge_interrupt_handlers(void)
6105  {  {
6106    int i;    int i;
6107    

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

  ViewVC Help
Powered by ViewVC 1.1.5