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

Diff for /OpenXM_contrib2/asir2000/gc/reclaim.c between version 1.5 and 1.9

version 1.5, 2001/04/20 07:39:19 version 1.9, 2003/06/24 05:11:34
Line 17 
Line 17 
 #include <stdio.h>  #include <stdio.h>
 #include "private/gc_priv.h"  #include "private/gc_priv.h"
   
 void GC_timerstart(), GC_timerstop();  
   
 signed_word GC_mem_found = 0;  signed_word GC_mem_found = 0;
                         /* Number of words of memory reclaimed     */                          /* Number of words of memory reclaimed     */
   
 #ifdef PARALLEL_MARK  #if defined(PARALLEL_MARK) || defined(THREAD_LOCAL_ALLOC)
   word GC_fl_builder_count = 0;    word GC_fl_builder_count = 0;
         /* Number of threads currently building free lists without      */          /* Number of threads currently building free lists without      */
         /* holding GC lock.  It is not safe to collect if this is       */          /* holding GC lock.  It is not safe to collect if this is       */
         /* nonzero.                                                     */          /* nonzero.                                                     */
 #endif /* PARALLEL_MARK */  #endif /* PARALLEL_MARK */
   
 static void report_leak(p, sz)  /* We defer printing of leaked objects until we're done with the GC     */
 ptr_t p;  /* cycle, since the routine for printing objects needs to run outside   */
 word sz;  /* the collector, e.g. without the allocation lock.                     */
   #define MAX_LEAKED 40
   ptr_t GC_leaked[MAX_LEAKED];
   unsigned GC_n_leaked = 0;
   
   GC_bool GC_have_errors = FALSE;
   
   void GC_add_leaked(leaked)
   ptr_t leaked;
 {  {
     if (HDR(p) -> hb_obj_kind == PTRFREE) {      if (GC_n_leaked < MAX_LEAKED) {
         GC_err_printf0("Leaked atomic object at ");        GC_have_errors = TRUE;
     } else {        GC_leaked[GC_n_leaked++] = leaked;
         GC_err_printf0("Leaked composite object at ");        /* Make sure it's not reclaimed this cycle */
           GC_set_mark_bit(leaked);
     }      }
     GC_print_heap_obj(p);  
     GC_err_printf0("\n");  
 }  }
   
   static GC_bool printing_errors = FALSE;
   /* Print all objects on the list after printing any smashed objs.       */
   /* Clear both lists.                                                    */
   void GC_print_all_errors ()
   {
       unsigned i;
   
       LOCK();
       if (printing_errors) {
           UNLOCK();
           return;
       }
       printing_errors = TRUE;
       UNLOCK();
       if (GC_debugging_started) GC_print_all_smashed();
       for (i = 0; i < GC_n_leaked; ++i) {
           ptr_t p = GC_leaked[i];
           if (HDR(p) -> hb_obj_kind == PTRFREE) {
               GC_err_printf0("Leaked atomic object at ");
           } else {
               GC_err_printf0("Leaked composite object at ");
           }
           GC_print_heap_obj(p);
           GC_err_printf0("\n");
           GC_free(p);
           GC_leaked[i] = 0;
       }
       GC_n_leaked = 0;
       printing_errors = FALSE;
   }
   
   
 #   define FOUND_FREE(hblk, word_no) \  #   define FOUND_FREE(hblk, word_no) \
       { \        { \
          report_leak((ptr_t)hblk + WORDS_TO_BYTES(word_no), \           GC_add_leaked((ptr_t)hblk + WORDS_TO_BYTES(word_no)); \
                      HDR(hblk) -> hb_sz); \  
       }        }
   
 /*  /*
Line 633  COUNT_DECL
Line 669  COUNT_DECL
     ptr_t result = list;      ptr_t result = list;
   
     GC_ASSERT(GC_find_header((ptr_t)hbp) == hhdr);      GC_ASSERT(GC_find_header((ptr_t)hbp) == hhdr);
       GC_remove_protection(hbp, 1, (hhdr)->hb_descr == 0 /* Pointer-free? */);
     if (init) {      if (init) {
       switch(sz) {        switch(sz) {
 #      if !defined(SMALL_CONFIG) && !defined(USE_MARK_BYTES)  #      if !defined(SMALL_CONFIG) && !defined(USE_MARK_BYTES)
         case 1:          case 1:
             /* We now issue the hint even if GC_nearly_full returned    */              /* We now issue the hint even if GC_nearly_full returned    */
             /* DONT_KNOW.                                               */              /* DONT_KNOW.                                               */
             GC_write_hint(hbp);  
             result = GC_reclaim1(hbp, hhdr, list COUNT_ARG);              result = GC_reclaim1(hbp, hhdr, list COUNT_ARG);
             break;              break;
         case 2:          case 2:
             GC_write_hint(hbp);  
             result = GC_reclaim_clear2(hbp, hhdr, list COUNT_ARG);              result = GC_reclaim_clear2(hbp, hhdr, list COUNT_ARG);
             break;              break;
         case 4:          case 4:
             GC_write_hint(hbp);  
             result = GC_reclaim_clear4(hbp, hhdr, list COUNT_ARG);              result = GC_reclaim_clear4(hbp, hhdr, list COUNT_ARG);
             break;              break;
 #      endif /* !SMALL_CONFIG && !USE_MARK_BYTES */  #      endif /* !SMALL_CONFIG && !USE_MARK_BYTES */
         default:          default:
             GC_write_hint(hbp);  
             result = GC_reclaim_clear(hbp, hhdr, sz, list COUNT_ARG);              result = GC_reclaim_clear(hbp, hhdr, sz, list COUNT_ARG);
             break;              break;
       }        }
     } else {      } else {
         GC_ASSERT((hhdr)->hb_descr == 0 /* Pointer-free block */);
       switch(sz) {        switch(sz) {
 #      if !defined(SMALL_CONFIG) && !defined(USE_MARK_BYTES)  #      if !defined(SMALL_CONFIG) && !defined(USE_MARK_BYTES)
         case 1:          case 1:
             GC_write_hint(hbp);  
             result = GC_reclaim1(hbp, hhdr, list COUNT_ARG);              result = GC_reclaim1(hbp, hhdr, list COUNT_ARG);
             break;              break;
         case 2:          case 2:
             GC_write_hint(hbp);  
             result = GC_reclaim_uninit2(hbp, hhdr, list COUNT_ARG);              result = GC_reclaim_uninit2(hbp, hhdr, list COUNT_ARG);
             break;              break;
         case 4:          case 4:
             GC_write_hint(hbp);  
             result = GC_reclaim_uninit4(hbp, hhdr, list COUNT_ARG);              result = GC_reclaim_uninit4(hbp, hhdr, list COUNT_ARG);
             break;              break;
 #      endif /* !SMALL_CONFIG && !USE_MARK_BYTES */  #      endif /* !SMALL_CONFIG && !USE_MARK_BYTES */
         default:          default:
             GC_write_hint(hbp);  
             result = GC_reclaim_uninit(hbp, hhdr, sz, list COUNT_ARG);              result = GC_reclaim_uninit(hbp, hhdr, sz, list COUNT_ARG);
             break;              break;
       }        }
Line 704  COUNT_DECL
Line 734  COUNT_DECL
     if (report_if_found) {      if (report_if_found) {
         GC_reclaim_check(hbp, hhdr, sz);          GC_reclaim_check(hbp, hhdr, sz);
     } else {      } else {
         *flh = GC_reclaim_generic(hbp, hhdr, sz, ok -> ok_init,          *flh = GC_reclaim_generic(hbp, hhdr, sz,
                                     (ok -> ok_init || GC_debugging_started),
                                   *flh MEM_FOUND_ADDR);                                    *flh MEM_FOUND_ADDR);
     }      }
 }  }
