Full gc should be done if driven by malloc.

* gc.c (gc): If the number of bytes malloced since the
last gc exceeds the gc delta, we must do do a full garbage
collection.  The mature generation is almost certainly holding
on to a lot of that memory.  A test case for this
is (lazy-str-force (lazy-str (get-lines (open-file "file")))).
The file doesn't even have to be very large.

1 files changed, 5 insertions, 0 deletions

diff --git a/gc.c b/gc.c
index af91bba7..9128e9d9 100644
--- a/gc.c
+++ b/gc.c
@@ -674,6 +674,11 @@ void gc(void)
 
   assert (gc_enabled);
 
+#if CONFIG_GEN_GC
+  if (malloc_bytes - prev_malloc_bytes >= opt_gc_delta)
+    full_gc = 1;
+#endif
+
   save_context(mc);
   gc_enabled = 0;
   mark(&mc, &gc_stack_top);