re PR fortran/19182 (Error messages seem to be printed slower)
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
This commit is contained in:
parent
ef1b6bcd00
commit
dfbb43185d
2 changed files with 19 additions and 1 deletions
|
@ -1,3 +1,8 @@
|
|||
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 /
|
||||
|
|
|
@ -86,7 +86,20 @@ error_char (char c)
|
|||
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;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue