warnings: remove spurious suffixes on context

Rectify a bug that introduced suffixes out of place.

* src/complainc.c (complains): Handle all three special warning bits.
* src/scan-code.l (show_sub_message): Remove useless argument.
* tests/named-refs.at: Adjust.

Signed-off-by: Akim Demaille <akim@lrde.epita.fr>

diff --git a/src/complain.c b/src/complain.c
index 53bb5cb654a017394f3de4155905c35480a901f4..4b07e18c8f01a83704fa77639aeba39b119cac36 100644 (file)
--- a/src/complain.c
+++ b/src/complain.c
@@ -130,7 +130,7 @@ complains (const location *loc, warnings flags, const char *message,
        error_message (loc, fatal, _("fatal error"), message, args);
        exit (EXIT_FAILURE);
     }
        error_message (loc, fatal, _("fatal error"), message, args);
        exit (EXIT_FAILURE);
     }

-  else if (flags & (complaint | warnings_flag))
+  else if (flags & (complaint | warnings_flag | silent))

     {
       const char* prefix =
         flags & (errors_flag | complaint) ? _("error") : _("warning");
     {
       const char* prefix =
         flags & (errors_flag | complaint) ? _("error") : _("warning");

diff --git a/src/scan-code.l b/src/scan-code.l
index 522c5b9ce3c758286268216f52274f541e79f05d..62444840e1b7f3dbf1a74b12198ceb0e7d876f78 100644 (file)
--- a/src/scan-code.l
+++ b/src/scan-code.l
@@ -402,13 +402,12 @@ get_at_spec(unsigned symbol_index)
 static void
 show_sub_message (const char* cp, bool explicit_bracketing,
                   int midrule_rhs_index, char dollar_or_at,
 static void
 show_sub_message (const char* cp, bool explicit_bracketing,
                   int midrule_rhs_index, char dollar_or_at,

-                  warnings wflags, unsigned indent,
-                  const variant *var)
+                  unsigned indent, const variant *var)

 {
   const char *at_spec = get_at_spec (var->symbol_index);
 
   if (var->err == 0)
 {
   const char *at_spec = get_at_spec (var->symbol_index);
 
   if (var->err == 0)

-    complain_at_indent (var->loc, wflags, &indent,
+    complain_at_indent (var->loc, silent, &indent,

                         _("refers to: %c%s at %s"), dollar_or_at,
                         var->id, at_spec);
   else
                         _("refers to: %c%s at %s"), dollar_or_at,
                         var->id, at_spec);
   else


@@ -445,7 +444,7 @@ show_sub_message (const char* cp, bool explicit_bracketing,
                         _(", cannot be accessed from mid-rule action at $%d"),
                         midrule_rhs_index);
 
                         _(", cannot be accessed from mid-rule action at $%d"),
                         midrule_rhs_index);
 

-      complain_at_indent (id_loc, wflags, &indent, "%s",
+      complain_at_indent (id_loc, silent, &indent, "%s",

                           obstack_finish0 (&msg_buf));
       obstack_free (&msg_buf, 0);
     }
                           obstack_finish0 (&msg_buf));
       obstack_free (&msg_buf, 0);
     }


@@ -454,14 +453,14 @@ show_sub_message (const char* cp, bool explicit_bracketing,
 static void
 show_sub_messages (const char* cp, bool explicit_bracketing,
                    int midrule_rhs_index, char dollar_or_at,
 static void
 show_sub_messages (const char* cp, bool explicit_bracketing,
                    int midrule_rhs_index, char dollar_or_at,

-                   warnings wflags, unsigned indent)
+                   unsigned indent)

 {
   unsigned i;
 
   for (i = 0; i < variant_count; ++i)
     show_sub_message (cp, explicit_bracketing,
                       midrule_rhs_index, dollar_or_at,
 {
   unsigned i;
 
   for (i = 0; i < variant_count; ++i)
     show_sub_message (cp, explicit_bracketing,
                       midrule_rhs_index, dollar_or_at,

-                      wflags, indent, &variant_table[i]);
+                      indent, &variant_table[i]);

 }
 
 /* Returned from "parse_ref" when the reference
 }
 
 /* Returned from "parse_ref" when the reference


@@ -614,7 +613,7 @@ parse_ref (char *cp, symbol_list *rule, int rule_length,
 
         if (variant_count > 0)
           show_sub_messages (cp, explicit_bracketing, midrule_rhs_index,
 
         if (variant_count > 0)
           show_sub_messages (cp, explicit_bracketing, midrule_rhs_index,

-                             dollar_or_at, complaint, indent);
+                             dollar_or_at, indent);

         return INVALID_REF;
       }
     case 1:
         return INVALID_REF;
       }
     case 1:


@@ -625,7 +624,7 @@ parse_ref (char *cp, symbol_list *rule, int rule_length,
             complain_at_indent (text_loc, Wother, &indent,
                                 _("misleading reference: %s"), quote (text));
             show_sub_messages (cp, explicit_bracketing, midrule_rhs_index,
             complain_at_indent (text_loc, Wother, &indent,
                                 _("misleading reference: %s"), quote (text));
             show_sub_messages (cp, explicit_bracketing, midrule_rhs_index,

-                               dollar_or_at, Wother, indent + SUB_INDENT);
+                               dollar_or_at, indent + SUB_INDENT);

           }
         {
           unsigned symbol_index =
           }
         {
           unsigned symbol_index =


@@ -640,7 +639,7 @@ parse_ref (char *cp, symbol_list *rule, int rule_length,
         complain_at_indent (text_loc, complaint, &indent,
                             _("ambiguous reference: %s"), quote (text));
         show_sub_messages (cp, explicit_bracketing, midrule_rhs_index,
         complain_at_indent (text_loc, complaint, &indent,
                             _("ambiguous reference: %s"), quote (text));
         show_sub_messages (cp, explicit_bracketing, midrule_rhs_index,

-                           dollar_or_at, complaint, indent + SUB_INDENT);
+                           dollar_or_at, indent + SUB_INDENT);

         return INVALID_REF;
       }
     }
         return INVALID_REF;
       }
     }

diff --git a/tests/named-refs.at b/tests/named-refs.at
index 1cd55b31df18de191f3aec51578e5062b569aa01..ff1d424817dab6f9fcd1bd83e9756d0d948bbf36 100644 (file)
--- a/tests/named-refs.at
+++ b/tests/named-refs.at
@@ -254,9 +254,9 @@ AT_BISON_CHECK([-o test.c test.y], 1, [],
 [[test.y:50.51-60: error: invalid reference: '$<ival>lo9'
 test.y:50.3-68:      symbol not found in production: lo9
 test.y:51.51-60: warning: misleading reference: '$<ival>exp' [-Wother]
 [[test.y:50.51-60: error: invalid reference: '$<ival>lo9'
 test.y:50.3-68:      symbol not found in production: lo9
 test.y:51.51-60: warning: misleading reference: '$<ival>exp' [-Wother]

-test.y:42.1-3:       refers to: $exp at $$ [-Wother]
-test.y:51.7:         possibly meant: $x, hiding $exp at $1 [-Wother]
-test.y:51.41:        possibly meant: $r, hiding $exp at $4 [-Wother]
+test.y:42.1-3:       refers to: $exp at $$
+test.y:51.7:         possibly meant: $x, hiding $exp at $1
+test.y:51.41:        possibly meant: $r, hiding $exp at $4

 test.y:52.51-52: error: $l of 'exp' has no declared type
 test.y:55.46-49: error: invalid reference: '$r12'
 test.y:55.3-53:      symbol not found in production: r12
 test.y:52.51-52: error: $l of 'exp' has no declared type
 test.y:55.46-49: error: invalid reference: '$r12'
 test.y:55.3-53:      symbol not found in production: r12


@@ -278,8 +278,8 @@ foo.bar: '2'
 ]])
 AT_BISON_CHECK([-o test.c test.y], 0, [],
 [[test.y:11.22-29: warning: misleading reference: '$foo.bar' [-Wother]
 ]])
 AT_BISON_CHECK([-o test.c test.y], 0, [],
 [[test.y:11.22-29: warning: misleading reference: '$foo.bar' [-Wother]

-test.y:11.8-10:      refers to: $foo at $1 [-Wother]
-test.y:11.12-18:     possibly meant: $[foo.bar] at $2 [-Wother]
+test.y:11.8-10:      refers to: $foo at $1
+test.y:11.12-18:     possibly meant: $[foo.bar] at $2

 ]])
 AT_CLEANUP
 
 ]])
 AT_CLEANUP