git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
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

4
gcc/fortran/lang.opt
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

125
libgfortran/ChangeLog
View File

@ -1,73 +1,78 @@
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
* intrinsics/abort.c (abort): Call sys_abort(). * intrinsics/abort.c (abort): Call sys_abort().
* io/unix.c (st_vprintf): Call sys_abort(). * io/unix.c (st_vprintf): Call sys_abort().
* libgfortran.h (options_t): Remove dump_core member. * libgfortran.h (options_t): Remove dump_core member.
(handler): Rename to backtrace_handler. (handler): Rename to backtrace_handler.
(compile_options_t): Remove dump_core member. (compile_options_t): Remove dump_core member.
(sys_exit): Remove. (sys_exit): Remove.
(sys_abort): New function. (sys_abort): New function.
* runtime/backtrace.c (show_backtrace): Print a message if * runtime/backtrace.c (show_backtrace): Print a message if
backtrace is not available on target, update filter symbol name backtrace is not available on target, update filter symbol name
due to backtrace_handler renaming. due to backtrace_handler renaming.
* runtime/compile_options.c (backtrace_handler): New * runtime/compile_options.c (backtrace_handler): New
implementation based on example in Glibc manual. implementation based on example in Glibc manual.
(set_options): Remove dump_core handling, make signal handler (set_options): Remove dump_core handling, make signal handler
handle more signals. handle more signals.
(init_compile_options): Remove dump_core. (init_compile_options): Remove dump_core.
* runtime/environ.c (variable_table[]): Remove * runtime/environ.c (variable_table[]): Remove
GFORTRAN_ERROR_DUMPCORE element. GFORTRAN_ERROR_DUMPCORE element.
(show_variables): Update name, call exit(). (show_variables): Update name, call exit().
* runtime/error.c (sys_exit): Remove. * runtime/error.c (sys_exit): Remove.
(sys_abort): New function. (sys_abort): New function.
(recursion_check): Call sys_abort(). (recursion_check): Call sys_abort().
(os_error): Call exit(). (os_error): Call exit().
(runtime_error): Likewise. (runtime_error): Likewise.
(runtime_error_at): Likewise. (runtime_error_at): Likewise.
(internal_error): Likewise. (internal_error): Likewise.
(generate_error): Likewise. (generate_error): Likewise.
(notify_std): Likewise. (notify_std): Likewise.
* runtime/stop.c (stop_numeric): Call exit(). * runtime/stop.c (stop_numeric): Call exit().
(stop_numeric_f08): Likewise. (stop_numeric_f08): Likewise.
(stop_string): Likewise. (stop_string): Likewise.
(error_stop_string): Call sys_abort(). (error_stop_string): Call sys_abort().
(error_stop_numeric): Print backtrace, exit with provided code. (error_stop_numeric): Print backtrace, exit with provided code.
2011-05-14 Janne Blomqvist <jb@gcc.gnu.org> 2011-05-14 Janne Blomqvist <jb@gcc.gnu.org>
* io/unix.c (st_vprintf,st_printf): Move to runtime/error.c. * io/unix.c (st_vprintf,st_printf): Move to runtime/error.c.
* libgfortran.h (struct options_t): Remove use_stderr field. * libgfortran.h (struct options_t): Remove use_stderr field.
(st_vprintf,st_printf): Move prototypes. (st_vprintf,st_printf): Move prototypes.
(estr_write): New prototype. (estr_write): New prototype.
* runtime/error.c (sys_exit): Use estr_write instead of st_printf. * runtime/error.c (sys_exit): Use estr_write instead of st_printf.
(estr_write): New function. (estr_write): New function.
(st_vprintf): Move from io/unix.c, use stack allocated buffer, (st_vprintf): Move from io/unix.c, use stack allocated buffer,
always output to stderr. always output to stderr.
(st_printf): Move from io/unix.c. (st_printf): Move from io/unix.c.
(show_locus): Use a local variable instead of static. (show_locus): Use a local variable instead of static.
(os_error): Use estr_write instead of st_printf. (os_error): Use estr_write instead of st_printf.
(runtime_error): Likewise. (runtime_error): Likewise.
(runtime_error_at): Likewise. (runtime_error_at): Likewise.
(runtime_warning_at): Likewise. (runtime_warning_at): Likewise.
(internal_error): Likewise. (internal_error): Likewise.
(generate_error): Likewise. (generate_error): Likewise.
(generate_warning): Likewise. (generate_warning): Likewise.
(notify_std): Likewise. (notify_std): Likewise.
* runtime/pause.c (do_pause): Likewise. * runtime/pause.c (do_pause): Likewise.
(pause_string): Likewise. (pause_string): Likewise.
* runtime/stop.c (stop_string): Likewise. * runtime/stop.c (stop_string): Likewise.
(error_stop_string): Likewise. (error_stop_string): Likewise.
* config/fpu_aix.h (set_fpu): Likewise. * config/fpu_aix.h (set_fpu): Likewise.
* config/fpu_generic.h (set_fpu): Likewise. * config/fpu_generic.h (set_fpu): Likewise.
* config/fpu_glibc.h (set_fpu): Likewise. * config/fpu_glibc.h (set_fpu): Likewise.
* config/fpu-sysv.h (set_fpu): Likewise. * config/fpu-sysv.h (set_fpu): Likewise.
* runtime/backtrace.c (dump_glibc_backtrace): Likewise. * runtime/backtrace.c (dump_glibc_backtrace): Likewise.
(show_backtrace): Likewise. (show_backtrace): Likewise.
* runtime/environ.c (print_spaces): Likewise. * runtime/environ.c (print_spaces): Likewise.
(show_string): Likewise. (show_string): Likewise.
(show_variables): Likewise. (show_variables): Likewise.
(variable_table[]): Remove GFORTRAN_USE_STDERR entry. (variable_table[]): Remove GFORTRAN_USE_STDERR entry.
2011-05-14 Tobias Burnus <burnus@net-b.de> 2011-05-14 Tobias Burnus <burnus@net-b.de>

5
libgfortran/runtime/stop.c
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);
} }