diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/codegen.c | 8 | ||||
| -rw-r--r-- | src/parse.y | 8 | ||||
| -rw-r--r-- | src/re.h | 1 |
3 files changed, 8 insertions, 9 deletions
diff --git a/src/codegen.c b/src/codegen.c index 86cb5eb87..8cb571a28 100644 --- a/src/codegen.c +++ b/src/codegen.c @@ -1918,12 +1918,12 @@ codegen(codegen_scope *s, node *tree, int val) int ai = mrb_gc_arena_save(s->mrb); struct RClass* c = mrb_class_get(s->mrb, REGEXP_CLASS); mrb_value args[2]; + int off; + 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)); - + //args[1] = mrb_str_new(s->mrb, p2, strlen(p2)) + off = new_lit(s, mrb_class_new_instance(s->mrb, 1, args, c)); mrb_gc_arena_restore(s->mrb, ai); genop(s, MKOP_ABx(OP_LOADL, cursp(), off)); push(); diff --git a/src/parse.y b/src/parse.y index afcc5aabc..365bc5f18 100644 --- a/src/parse.y +++ b/src/parse.y @@ -3447,8 +3447,9 @@ parse_string(parser_state *p, int term) if (p->regexp) { int f = 0; int c; - char* s; - s = strndup(tok(p), toklen(p)); + char *s = strndup(tok(p), toklen(p)); + char flag[4] = { '\0' }; + newtok(p); while (c = nextc(p), ISALPHA(c)) { switch (c) { @@ -3466,7 +3467,6 @@ parse_string(parser_state *p, int term) toklen(p) > 1 ? "s" : "", tok(p)); yyerror(p, msg); } - char flag[4] = {0}; if (f & 1) strcat(flag, "i"); if (f & 2) strcat(flag, "x"); if (f & 4) strcat(flag, "m"); @@ -5499,7 +5499,7 @@ parser_dump(mrb_state *mrb, node *tree, int offset) break; case NODE_REGX: - printf("NODE_REGX /%s/\n", (char*)tree->car->cdr->car); + printf("NODE_REGX /%s/%s\n", (char*)tree->car, (char*)tree->cdr); break; case NODE_SYM: @@ -7,7 +7,6 @@ #ifndef RE_H #define RE_H -//#define REGEXP_CLASS "HsRegexp" #define REGEXP_CLASS "Regexp" #endif |