Line 776  COUNT_DECL
Line 807  COUNT_DECL
 /* Routines to gather and print heap block info         */  /* Routines to gather and print heap block info         */
 /* intended for debugging.  Otherwise should be called  */  /* intended for debugging.  Otherwise should be called  */
 /* with lock.                                           */  /* with lock.                                           */
 static size_t number_of_blocks;  
 static size_t total_bytes;  
   
   struct Print_stats
   {
           size_t number_of_blocks;
           size_t total_bytes;
   };
   
 #ifdef USE_MARK_BYTES  #ifdef USE_MARK_BYTES
   
 /* Return the number of set mark bits in the given header       */  /* Return the number of set mark bits in the given header       */
Line 836  hdr * hhdr;
Line 871  hdr * hhdr;
 {  {
     register hdr * hhdr = HDR(h);      register hdr * hhdr = HDR(h);
     register size_t bytes = WORDS_TO_BYTES(hhdr -> hb_sz);      register size_t bytes = WORDS_TO_BYTES(hhdr -> hb_sz);
       struct Print_stats *ps;
   
     GC_printf3("(%lu:%lu,%lu)", (unsigned long)(hhdr -> hb_obj_kind),      GC_printf3("(%lu:%lu,%lu)", (unsigned long)(hhdr -> hb_obj_kind),
                                 (unsigned long)bytes,                                  (unsigned long)bytes,
                                 (unsigned long)(GC_n_set_marks(hhdr)));                                  (unsigned long)(GC_n_set_marks(hhdr)));
     bytes += HBLKSIZE-1;      bytes += HBLKSIZE-1;
     bytes &= ~(HBLKSIZE-1);      bytes &= ~(HBLKSIZE-1);
     total_bytes += bytes;  
     number_of_blocks++;      ps = (struct Print_stats *)dummy;
       ps->total_bytes += bytes;
       ps->number_of_blocks++;
 }  }
   
 void GC_print_block_list()  void GC_print_block_list()
 {  {
       struct Print_stats pstats;
   
     GC_printf0("(kind(0=ptrfree,1=normal,2=unc.,3=stubborn):size_in_bytes, #_marks_set)\n");      GC_printf0("(kind(0=ptrfree,1=normal,2=unc.,3=stubborn):size_in_bytes, #_marks_set)\n");
     number_of_blocks = 0;      pstats.number_of_blocks = 0;
     total_bytes = 0;      pstats.total_bytes = 0;
     GC_apply_to_all_blocks(GC_print_block_descr, (word)0);      GC_apply_to_all_blocks(GC_print_block_descr, (word)&pstats);
     GC_printf2("\nblocks = %lu, bytes = %lu\n",      GC_printf2("\nblocks = %lu, bytes = %lu\n",
                (unsigned long)number_of_blocks,                 (unsigned long)pstats.number_of_blocks,
                (unsigned long)total_bytes);                 (unsigned long)pstats.total_bytes);
 }  }
   
 #endif /* NO_DEBUGGING */  #endif /* NO_DEBUGGING */
   
 /*  /*
    * Clear all obj_link pointers in the list of free objects *flp.
    * Clear *flp.
    * This must be done before dropping a list of free gcj-style objects,
    * since may otherwise end up with dangling "descriptor" pointers.
    * It may help for other pointer-containing objects.
    */
   void GC_clear_fl_links(flp)
   ptr_t *flp;
   {
       ptr_t next = *flp;
   
       while (0 != next) {
          *flp = 0;
          flp = &(obj_link(next));
          next = *flp;
       }
   }
   
   /*
  * Perform GC_reclaim_block on the entire heap, after first clearing   * Perform GC_reclaim_block on the entire heap, after first clearing
  * small object free lists (if we are not just looking for leaks).   * small object free lists (if we are not just looking for leaks).
  */   */
