Fixes a couple GC problems. 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 06:22:04 -0000 @@ -394,8 +394,8 @@ 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++) { - if (STACK_ENTRY_PMC == cur_stack->entry[i].flags) { + for (i = 0; i < cur_stack->used; i++) { + if (STACK_ENTRY_PMC == cur_stack->entry[i].entry_type) { last = mark_used(cur_stack->entry[i].entry.pmc_val, last); } } @@ -471,8 +471,8 @@ 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++) { - if (STACK_ENTRY_STRING == cur_stack->entry[i].flags) { + for (i = 0; i < cur_stack->used; i++) { + if (STACK_ENTRY_STRING == cur_stack->entry[i].entry_type) { buffer_lives((Buffer *)cur_stack->entry[i].entry.string_val); } }
-- Bryan C. Warnock [EMAIL PROTECTED]