[netlabs #626] [PATCH] reclaimed fix

[via RT]

# New Ticket Created by  Mike Lambert 
# Please include the string:  [netlabs #626]
# in the subject line of all future correspondence about this issue. 
# <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=626 >


Looksd like the logic for keeping track of unclaimed buffer data missed a
few places. Patch below.

Mike

Index: resources.c
===================================================================
RCS file: /cvs/public/parrot/resources.c,v
retrieving revision 1.59
diff -u -r1.59 resources.c
--- resources.c 24 May 2002 16:11:08 -0000      1.59
+++ resources.c 26 May 2002 19:57:16 -0000
@@ -1014,6 +1014,7 @@

     buffer = from;
     copysize = (buffer->buflen > tosize ? tosize : buffer->buflen);
+    interpreter->arena_base->memory_pool->reclaimable += buffer->buflen;

     mem = mem_allocate(interpreter, &alloc_size,
                        interpreter->arena_base->memory_pool);
@@ -1046,6 +1047,7 @@
     pool = (str->flags & BUFFER_constant_FLAG)
          ? interpreter->arena_base->constant_string_pool
          : interpreter->arena_base->string_pool;
+    pool->reclaimable += str->buflen;

     mem = mem_allocate(interpreter, &alloc_size, pool);
     if (!mem) {