errors: show carets

[bison.git] / src / gram.c

diff --git a/src/gram.c b/src/gram.c
index d1b3804337bd55a622896ae571453fa696c77c62..5730e596026729c24c2cec1f7bd4f85527d92a8b 100644 (file)
--- a/src/gram.c
+++ b/src/gram.c
@@ -308,11 +308,16 @@ grammar_rules_useless_report (const char *message)
   for (r = 0; r < nrules ; ++r)
     if (!rules[r].useful)
       {
-        warn_at (rules[r].location, "%s: ", message);
-        if (warnings_flag & warnings_other)
+        if (feature_flag & feature_caret)
+          warn_at (rules[r].location, "%s", message);
+        else
           {
-            rule_print (&rules[r], stderr);
-            fflush (stderr);
+            warn_at (rules[r].location, "%s: ", message);
+            if (warnings_flag & warnings_other)
+              {
+                rule_print (&rules[r], stderr);
+                fflush (stderr);
+              }
           }
       }
 }