[PATCH] resources.c

[Bryan C. Warnock]

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]