From ddd9073c71ea80702a0c3d67ebd644b5f93ce07e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 25 Oct 2015 11:33:22 -0700
Subject: Expose memory region marking function.

* gc.c (gc_mark_mem): New function.

* gc.h (gc_mark_mem): Declared.
---
 gc.c | 5 +++++
 gc.h | 1 +
 2 files changed, 6 insertions(+)

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);
-- 
cgit v1.2.3