register<nlocals may not have a local variable name (e.g. a block arg); fix #2258

mrbgems/mruby-proc-ext/src/proc.c

@@ -142,8 +142,10 @@ mrb_local_variables(mrb_state *mrb, mrb_value self)
   }
   ret = mrb_ary_new_capa(mrb, irep->nlocals - 1);
   for (i = 0; i + 1 < irep->nlocals; ++i) {
+    if (irep->lv[i].name) {
       mrb_ary_push(mrb, ret, mrb_symbol_value(irep->lv[i].name));
     }
+  }
   if (proc->env) {
     struct REnv *e = proc->env;
 
@@ -152,10 +154,12 @@ mrb_local_variables(mrb_state *mrb, mrb_value self)
         irep = mrb->c->cibase[e->cioff].proc->body.irep;
         if (irep->lv) {
           for (i = 0; i + 1 < irep->nlocals; ++i) {
+            if (irep->lv[i].name) {
               mrb_ary_push(mrb, ret, mrb_symbol_value(irep->lv[i].name));
             }
           }
         }
+      }
       e = (struct REnv*)e->c;
     }
   }

src/codegen.c

@@ -2503,8 +2503,13 @@ scope_new(mrb_state *mrb, codegen_scope *prev, node *lv)
     p->irep->lv = (struct mrb_locals*)mrb_malloc(mrb, sizeof(struct mrb_locals) * (p->nlocals - 1));
     for (i=0, n=lv; n; i++,n=n->cdr) {
       p->irep->lv[i].name = lv_name(n);
+      if (lv_name(n)) {
         p->irep->lv[i].r = lv_idx(p, lv_name(n));
       }
+      else {
+        p->irep->lv[i].r = 0;
+      }
+    }
     mrb_assert(i + 1 == p->nlocals);
   }
   p->ai = mrb_gc_arena_save(mrb);