add new function mrb_parser_free()

include/mruby/compile.h

@@ -98,6 +98,7 @@ struct mrb_parser_state {
 };
 
 struct mrb_parser_state* mrb_parser_new(mrb_state*);
+void mrb_parser_free(struct mrb_parser_state*);
 const char *mrb_parser_filename(struct mrb_parser_state*, const char*);
 void mrb_parser_parse(struct mrb_parser_state*,mrbc_context*);
 

src/parse.y

@@ -4775,6 +4775,11 @@ mrb_parser_new(mrb_state *mrb)
   return p;
 }
 
+void
+mrb_parser_free(parser_state *p) {
+  mrb_pool_close(p->pool);
+}
+
 mrbc_context*
 mrbc_context_new(mrb_state *mrb)
 {

tools/mirb/mirb.c

@@ -231,7 +231,7 @@ main(void)
         memset(ruby_code, 0, sizeof(*ruby_code));
         memset(ruby_code, 0, sizeof(*last_code_line));
       }
-      mrb_pool_close(parser->pool);
+      mrb_parser_free(parser);
     }
   }
   mrbc_context_free(mrb, cxt);