fix out of bounds read /(\k'k-0/

diff --git a/src/regparse.c b/src/regparse.c
index 1b1427ebf845450d94e76b923c258430f6823b93..1c89df9044ea86efd8fcd6604b74adf3c45f183b 100644 (file)
--- a/src/regparse.c
+++ b/src/regparse.c
@@ -2485,9 +2485,11 @@ fetch_name_with_level(OnigCodePoint start_code, UChar** src, UChar* end,
       *rlevel = (level * flag);
       exist_level = 1;
 
-      PFETCH(c);
-      if (c == end_code)
-        goto end;
+      if (!PEND) {
+       PFETCH(c);
+       if (c == end_code)
+         goto end;
+      }
     }
 
   err: