Add GC_trigger_collection API

2 files changed, 12 insertions, 0 deletions

diff --git a/alloc.c b/alloc.c
index 095e53b4..af51ffcd 100644
--- a/alloc.c
+++ b/alloc.c
@@ -366,6 +366,12 @@ STATIC void GC_clear_a_few_frames(void)
 /* Heap size at which we need a collection to avoid expanding past      */
 /* limits used by blacklisting.                                         */
 STATIC word GC_collect_at_heapsize = (word)(-1);
+STATIC GC_bool GC_should_trigger_collection = FALSE;
+
+GC_API void GC_trigger_collection()
+{
+  GC_should_trigger_collection = TRUE;
+}
 
 /* Have we allocated enough to amortize a collection? */
 GC_INNER GC_bool GC_should_collect(void)
@@ -376,6 +382,11 @@ GC_INNER GC_bool GC_should_collect(void)
       last_gc_no = GC_gc_no;
       last_min_bytes_allocd = min_bytes_allocd();
     }
+    if (GC_should_trigger_collection)
+    {
+      GC_should_trigger_collection = FALSE;
+      return TRUE;
+    }
     return(GC_adj_bytes_allocd() >= last_min_bytes_allocd
            || GC_heapsize >= GC_collect_at_heapsize);
 }
diff --git a/include/gc.h b/include/gc.h
index 13c7c2a9..615e4961 100644
--- a/include/gc.h
+++ b/include/gc.h
@@ -2034,6 +2034,7 @@ GC_API void GC_CALL GC_stop_world_external(void);
 GC_API void GC_CALL GC_start_world_external(void);
 
 GC_API void GC_CALL GC_disable_incremental(void);
+GC_API void GC_CALL GC_trigger_collection (void);
 
 /* APIs for getting access to raw GC heap */
 /* These are NOT thread safe, so should be called with GC lock held */