fix to add start_code argument in calling of fetch_name()

diff --git a/src/regparse.c b/src/regparse.c
index 664f325f6754e8fe7224978157c6e5ff73f77457..04330a9cba1b33ecbdc26fff5beb46027e2b430f 100644 (file)
--- a/src/regparse.c
+++ b/src/regparse.c
@@ -4222,7 +4222,7 @@ fetch_token(OnigToken* tok, UChar** src, UChar* end, ScanEnv* env)
           if (r == 1) tok->u.backref.exist_level = 1;
           else        tok->u.backref.exist_level = 0;
 #else
-          r = fetch_name(&p, end, &name_end, env, &back_num, &num_type, 1);
+          r = fetch_name(c, &p, end, &name_end, env, &back_num, &num_type, 1);
 #endif
           if (r < 0) return r;
 
@@ -5491,7 +5491,8 @@ parse_enclosure(Node** np, OnigToken* tok, int term, UChar** src, UChar* end,
                     env, &back_num, &level, &num_type);
           if (r == 1) exist_level = 1;
 #else
-          r = fetch_name(&p, end, &name_end, env, &back_num, &num_type, 1);
+          r = fetch_name((OnigCodePoint )(is_enclosed != 0 ? c : '('),
+                         &p, end, &name_end, env, &back_num, &num_type, 1);
 #endif
           if (r < 0) {
             if (is_enclosed == 0) {