Changeset 15270 in project
- Timestamp:
- 07/28/09 14:53:18 (12 years ago)
- Location:
- chicken/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/TODO
r15262 r15270 92 92 *** Use record-descriptors instead of symbols as 1st slot in structure objects? 93 93 **** see Kon's proposal for new record-descriptors in "misc/Chicken Runtime Data Type Proposal" 94 *** Weak locatives can probably be used to implement weak hash-tables 94 95 95 96 ** syntax-error -
chicken/trunk/runtime.c
r14237 r15270 3394 3394 C_regparm void C_fcall update_locative_table(int mode) 3395 3395 { 3396 int i, hi = 0 ;3396 int i, hi = 0, invalidated = 0; 3397 3397 C_header h; 3398 3398 C_word loc, obj, obj2, offset, loc2, ptr; 3399 3399 C_uword ptr2; 3400 3401 /*C_printf("major: %d, %d locs in %d\n", major, locative_table_count, locative_table_size); */3402 3400 3403 3401 for(i = 0; i < locative_table_count; ++i) { … … 3416 3414 locative_table[ i ] = C_SCHEME_UNDEFINED; 3417 3415 C_set_block_item(loc, 0, 0); 3416 ++invalidated; 3418 3417 break; 3419 3418 } … … 3443 3442 locative_table[ i ] = C_SCHEME_UNDEFINED; 3444 3443 C_set_block_item(loc, 0, 0); 3444 ++invalidated; 3445 3445 break; 3446 3446 } … … 3471 3471 locative_table[ i ] = C_SCHEME_UNDEFINED; /* pointed-at object is dead */ 3472 3472 C_set_block_item(loc, 0, 0); 3473 ++invalidated; 3473 3474 } 3474 3475 … … 3485 3486 } 3486 3487 } 3488 3489 if(gc_report_flag && invalidated > 0) 3490 C_printf(C_text("[GC] locative-table entries reclaimed: %d\n"), invalidated); 3487 3491 3488 3492 if(mode != GC_REALLOC) locative_table_count = hi;
Note: See TracChangeset
for help on using the changeset viewer.