(v_message_with_decl): Avoid fwrite for stderr; mixing it with fprintf

and fputs can cause strange results under VMS.

From-SVN: r7570

diff --git a/gcc/toplev.c b/gcc/toplev.c
index f73a60a..f3aeb09 100644 (file)
--- a/gcc/toplev.c
+++ b/gcc/toplev.c
@@ -1149,10 +1149,17 @@ v_message_with_decl (decl, prefix, s, ap)
        }
     }
 
-  if (p > s)
-    fwrite (s, p - s, 1, stderr);
+  if (p > s)                   /* Print the left-hand substring.  */
+    {
+      char fmt[sizeof "%.255s"];
+      long width = p - s;
+             
+      if (width > 255L) width = 255L;  /* arbitrary */
+      sprintf (fmt, "%%.%lds", width);
+      fprintf (stderr, fmt, s);
+    }
 
-  if (*p == '%')
+  if (*p == '%')               /* Print the name.  */
     {
       char *n = (DECL_NAME (decl)
                 ? (*decl_printable_name) (decl, &junk)
@@ -1166,7 +1173,7 @@ v_message_with_decl (decl, prefix, s, ap)
        }
     }
 
-  if (*p)
+  if (*p)                      /* Print the rest of the message.  */
     vmessage ((char *)NULL, p, ap);
 
   fputc ('\n', stderr);