[Bug fortran/31189] Support backtracing for non-library errors

["fxcoudert at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #4 from fxcoudert at gcc dot gnu dot org  2007-08-04 18:49 -------
Thanks Tobias for the patch, here's an updated version that I intend to submit
for review...

Index: runtime/backtrace.c
===================================================================
--- runtime/backtrace.c (revision 127184)
+++ runtime/backtrace.c (working copy)
@@ -223,7 +223,8 @@ show_backtrace (void)
            /* Try to recognize the internal libgfortran functions.  */
            if (strncasecmp (func, "*_gfortran", 10) == 0
                || strncasecmp (func, "_gfortran", 9) == 0
-               || strcmp (func, "main") == 0 || strcmp (func, "_start") == 0)
+               || strcmp (func, "main") == 0 || strcmp (func, "_start") == 0
+               || strcmp (func, "_gfortrani_handler") == 0)
              continue;

            if (local_strcasestr (str[i], "libgfortran.so") != NULL
Index: libgfortran.h
===================================================================
--- libgfortran.h       (revision 127184)
+++ libgfortran.h       (working copy)
@@ -373,6 +373,9 @@ options_t;
 extern options_t options;
 internal_proto(options);

+extern void handler (int);
+internal_proto(handler);
+

 /* Compile-time options that will influence the library.  */

Index: runtime/compile_options.c
===================================================================
--- runtime/compile_options.c   (revision 127184)
+++ runtime/compile_options.c   (working copy)
@@ -31,10 +31,61 @@ Boston, MA 02110-1301, USA.  */

 #include "libgfortran.h"

+#ifdef HAVE_SIGNAL_H
+#include <signal.h>
+#endif
+

 /* Useful compile-time options will be stored in here.  */
 compile_options_t compile_options;

+
+/* A signal handler to allow us to output a backtrace.  */
+void
+handler (int signum)
+{
+  const char * name = NULL, * desc = NULL;
+
+  switch (signum)
+    {
+#if defined(SIGSEGV)
+      case SIGSEGV:
+       name = "SIGSEGV";
+       desc = "Segmentation fault";
+       break;
+#endif
+
+#if defined(SIGBUS)
+      case SIGBUS:
+       name = "SIGBUS";
+       desc = "Bus error";
+       break;
+#endif
+
+#if defined(SIGILL)
+      case SIGILL:
+       name = "SIGILL";
+       desc = "Illegal instruction";
+       break;
+#endif
+
+#if defined(SIGFPE)
+      case SIGFPE:
+       name = "SIGFPE";
+       desc = "Floating-point exception";
+       break;
+#endif
+    }
+
+  if (name)
+    st_printf ("\nProgram received signal %d (%s): %s.\n", signum, name,
desc);
+  else
+    st_printf ("\nProgram received signal %d.\n", signum);
+
+  sys_exit (5);
+}
+
+
 /* Set the usual compile-time options.  */
 extern void set_options (int , int []);
 export_proto(set_options);
@@ -56,6 +107,31 @@ set_options (int num, int options[])
     compile_options.sign_zero = options[5];
   if (num >= 7)
     compile_options.bounds_check = options[6];
+
+  /* If backtrace is required, we set signal handlers on most common
+     signals.  */
+#if defined(HAVE_SIGNAL_H) && (defined(SIGSEGV) || defined(SIGBUS) \
+                              || defined(SIGILL) || defined(SIGFPE))
+  if (compile_options.backtrace)
+    {
+#if defined(SIGSEGV)
+      signal (SIGSEGV, handler);
+#endif
+
+#if defined(SIGBUS)
+      signal (SIGBUS, handler);
+#endif
+
+#if defined(SIGILL)
+      signal (SIGILL, handler);
+#endif
+
+#if defined(SIGFPE)
+      signal (SIGFPE, handler);
+#endif
+    }
+#endif
+
 }




-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |fxcoudert at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2007-03-17 11:36:17         |2007-08-04 18:49:39
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31189