mrc_ccontext_cleanup_local_variables()

Author: hasumikin

include/mrc_ccontext.h

@@ -67,6 +67,7 @@ typedef struct mrc_ccontext {
 } mrc_ccontext;                 /* compiler context */
 
 mrc_ccontext *mrc_ccontext_new(mrb_state *mrb);
+void mrc_ccontext_cleanup_local_variables(mrc_ccontext *c);
 const char *mrc_ccontext_filename(mrc_ccontext *c, const char *s);
 void mrc_ccontext_free(mrc_ccontext *c);
 

src/ccontext.c

@@ -17,6 +17,18 @@ mrc_ccontext_new(mrb_state *mrb)
   return c;
 }
 
+
+MRC_API void
+mrc_ccontext_cleanup_local_variables(mrc_ccontext *c)
+{
+  if (c->syms) {
+    mrc_free(c->syms);
+    c->syms = NULL;
+    c->slen = 0;
+  }
+  c->keep_lv = FALSE;
+}
+
 MRC_API const char *
 mrc_ccontext_filename(mrc_ccontext *c, const char *s)
 {