2005-01-16 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/19182
* error.c (error_char): Line-buffer errors / warnings.
From-SVN: r93734
+2005-01-16 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
+
+ PR fortran/19182
+ * error.c (error_char): Line-buffer errors / warnings.
+
2005-01-16 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* trans-intrinsic.c (gfc_conv_intrinsic_ishft): Fix signed /
else
{
if (c != 0)
- fputc (c, stderr);
+ {
+ /* We build up complete lines before handing things
+ over to the library in order to speed up error printing. */
+ static char line[MAX_ERROR_MESSAGE + 1];
+ static int index = 0;
+
+ line[index++] = c;
+ if (c == '\n' || index == MAX_ERROR_MESSAGE)
+ {
+ line[index] = '\0';
+ fputs (line, stderr);
+ index = 0;
+ }
+ }
}
}