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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 029884b8e3771133098eb80b258017608ba86d0b..a4a5509a97da8ab79b632b54b0e75b5b499a0b79 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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>
 
        PR libfortran/48915

diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt
index a056c5c651ed68faf3bb4cad431d10537bead86d..1a3d073b3fbb9a668a7fcecfb4f67d806e8d917b 100644 (file)
--- a/gcc/fortran/lang.opt
+++ b/gcc/fortran/lang.opt
@@ -366,6 +366,10 @@ fdollar-ok
 Fortran
 Allow dollar signs in entity names
 
+fdump-core
+Fortran Ignore
+Does nothing. Preserved for backward compatibility.
+
 fdump-fortran-original
 Fortran
 Display the code tree after parsing

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

diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c
index 2efe23924e737406abbaf5d8822fd45d52d54daa..4c3a0f99c89e9e2010a3bc2e1400e8625cda6643 100644 (file)
--- a/libgfortran/runtime/stop.c
+++ b/libgfortran/runtime/stop.c
@@ -92,7 +92,7 @@ error_stop_string (const char *string, GFC_INTEGER_4 len)
   (void) sizeof (w); /* Avoid compiler warning about not using w.  */
   estr_write ("\n");
 
-  sys_abort ();
+  exit (1);
 }
 
 
@@ -106,8 +106,5 @@ void
 error_stop_numeric (GFC_INTEGER_4 code)
 {
   st_printf ("ERROR STOP %d\n", (int) code);
-  if (options.backtrace == 1
-      || (options.backtrace == -1 && compile_options.backtrace == 1))
-    show_backtrace ();
   exit (code);
 }