This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Change label name; rmv extraneous goto
authorKarl Williamson <khw@cpan.org>
Fri, 24 Apr 2020 17:41:31 +0000 (11:41 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 12 Oct 2020 15:45:47 +0000 (09:45 -0600)
The name was misleading.  There are other things being done here.  And
previous restructuring led to a goto immediately prior to where it went
to.

regcomp.c

index 55d8b92..ebdbab2 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -12774,13 +12774,13 @@ S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
             reginsert(pRExC_state, STAR, ret, depth+1);
             MARK_NAUGHTY(4);
             RExC_seen |= REG_UNBOUNDED_QUANTIFIER_SEEN;
-            goto nest_check;
+            goto done_main_op;
         }
         if (min == 1 && max == REG_INFTY) {
             reginsert(pRExC_state, PLUS, ret, depth+1);
             MARK_NAUGHTY(3);
             RExC_seen |= REG_UNBOUNDED_QUANTIFIER_SEEN;
-            goto nest_check;
+            goto done_main_op;
         }
         MARK_NAUGHTY_EXP(2, 2);
         reginsert(pRExC_state, CURLY, ret, depth+1);
@@ -12823,9 +12823,7 @@ S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
     if (max == REG_INFTY)
         RExC_seen |= REG_UNBOUNDED_QUANTIFIER_SEEN;
 
-    goto nest_check;
-
-  nest_check:
+  done_main_op:
 
     if (*RExC_parse == '?') {
         nextchar(pRExC_state);