2012-01-10 Tobias Burnus <burnus@net-b.de>

        PR fortran/51197
        * runtime/compile_options.c (show_signal): List
        more signals.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183057 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index c399dbe..e82d442 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2012-01-10  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/51197
+       * runtime/compile_options.c (show_signal): List
+       more signals.
+

 2012-01-09  Harald Anlauf  <anlauf@gmx.de>
            Tobias Burnus  <burnus@net-b.de>
 
 2012-01-09  Harald Anlauf  <anlauf@gmx.de>
            Tobias Burnus  <burnus@net-b.de>
 

diff --git a/libgfortran/runtime/compile_options.c b/libgfortran/runtime/compile_options.c
index 8038f07..0e657f7 100644 (file)
--- a/libgfortran/runtime/compile_options.c
+++ b/libgfortran/runtime/compile_options.c
@@ -43,37 +43,72 @@ show_signal (int signum)
 
   switch (signum)
     {
 
   switch (signum)
     {

-#if defined(SIGSEGV)
+#if defined(SIGQUIT)
+      case SIGQUIT:
+       name = "SIGQUIT";
+       desc = "Terminal quit signal";
+       break;
+#endif
+
+      /* The following 4 signals are defined by C89.  */
+      case SIGILL:
+       name = "SIGILL";
+       desc = "Illegal instruction";
+       break;
+
+      case SIGABRT:
+       name = "SIGABRT";
+       desc = "Process abort signal";
+       break;
+
+      case SIGFPE:
+       name = "SIGFPE";
+       desc = "Floating-point exception - erroneous arithmetic operation";
+       break;
+

       case SIGSEGV:
        name = "SIGSEGV";
       case SIGSEGV:
        name = "SIGSEGV";

-       desc = "Segmentation fault";
+       desc = "Segmentation fault - invalid memory reference";

        break;
        break;

-#endif

 
 #if defined(SIGBUS)
       case SIGBUS:
        name = "SIGBUS";
 
 #if defined(SIGBUS)
       case SIGBUS:
        name = "SIGBUS";

-       desc = "Bus error";
+       desc = "Access to an undefined portion of a memory object";

        break;
 #endif
 
        break;
 #endif
 

-#if defined(SIGILL)
-      case SIGILL:
-       name = "SIGILL";
-       desc = "Illegal instruction";
+#if defined(SIGSYS)
+      case SIGSYS:
+       name = "SIGSYS";
+       desc = "Bad system call";

        break;
 #endif
 
        break;
 #endif
 

-#if defined(SIGFPE)
-      case SIGFPE:
-       name = "SIGFPE";
-       desc = "Floating-point exception";
+#if defined(SIGTRAP)
+      case SIGTRAP:
+       name = "SIGTRAP";
+       desc = "Trace/breakpoint trap";
+       break;
+#endif
+
+#if defined(SIGXCPU)
+      case SIGXCPU:
+       name = "SIGXCPU";
+       desc = "CPU time limit exceeded";
+       break;
+#endif
+
+#if defined(SIGXFSZ)
+      case SIGXFSZ:
+       name = "SIGXFSZ";
+       desc = "File size limit exceeded";

        break;
 #endif
     }
 
   if (name)
        break;
 #endif
     }
 
   if (name)

-    st_printf ("\nProgram received signal %d (%s): %s.\n", signum, name, desc);
+    st_printf ("\nProgram received signal %s: %s.\n", name, desc);

   else
     st_printf ("\nProgram received signal %d.\n", signum);
 }
   else
     st_printf ("\nProgram received signal %d.\n", signum);
 }