From 30e0dc79566430a176dd2cfab593cd3620ba69da Mon Sep 17 00:00:00 2001 From: take_cheeze Date: Thu, 15 May 2014 15:08:30 +0900 Subject: Support `LVAR` section removing. --- src/etc.c | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'src/etc.c') diff --git a/src/etc.c b/src/etc.c index 58b1c91c0..96ddca05b 100644 --- a/src/etc.c +++ b/src/etc.c @@ -9,6 +9,7 @@ #include "mruby/data.h" #include "mruby/class.h" #include "mruby/re.h" +#include "mruby/irep.h" struct RData* mrb_data_object_alloc(mrb_state *mrb, struct RClass *klass, void *ptr, const mrb_data_type *type) @@ -182,3 +183,18 @@ mrb_regexp_p(mrb_state *mrb, mrb_value v) { return mrb_class_defined(mrb, REGEXP_CLASS) && mrb_obj_is_kind_of(mrb, v, mrb_class_get(mrb, REGEXP_CLASS)); } + +void +mrb_irep_remove_lv(mrb_state *mrb, mrb_irep *irep) +{ + size_t i; + + if (irep->lv) { + mrb_free(mrb, irep->lv); + irep->lv = NULL; + } + + for (i = 0; i < irep->rlen; ++i) { + mrb_irep_remove_lv(mrb, irep->reps[i]); + } +} -- cgit v1.2.3