errors: show carets

[bison.git] / src / complain.c

diff --git a/src/complain.c b/src/complain.c
index b063c6b622b38cb036b03cb1a5b6762f10507487..ede0ccf4f5cb122d601e329dc5eeaafb1a5997d7 100644 (file)
--- a/src/complain.c
+++ b/src/complain.c
@@ -74,11 +74,15 @@ error_message (location *loc,
   vfprintf (stderr, message, args);
   {
     size_t l = strlen (message);
-    if (l < 2 || message[l-2] != ':' || message[l-1] != ' ') {
-      putc ('\n', stderr);
-      fflush (stderr);
-    }
+    if (l < 2 || message[l - 2] != ':' || message[l - 1] != ' ')
+      {
+        putc ('\n', stderr);
+        fflush (stderr);
+        if (loc && feature_flag & feature_caret)
+          location_caret (stderr, *loc);
+      }
   }
+  fflush (stderr);
 }
 
 /** Wrap error_message() with varargs handling. */