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

Extend 'libgfortran/runtime/minimal.c' per r274599 "PR fortran/68401 Improve allocation error message"

Browse Source 
libgfortran/
	PR fortran/68401
	* runtime/minimal.c (os_error_at): New function.

From-SVN: r276691
This commit is contained in:
Thomas Schwinge 2019-10-08 12:20:41 +02:00 committed by Thomas Schwinge
parent 41bc80c3cd
commit ca72b78045
2 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
libgfortran/ChangeLog
View File

@ -1,5 +1,8 @@
2019-10-08 Thomas Schwinge <thomas@codesourcery.com> 2019-10-08 Thomas Schwinge <thomas@codesourcery.com>
PR fortran/68401
* runtime/minimal.c (os_error_at): New function.
* runtime/minimal.c: Revise. * runtime/minimal.c: Revise.
2019-10-05 Paul Thomas <pault@gcc.gnu.org> 2019-10-05 Paul Thomas <pault@gcc.gnu.org>

23
libgfortran/runtime/minimal.c
View File

@ -215,7 +215,28 @@ os_error (const char *message)
estr_write ("\n"); estr_write ("\n");
exit_error (1); exit_error (1);
} }
iexport(os_error); iexport(os_error); /* TODO, DEPRECATED, ABI: Should not be exported
anymore when bumping so version. */
/* Improved version of os_error with a printf style format string and
a locus. */
void
os_error_at (const char *where, const char *message, ...)
{
va_list ap;
recursion_check ();
estr_write (where);
estr_write (": ");
va_start (ap, message);
estr_vprintf (message, ap);
va_end (ap);
estr_write ("\n");
exit_error (1);
}
iexport(os_error_at);
/* void runtime_error()-- These are errors associated with an /* void runtime_error()-- These are errors associated with an