diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2018-09-21 21:12:59 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2018-09-21 21:12:59 +0300 |
| commit | edaaef601d0d6d263fba87b42d6d04c99dd23dba (patch) | |
| tree | 1eae37a9045b327759b9ea32319467c34314ddb6 /libgfortran/libgfortran.h | |
| parent | 5b4dd0158308d1a3effffd6316f1b39fdd1ad120 (diff) | |
| download | gcc-edaaef601d0d6d263fba87b42d6d04c99dd23dba.zip gcc-edaaef601d0d6d263fba87b42d6d04c99dd23dba.tar.gz gcc-edaaef601d0d6d263fba87b42d6d04c99dd23dba.tar.bz2 | |
Use vectored writes when reporting errors and warnings.
When producing error and warning messages, libgfortran writes a
message by using many system calls. By using vectored writes (the
POSIX writev function) when available and feasible to use without
major surgery, we reduce the chance that output gets intermingled with
other output to stderr.
In practice, this is done by introducing a new function estr_writev in
addition to the existing estr_write. In order to use this, the old
st_vprintf is removed, replaced by direct calls of vsnprintf, allowing
more message batching.
Regtested on x86_64-pc-linux-gnu.
libgfortran/ChangeLog:
2018-09-21 Janne Blomqvist <jb@gcc.gnu.org>
* config.h.in: Regenerated.
* configure: Regenerated.
* configure.ac: Check for writev and sys/uio.h.
* libgfortran.h: Include sys/uio.h.
(st_vprintf): Remove prototype.
(struct iovec): Define if not available.
(estr_writev): New prototype.
* runtime/backtrace.c (error_callback): Use estr_writev.
* runtime/error.c (ST_VPRINTF_SIZE): Remove.
(estr_writev): New function.
(st_vprintf): Remove.
(gf_vsnprintf): New function.
(ST_ERRBUF_SIZE): New macro.
(st_printf): Use vsnprintf.
(os_error): Use estr_writev.
(runtime_error): Use vsnprintf and estr_writev.
(runtime_error_at): Likewise.
(runtime_warning_at): Likewise.
(internal_error): Use estr_writev.
(generate_error_common): Likewise.
(generate_warning): Likewise.
(notify_std): Likewise.
* runtime/pause.c (pause_string): Likewise.
* runtime/stop.c (report_exception): Likewise.
(stop_string): Likewise.
(error_stop_string): Likewise.
From-SVN: r264487
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index b5a742a..1179812 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -88,6 +88,10 @@ extern long double __strtold (const char *, char **); #include <sys/types.h> #endif +#ifdef HAVE_SYS_UIO_H +#include <sys/uio.h> +#endif + #ifdef __MINGW32__ typedef off64_t gfc_offset; #else @@ -701,8 +705,15 @@ internal_proto(exit_error); extern ssize_t estr_write (const char *); internal_proto(estr_write); -extern int st_vprintf (const char *, va_list); -internal_proto(st_vprintf); +#if !defined(HAVE_WRITEV) && !defined(HAVE_SYS_UIO_H) +struct iovec { + void *iov_base; /* Starting address */ + size_t iov_len; /* Number of bytes to transfer */ +}; +#endif + +extern ssize_t estr_writev (const struct iovec *iov, int iovcnt); +internal_proto(estr_writev); extern int st_printf (const char *, ...) __attribute__((format (gfc_printf, 1, 2))); |