lang.opt (fdump-core): Re-add as ignored option for backward compatibility.

2011-05-14  Tobias Burnus  <burnus@net-b.de>

        * lang.opt (fdump-core): Re-add as ignored option
        for backward compatibility.

2011-05-14  Tobias Burnus  <burnus@net-b.de>

        * runtime/stop.c (error_stop_string, error_stop_numeric):
        Do not backtrace for ERROR STOP.

From-SVN: r173760
This commit is contained in:
Tobias Burnus 2011-05-14 18:02:07 +02:00
parent 858afbce4e
commit ade2e40389
4 changed files with 75 additions and 64 deletions

View File

@ -1,3 +1,8 @@
2011-05-14 Tobias Burnus <burnus@net-b.de>
* lang.opt (fdump-core): Re-add as ignored option
for backward compatibility.
2011-05-14 Janne Blomqvist <jb@gcc.gnu.org> 2011-05-14 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/48915 PR libfortran/48915

View File

@ -366,6 +366,10 @@ fdollar-ok
Fortran Fortran
Allow dollar signs in entity names Allow dollar signs in entity names
fdump-core
Fortran Ignore
Does nothing. Preserved for backward compatibility.
fdump-fortran-original fdump-fortran-original
Fortran Fortran
Display the code tree after parsing Display the code tree after parsing

View File

@ -1,3 +1,8 @@
2011-05-14 Tobias Burnus <burnus@net-b.de>
* runtime/stop.c (error_stop_string, error_stop_numeric):
Do not backtrace for ERROR STOP.
2011-05-14 Janne Blomqvist <jb@gcc.gnu.org> 2011-05-14 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/48915 PR libfortran/48915

View File

@ -92,7 +92,7 @@ error_stop_string (const char *string, GFC_INTEGER_4 len)
(void) sizeof (w); /* Avoid compiler warning about not using w. */ (void) sizeof (w); /* Avoid compiler warning about not using w. */
estr_write ("\n"); estr_write ("\n");
sys_abort (); exit (1);
} }
@ -106,8 +106,5 @@ void
error_stop_numeric (GFC_INTEGER_4 code) error_stop_numeric (GFC_INTEGER_4 code)
{ {
st_printf ("ERROR STOP %d\n", (int) code); st_printf ("ERROR STOP %d\n", (int) code);
if (options.backtrace == 1
|| (options.backtrace == -1 && compile_options.backtrace == 1))
show_backtrace ();
exit (code); exit (code);
} }