Line 868  int report_if_found;  /* Abort if a GC_reclaimable obj
Line 927  int report_if_found;  /* Abort if a GC_reclaimable obj
 {  {
     int kind;      int kind;
   
   #   if defined(PARALLEL_MARK) || defined(THREAD_LOCAL_ALLOC)
         GC_ASSERT(0 == GC_fl_builder_count);
   #   endif
     /* Clear reclaim- and free-lists */      /* Clear reclaim- and free-lists */
       for (kind = 0; kind < GC_n_kinds; kind++) {        for (kind = 0; kind < GC_n_kinds; kind++) {
         register ptr_t *fop;          ptr_t *fop;
         register ptr_t *lim;          ptr_t *lim;
         register struct hblk ** rlp;          struct hblk ** rlp;
         register struct hblk ** rlim;          struct hblk ** rlim;
         register struct hblk ** rlist = GC_obj_kinds[kind].ok_reclaim_list;          struct hblk ** rlist = GC_obj_kinds[kind].ok_reclaim_list;
           GC_bool should_clobber = (GC_obj_kinds[kind].ok_descriptor != 0);
   
         if (rlist == 0) continue;       /* This kind not used.  */          if (rlist == 0) continue;       /* This kind not used.  */
         if (!report_if_found) {          if (!report_if_found) {
             lim = &(GC_obj_kinds[kind].ok_freelist[MAXOBJSZ+1]);              lim = &(GC_obj_kinds[kind].ok_freelist[MAXOBJSZ+1]);
             for( fop = GC_obj_kinds[kind].ok_freelist; fop < lim; fop++ ) {              for( fop = GC_obj_kinds[kind].ok_freelist; fop < lim; fop++ ) {
               *fop = 0;                if (*fop != 0) {
                   if (should_clobber) {
                     GC_clear_fl_links(fop);
                   } else {
                     *fop = 0;
                   }
                 }
             }              }
         } /* otherwise free list objects are marked,    */          } /* otherwise free list objects are marked,    */
           /* and its safe to leave them                 */            /* and its safe to leave them                 */
Line 904  int report_if_found;  /* Abort if a GC_reclaimable obj
Line 973  int report_if_found;  /* Abort if a GC_reclaimable obj
     /* so that you can convince yourself that it really is very stupid. */      /* so that you can convince yourself that it really is very stupid. */
     GC_reclaim_all((GC_stop_func)0, FALSE);      GC_reclaim_all((GC_stop_func)0, FALSE);
 # endif  # endif
   # if defined(PARALLEL_MARK) || defined(THREAD_LOCAL_ALLOC)
       GC_ASSERT(0 == GC_fl_builder_count);
   # endif
   
 }  }
   
Line 958  GC_bool ignore_old;
Line 1030  GC_bool ignore_old;
   
         GET_TIME(start_time);          GET_TIME(start_time);
 #   endif  #   endif
       GC_timerstart();
         GC_timerstart();  
     for (kind = 0; kind < GC_n_kinds; kind++) {      for (kind = 0; kind < GC_n_kinds; kind++) {
         ok = &(GC_obj_kinds[kind]);          ok = &(GC_obj_kinds[kind]);
         rlp = ok -> ok_reclaim_list;          rlp = ok -> ok_reclaim_list;
Line 981  GC_bool ignore_old;
Line 1053  GC_bool ignore_old;
             }              }
         }          }
     }      }
         GC_timerstop();      GC_timerstop();
 #   ifdef PRINTTIMES  #   ifdef PRINTTIMES
         GET_TIME(done_time);          GET_TIME(done_time);
         GC_printf1("Disposing of reclaim lists took %lu msecs\n",          GC_printf1("Disposing of reclaim lists took %lu msecs\n",

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>