1 files changed, 14 insertions, 0 deletions
diff --git a/mfd/prog.c b/mfd/prog.c
index 3c92a9a7..90a426eb 100644
--- a/mfd/prog.c
+++ b/mfd/prog.c
@@ -656,2 +656,10 @@ heap_obstack_begin(eval_environ_t env)
 
+void
+heap_obstack_cancel(eval_environ_t env)
+{
+	env->toh = env->temp_start;
+	env->temp_start = 0;
+	env->temp_size = 0;
+}
+
 STKVAL
@@ -682,2 +690,8 @@ heap_obstack_grow(eval_environ_t env, void *ptr, size_t size)
 
+void *
+heap_obstack_base(eval_environ_t env)
+{
+	return (void*) env_data_ref(env, env->temp_start);
+}
+
 STKVAL *