(r_alloc_size_in_use): New function.

(r_alloc_free): Call refill_memory_reserve.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/ralloc.c b/src/ralloc.c
index 5a2e507feb2..f27d0c64636 100644
--- 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;
+}
 
 /* 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.