yyparse: replace yynewstate label with while(1) {}

makes the code easier to understand

1 files changed, 4 insertions, 7 deletions

diff --git a/perly.c b/perly.c
index 0fb131376b..ac3b06818d 100644
--- a/perly.c
+++ b/perly.c
@@ -288,11 +288,8 @@ Perl_yyparse (pTHX_ int gramtype)
     ps->state = 0;
     SAVEDESTRUCTOR_X(S_clear_yystack, parser);
 
-/*------------------------------------------------------------.
-| yynewstate -- Push a new state, which is found in yystate.  |
-`------------------------------------------------------------*/
-  yynewstate:
-
+    while (1) {
+        /* main loop: shift some tokens, then reduce when possible */
 
     while (1) {
 
@@ -461,7 +458,7 @@ Perl_yyparse (pTHX_ int gramtype)
 	yystate = yydefgoto[yyn - YYNTOKENS];
     ps->state = yystate;
 
-    goto yynewstate;
+    continue;
 
 
   /*------------------------------------.
@@ -565,7 +562,7 @@ Perl_yyparse (pTHX_ int gramtype)
     ps->name    ="<err>";
 #endif
 
-    goto yynewstate;
+    } /* main loop */
 
 
   /*-------------------------------------.