Changeset 15270 in project

Timestamp:

07/28/09 14:53:18 (10 years ago)

Author:

felix winkelmann

Message:

enabled gc-report shows reclaimed locative-table entries

Location:

chicken/trunk

Files:

• TODO (modified) (1 diff)
• runtime.c (modified) (5 diffs)

chicken/trunk/TODO

@@ -92 +92 @@
 *** Use record-descriptors instead of symbols as 1st slot in structure objects?
 **** see Kon's proposal for new record-descriptors in "misc/Chicken Runtime Data Type Proposal"
+*** Weak locatives can probably be used to implement weak hash-tables
 
 ** syntax-error

chicken/trunk/runtime.c

@@ -3394 +3394 @@
 C_regparm void C_fcall update_locative_table(int mode)
 {
-  int i, hi = 0;
+  int i, hi = 0, invalidated = 0;
   C_header h;
   C_word loc, obj, obj2, offset, loc2, ptr;
   C_uword ptr2;
-
-  /*C_printf("major: %d, %d locs in %d\n", major, locative_table_count, locative_table_size); */
 
   for(i = 0; i < locative_table_count; ++i) {
@@ -3416 +3414 @@
           locative_table[ i ] = C_SCHEME_UNDEFINED;
           C_set_block_item(loc, 0, 0);
+          ++invalidated;
           break;
         }
@@ -3443 +3442 @@
           locative_table[ i ] = C_SCHEME_UNDEFINED;
           C_set_block_item(loc, 0, 0);
+          ++invalidated;
           break;
         }
@@ -3471 +3471 @@
           locative_table[ i ] = C_SCHEME_UNDEFINED; /* pointed-at object is dead */
           C_set_block_item(loc, 0, 0);
+          ++invalidated;
         }
         
@@ -3485 +3486 @@
     }
   }
+
+  if(gc_report_flag && invalidated > 0)
+    C_printf(C_text("[GC] locative-table entries reclaimed: %d\n"), invalidated);
 
   if(mode != GC_REALLOC) locative_table_count = hi;