From c52bbe1b4e97d6580cced6c1b3819bd2e9289cc8 Mon Sep 17 00:00:00 2001 From: "Yukihiro \"Matz\" Matsumoto" Date: Tue, 28 Feb 2017 10:43:22 +0900 Subject: Fixed a bug in dregex option generation; fix #3471 --- mrbgems/mruby-compiler/core/codegen.c | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'mrbgems/mruby-compiler/core/codegen.c') diff --git a/mrbgems/mruby-compiler/core/codegen.c b/mrbgems/mruby-compiler/core/codegen.c index 23e036d49..f198dbd5b 100644 --- a/mrbgems/mruby-compiler/core/codegen.c +++ b/mrbgems/mruby-compiler/core/codegen.c @@ -2473,16 +2473,23 @@ codegen(codegen_scope *s, node *tree, int val) pop(); genop_peep(s, MKOP_AB(OP_STRCAT, cursp(), cursp()+1), VAL); } - if (n->cdr) { - char *p2 = (char*)n->cdr; + if (n->cdr->car) { + char *p2 = (char*)n->cdr->car; push(); off = new_lit(s, mrb_str_new_cstr(s->mrb, p2)); genop(s, MKOP_ABx(OP_STRING, cursp(), off)); argc++; - pop(); } - pop(); + if (n->cdr->cdr) { + char *p2 = (char*)n->cdr->cdr; + + push(); + off = new_lit(s, mrb_str_new_cstr(s->mrb, p2)); + genop(s, MKOP_ABx(OP_STRING, cursp(), off)); + argc++; + } + pop_n(argc); sym = new_sym(s, mrb_intern_lit(s->mrb, "compile")); genop(s, MKOP_ABC(OP_SEND, cursp(), sym, argc)); mrb_gc_arena_restore(s->mrb, ai); -- cgit v1.2.3