Expose memory region marking function.

* gc.c (gc_mark_mem): New function.

* gc.h (gc_mark_mem): Declared.

2 files changed, 6 insertions, 0 deletions

diff --git a/gc.c b/gc.c
index 7762a3a2..4892f133 100644
--- a/gc.c
+++ b/gc.c
@@ -735,6 +735,11 @@ void gc_conservative_mark(val maybe_obj)
   mark_obj_maybe(maybe_obj);
 }
 
+void gc_mark_mem(val *low, val *high)
+{
+  mark_mem_region(low, high);
+}
+
 int gc_is_reachable(val obj)
 {
   return is_ptr(obj) ? is_reachable(obj) : 1;
diff --git a/gc.h b/gc.h
index 183348f8..d3f3ba86 100644
--- a/gc.h
+++ b/gc.h
@@ -34,6 +34,7 @@ void gc(void);
 int gc_state(int);
 void gc_mark(val);
 void gc_conservative_mark(val);
+void gc_mark_mem(val *low, val *high);
 int gc_is_reachable(val);
 val gc_finalize(val obj, val fun, val rev_order_p);
 val gc_call_finalizers(val obj);