(r_alloc_size_in_use): New function.

(r_alloc_free): Call refill_memory_reserve.

diff --git a/src/ralloc.c b/src/ralloc.c
index 5a2e507feb22a97a5464872864a49535d4b3fb3c..f27d0c64636f43e70588f7ea6600233d96df65ff 100644 (file)
--- a/src/ralloc.c
+++ b/src/ralloc.c
@@ -347,6 +347,15 @@ relinquish ()
        abort ();
     }
 }
+
+/* Return the total size in use by relocating allocator,
+   above where malloc gets space.  */
+
+long
+r_alloc_size_in_use ()
+{
+  return break_value - virtual_break_value;
+}
 \f
 /* The meat - allocating, freeing, and relocating blocs.  */
 
@@ -890,6 +899,8 @@ r_alloc_free (ptr)
 
   free_bloc (dead_bloc);
   *ptr = 0;
+
+  refill_memory_reserve ();
 }
 
 /* Given a pointer at address PTR to relocatable data, resize it to SIZE.