OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/32977 (All gfortran tests fail on Tru64 UNIX V4.0F: vsnprintf missing)

Browse Source 
2007-08-03  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/32977
	* io/unix.c:  If there is no vsnprintf, use vsprintf and issue
	a fatal error when a buffer overrun occurs.

From-SVN: r127187
This commit is contained in:
Thomas Koenig 2007-08-03 22:09:10 +00:00
parent 0a4221f6e4
commit f353733a26
2 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2007-08-03 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/32977
* io/unix.c: If there is no vsnprintf, use vsprintf and issue
a fatal error when a buffer overrun occurs.
2007-08-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/31202

19
libgfortran/io/unix.c
View File

@ -1386,7 +1386,8 @@ error_stream (void)
overruns, we limit the length of the buffer to ST_VPRINTF_SIZE. 2k
is big enough to completely fill a 80x25 terminal, so it shuld be
OK. We use a direct write() because it is simpler and least likely
to be clobbered by memory corruption. */
to be clobbered by memory corruption. Writing an error message
longer than that is an error. */
#define ST_VPRINTF_SIZE 2048
@ -1401,8 +1402,22 @@ st_vprintf (const char *format, va_list ap)
#ifdef HAVE_VSNPRINTF
written = vsnprintf(buffer, ST_VPRINTF_SIZE, format, ap);
#else
written = __builtin_vsnprintf(buffer, ST_VPRINTF_SIZE, format, ap);
written = vsprintf(buffer, format, ap);
if (written >= ST_VPRINTF_SIZE-1)
{
/* The error message was longer than our buffer. Ouch. Because
we may have messed up things badly, report the error and
quit. */
#define ERROR_MESSAGE "Internal error: buffer overrun in st_vprintf()\n"
write (fd, buffer, ST_VPRINTF_SIZE-1);
write (fd, ERROR_MESSAGE, strlen(ERROR_MESSAGE));
sys_exit(2);
#undef ERROR_MESSAGE
}
#endif
written = write (fd, buffer, written);
return written;
}