* src/output.c (token_actions): Introduce a temporary array,

[bison.git] / src / bison.s1

diff --git a/src/bison.s1 b/src/bison.s1
index f3cc2f6f336921c80738178cb494a971a676b455..62859b2724af262a4b5dd358dcb313ca6a51a150 100644 (file)
--- a/src/bison.s1
+++ b/src/bison.s1
@@ -151,7 +151,7 @@ int yynerrs;
 #endif  /* not YYPURE */
 
 
 #endif  /* not YYPURE */
 
 

-#if YYDEBUG != 0
+#if YYDEBUG

 int yydebug;                   /*  nonzero means print parse trace     */
 
   /* [The following comment makes no sense to me.  Could someone
 int yydebug;                   /*  nonzero means print parse trace     */
 
   /* [The following comment makes no sense to me.  Could someone


@@ -309,10 +309,15 @@ yyparse(YYPARSE_PARAM_ARG)
 #endif
 
 
 #endif
 
 

-  /* The variable used to return semantic values from the action
-     routines.  */
+  /* The variables used to return semantic value and location from the
+     action routines.  */

   YYSTYPE yyval;
   YYSTYPE yyval;

+# ifdef YYLSP_NEEDED
+  YYLTYPE yyloc;
+# endif

 
 

+  /* When reducing, the number of symbols on the RHS of the reduced
+     rule. */

   int yylen;
 
   if (yydebug)
   int yylen;
 
   if (yydebug)


@@ -465,16 +470,20 @@ yynewstate:
     {
       yychar1 = YYTRANSLATE(yychar);
 
     {
       yychar1 = YYTRANSLATE(yychar);
 

+#if YYDEBUG
+     /* We have to keep this `#if YYDEBUG', since we use variables
+       which are defined only if `YYDEBUG' is set.  */

       if (yydebug)
        {
          fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
       if (yydebug)
        {
          fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);

-         /* Give the individual parser a way to print the precise meaning
-            of a token, for further debugging info.  */
+         /* Give the individual parser a way to print the precise
+            meaning of a token, for further debugging info.  */

 # ifdef YYPRINT
          YYPRINT (stderr, yychar, yylval);
 # endif
          fprintf (stderr, ")\n");
        }
 # ifdef YYPRINT
          YYPRINT (stderr, yychar, yylval);
 # endif
          fprintf (stderr, ")\n");
        }

+#endif

     }
 
   yyn += yychar1;
     }
 
   yyn += yychar1;


@@ -504,9 +513,10 @@ yynewstate:
     YYACCEPT;
 
   /* Shift the lookahead token.  */
     YYACCEPT;
 
   /* Shift the lookahead token.  */

-
+#if YYDEBUG

   if (yydebug)
     fprintf (stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
   if (yydebug)
     fprintf (stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);

+#endif

 
   /* Discard the token being shifted unless it is eof.  */
   if (yychar != YYEOF)
 
   /* Discard the token being shifted unless it is eof.  */
   if (yychar != YYEOF)


@@ -533,8 +543,27 @@ yydefault:
 /* Do a reduction.  yyn is the number of a rule to reduce with.  */
 yyreduce:
   yylen = yyr2[yyn];
 /* Do a reduction.  yyn is the number of a rule to reduce with.  */
 yyreduce:
   yylen = yyr2[yyn];

+  /* Implement default value of the action:
+     `{dollar}{dollar} = {dollar}1'. */
+  if (yylen > 0)
+      yyval = yyvsp[1-yylen];
+#ifdef YYLSP_NEEDED
+  /* Implement default location.  If the rhs is empty, extend YYLOC to
+     YYLLOC, which corresponds to the current token, otherwise
+     implement `@{dollar} = Starts at @1, ends at @YYLEN'.  */

   if (yylen > 0)
   if (yylen > 0)

-    yyval = yyvsp[1-yylen]; /* implement default value of the action */
+    {
+      yyloc = yylsp[1-yylen];
+      yyloc.last_line = yylsp[0].last_line;
+      yyloc.last_column = yylsp[0].last_column;
+    }
+  else
+    {
+      yyloc.last_line = yylsp[0].last_line;
+      yyloc.last_column = yylsp[0].last_column;
+      yyloc.text = 0;
+    }
+#endif

 
 #if YYDEBUG
   /* We have to keep this `#if YYDEBUG', since we use variables which
 
 #if YYDEBUG
   /* We have to keep this `#if YYDEBUG', since we use variables which


@@ -571,22 +600,8 @@ $   /* the action file gets copied in in place of this dollarsign */
     }
 
   *++yyvsp = yyval;
     }
 
   *++yyvsp = yyval;

