[BACK]Return to alloc.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / gc

Diff for /OpenXM_contrib2/asir2000/gc/alloc.c between version 1.8 and 1.9

version 1.8, 2002/07/25 02:48:53 version 1.9, 2003/06/24 05:11:31
Line 72  int GC_full_freq = 19;    /* Every 20th collection is 
Line 72  int GC_full_freq = 19;    /* Every 20th collection is 
 GC_bool GC_need_full_gc = FALSE;  GC_bool GC_need_full_gc = FALSE;
                            /* Need full GC do to heap growth.   */                             /* Need full GC do to heap growth.   */
   
   #ifdef THREADS
     GC_bool GC_world_stopped = FALSE;
   # define IF_THREADS(x) x
   #else
   # define IF_THREADS(x)
   #endif
   
 word GC_used_heap_size_after_full = 0;  word GC_used_heap_size_after_full = 0;
   
 char * GC_copyright[] =  char * GC_copyright[] =
Line 250  void GC_maybe_gc()
Line 257  void GC_maybe_gc()
   
     if (GC_should_collect()) {      if (GC_should_collect()) {
         if (!GC_incremental) {          if (!GC_incremental) {
             GC_notify_full_gc();  
             GC_gcollect_inner();              GC_gcollect_inner();
             n_partial_gcs = 0;              n_partial_gcs = 0;
             return;              return;
Line 302  void GC_maybe_gc()
Line 308  void GC_maybe_gc()
 /*  /*
  * Stop the world garbage collection.  Assumes lock held, signals disabled.   * Stop the world garbage collection.  Assumes lock held, signals disabled.
  * If stop_func is not GC_never_stop_func, then abort if stop_func returns TRUE.   * If stop_func is not GC_never_stop_func, then abort if stop_func returns TRUE.
    * Return TRUE if we successfully completed the collection.
  */   */
 GC_bool GC_try_to_collect_inner(stop_func)  GC_bool GC_try_to_collect_inner(stop_func)
 GC_stop_func stop_func;  GC_stop_func stop_func;
Line 309  GC_stop_func stop_func;
Line 316  GC_stop_func stop_func;
 #   ifdef CONDPRINT  #   ifdef CONDPRINT
         CLOCK_TYPE start_time, current_time;          CLOCK_TYPE start_time, current_time;
 #   endif  #   endif
       if (GC_dont_gc) return FALSE;
     if (GC_incremental && GC_collection_in_progress()) {      if (GC_incremental && GC_collection_in_progress()) {
 #   ifdef CONDPRINT  #   ifdef CONDPRINT
       if (GC_print_stats) {        if (GC_print_stats) {
Line 322  GC_stop_func stop_func;
Line 330  GC_stop_func stop_func;
             GC_collect_a_little_inner(1);              GC_collect_a_little_inner(1);
         }          }
     }      }
       if (stop_func == GC_never_stop_func) GC_notify_full_gc();
 #   ifdef CONDPRINT  #   ifdef CONDPRINT
       if (GC_print_stats) {        if (GC_print_stats) {
         if (GC_print_stats) GET_TIME(start_time);          if (GC_print_stats) GET_TIME(start_time);
Line 397  int n;
Line 406  int n;
 {  {
     register int i;      register int i;
   
       if (GC_dont_gc) return;
     if (GC_incremental && GC_collection_in_progress()) {      if (GC_incremental && GC_collection_in_progress()) {
         for (i = GC_deficit; i < GC_RATE*n; i++) {          for (i = GC_deficit; i < GC_RATE*n; i++) {
             if (GC_mark_some((ptr_t)0)) {              if (GC_mark_some((ptr_t)0)) {
Line 464  GC_stop_func stop_func;
Line 474  GC_stop_func stop_func;
 #   if defined(CONDPRINT) && !defined(PRINTTIMES)  #   if defined(CONDPRINT) && !defined(PRINTTIMES)
         if (GC_print_stats) GET_TIME(start_time);          if (GC_print_stats) GET_TIME(start_time);
 #   endif  #   endif
   #   if defined(REGISTER_LIBRARIES_EARLY)
           GC_cond_register_dynamic_libraries();
   #   endif
     GC_timerstart();      GC_timerstart();
     STOP_WORLD();      STOP_WORLD();
       IF_THREADS(GC_world_stopped = TRUE);
 #   ifdef CONDPRINT  #   ifdef CONDPRINT
       if (GC_print_stats) {        if (GC_print_stats) {
         GC_printf1("--> Marking for collection %lu ",          GC_printf1("--> Marking for collection %lu ",
Line 496  GC_stop_func stop_func;
Line 510  GC_stop_func stop_func;
                       }                        }
 #                   endif  #                   endif
                     GC_deficit = i; /* Give the mutator a chance. */                      GC_deficit = i; /* Give the mutator a chance. */
                       IF_THREADS(GC_world_stopped = FALSE);
                     START_WORLD();                      START_WORLD();
                         GC_timerstop();                          GC_timerstop();
                     return(FALSE);                      return(FALSE);
Line 530  GC_stop_func stop_func;
Line 545  GC_stop_func stop_func;
             (*GC_check_heap)();              (*GC_check_heap)();
         }          }
   
       IF_THREADS(GC_world_stopped = FALSE);
     START_WORLD();      START_WORLD();
     GC_timerstop();      GC_timerstop();
 #   ifdef PRINTTIMES  #   ifdef PRINTTIMES
Line 622  void GC_finish_collection()
Line 638  void GC_finish_collection()
           GC_print_address_map();            GC_print_address_map();
         }          }
 #   endif  #   endif
       COND_DUMP;
     if (GC_find_leak) {      if (GC_find_leak) {
       /* Mark all objects on the free list.  All objects should be */        /* Mark all objects on the free list.  All objects should be */
       /* marked when we're done.                                   */        /* marked when we're done.                                   */
Line 764  void GC_finish_collection()
Line 781  void GC_finish_collection()
   
 void GC_gcollect GC_PROTO(())  void GC_gcollect GC_PROTO(())
 {  {
     GC_notify_full_gc();  
     (void)GC_try_to_collect(GC_never_stop_func);      (void)GC_try_to_collect(GC_never_stop_func);
       if (GC_have_errors) GC_print_all_errors();
 }  }
   
 word GC_n_heap_sects = 0;       /* Number of sections currently in heap. */  word GC_n_heap_sects = 0;       /* Number of sections currently in heap. */
Line 970  GC_bool ignore_off_page;
Line 987  GC_bool ignore_off_page;
 {  {
     if (!GC_incremental && !GC_dont_gc &&      if (!GC_incremental && !GC_dont_gc &&
         (GC_dont_expand && GC_words_allocd > 0 || GC_should_collect())) {          (GC_dont_expand && GC_words_allocd > 0 || GC_should_collect())) {
       GC_notify_full_gc();  
       GC_gcollect_inner();        GC_gcollect_inner();
     } else {      } else {
       word blocks_to_get = GC_heapsize/(HBLKSIZE*GC_free_space_divisor)        word blocks_to_get = GC_heapsize/(HBLKSIZE*GC_free_space_divisor)
Line 995  GC_bool ignore_off_page;
Line 1011  GC_bool ignore_off_page;
         && !GC_expand_hp_inner(needed_blocks)) {          && !GC_expand_hp_inner(needed_blocks)) {
         if (GC_fail_count++ < GC_max_retries) {          if (GC_fail_count++ < GC_max_retries) {
             WARN("Out of Memory!  Trying to continue ...\n", 0);              WARN("Out of Memory!  Trying to continue ...\n", 0);
             GC_notify_full_gc();  
             GC_gcollect_inner();              GC_gcollect_inner();
         } else {          } else {
 #           if !defined(AMIGA) || !defined(GC_AMIGA_FASTALLOC)  #           if !defined(AMIGA) || !defined(GC_AMIGA_FASTALLOC)
Line 1048  int kind;
Line 1063  int kind;
     while (*flh == 0) {      while (*flh == 0) {
       ENTER_GC();        ENTER_GC();
       /* Do our share of marking work */        /* Do our share of marking work */
         if(TRUE_INCREMENTAL && !GC_dont_gc) GC_collect_a_little_inner(1);          if(TRUE_INCREMENTAL) GC_collect_a_little_inner(1);
       /* Sweep blocks for objects of this size */        /* Sweep blocks for objects of this size */
         GC_continue_reclaim(sz, kind);          GC_continue_reclaim(sz, kind);
       EXIT_GC();        EXIT_GC();
Line 1070  int kind;
Line 1085  int kind;
         EXIT_GC();          EXIT_GC();
       }        }
     }      }
       /* Successful allocation; reset failure count.      */
       GC_fail_count = 0;
   
     return(*flh);      return(*flh);
 }  }
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>