From e0f25b1fda0c9c67526885fafdabf35d4d4039b7 Mon Sep 17 00:00:00 2001 From: mattn Date: Fri, 15 Feb 2013 13:55:41 +0900 Subject: ready to pass second argument of Regexp.new --- src/codegen.c | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'src/codegen.c') diff --git a/src/codegen.c b/src/codegen.c index d1242a29f..86cb5eb87 100644 --- a/src/codegen.c +++ b/src/codegen.c @@ -16,6 +16,7 @@ #include #include #include +#include "re.h" typedef mrb_ast_node node; typedef struct mrb_parser_state parser_state; @@ -1912,12 +1913,14 @@ codegen(codegen_scope *s, node *tree, int val) case NODE_REGX: if (val) { - char *p = (char*)tree->car; - size_t len = (intptr_t)tree->cdr; + char *p1 = (char*)tree->car; + //char *p2 = (char*)tree->cdr; int ai = mrb_gc_arena_save(s->mrb); - struct RClass* c = mrb_class_get(s->mrb, "Regexp"); - mrb_value args[1]; - args[0] = mrb_str_new(s->mrb, p, len); + struct RClass* c = mrb_class_get(s->mrb, REGEXP_CLASS); + mrb_value args[2]; + args[0] = mrb_str_new(s->mrb, p1, strlen(p1)); + // TODO: Some regexp implementation does not have second argument + //args[1] = mrb_str_new(s->mrb, p2, strlen(p2)); int off = new_lit(s, mrb_class_new_instance(s->mrb, 1, args, c)); -- cgit v1.2.3