-

 #ifdef YYLSP_NEEDED
 #ifdef YYLSP_NEEDED

-  yylsp++;
-  if (yylen == 0)
-    {
-      yylsp->first_line = yylloc.first_line;
-      yylsp->first_column = yylloc.first_column;
-      yylsp->last_line = (yylsp-1)->last_line;
-      yylsp->last_column = (yylsp-1)->last_column;
-      yylsp->text = 0;
-    }
-  else
-    {
-      yylsp->last_line = (yylsp+yylen-1)->last_line;
-      yylsp->last_column = (yylsp+yylen-1)->last_column;
-    }
+  *++yylsp = yyloc;

 #endif
 
   /* Now `shift' the result of the reduction.  Determine what state
 #endif
 
   /* Now `shift' the result of the reduction.  Determine what state


@@ -625,10 +640,14 @@ yyerrlab:   /* here on detecting error */
               x < (sizeof(yytname) / sizeof(char *)); x++)
            if (yycheck[x + yyn] == x)
              size += strlen(yytname[x]) + 15, count++;
               x < (sizeof(yytname) / sizeof(char *)); x++)
            if (yycheck[x + yyn] == x)
              size += strlen(yytname[x]) + 15, count++;

-         msg = (char *) malloc(size + 15);
+         size += strlen ("parse error, unexpected `") + 1;
+         size += strlen (yytname[YYTRANSLATE (yychar)]);
+         msg = (char *) malloc (size);

          if (msg != 0)
            {
          if (msg != 0)
            {

-             strcpy(msg, "parse error");
+             strcpy (msg, "parse error, unexpected `");
+             strcat (msg, yytname[YYTRANSLATE (yychar)]);
+             strcat (msg, "'");

 
              if (count < 5)
                {
 
              if (count < 5)
                {


@@ -637,21 +656,21 @@ yyerrlab:   /* here on detecting error */
                       x < (sizeof(yytname) / sizeof(char *)); x++)
                    if (yycheck[x + yyn] == x)
                      {
                       x < (sizeof(yytname) / sizeof(char *)); x++)
                    if (yycheck[x + yyn] == x)
                      {

-                       strcat(msg, count == 0 ? ", expecting `" : " or `");
-                       strcat(msg, yytname[x]);
-                       strcat(msg, "'");
+                       strcat (msg, count == 0 ? ", expecting `" : " or `");
+                       strcat (msg, yytname[x]);
+                       strcat (msg, "'");

                        count++;
                      }
                }
                        count++;
                      }
                }

-             yyerror(msg);
-             free(msg);
+             yyerror (msg);
+             free (msg);

            }
          else
            yyerror ("parse error; also virtual memory exceeded");
        }
       else
 #endif /* YYERROR_VERBOSE */
            }
          else
            yyerror ("parse error; also virtual memory exceeded");
        }
       else
 #endif /* YYERROR_VERBOSE */

-       yyerror("parse error");
+       yyerror ("parse error");

     }
 
   goto yyerrlab1;
     }
 
   goto yyerrlab1;


@@ -664,11 +683,11 @@ yyerrlab1:   /* here on error raised explicitly by an action */
       /* return failure if at end of input */
       if (yychar == YYEOF)
        YYABORT;
       /* return failure if at end of input */
       if (yychar == YYEOF)
        YYABORT;

-
+#if YYDEBUG

       if (yydebug)
        fprintf (stderr, "Discarding token %d (%s).\n",
                 yychar, yytname[yychar1]);
       if (yydebug)
        fprintf (stderr, "Discarding token %d (%s).\n",
                 yychar, yytname[yychar1]);

-
+#endif

       yychar = YYEMPTY;
     }
 
       yychar = YYEMPTY;
     }