Fixes some UMRs, and makes GC a smidgen zippier. Index: resources.c =================================================================== RCS file: /home/perlcvs/parrot/resources.c,v retrieving revision 1.31 diff -u -r1.31 resources.c --- resources.c 18 Mar 2002 20:15:02 -0000 1.31 +++ resources.c 22 Mar 2002 05:07:20 -0000 @@ -394,7 +394,7 @@ chunks_traced = 0; /* The general stack's circular, so we need to be careful */ while(cur_stack && ((start_stack != cur_stack) || (chunks_traced == 0))) { - for (i = 0; i < STACK_CHUNK_DEPTH; i++) { + for (i = 0; i < cur_stack->used; i++) { if (STACK_ENTRY_PMC == cur_stack->entry[i].flags) { last = mark_used(cur_stack->entry[i].entry.pmc_val, last); } @@ -471,7 +471,7 @@ chunks_traced = 0; /* The general stack's circular, so we need to be careful */ while(cur_stack && ((start_stack != cur_stack) || (chunks_traced == 0))) { - for (i = 0; i < STACK_CHUNK_DEPTH; i++) { + for (i = 0; i < cur_stack->used; i++) { if (STACK_ENTRY_STRING == cur_stack->entry[i].flags) { buffer_lives((Buffer *)cur_stack->entry[i].entry.string_val); }
-- Bryan C. Warnock [EMAIL PROTECTED]