FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/51197 (Backtrace information less useful)

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

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

From-SVN: r183057
This commit is contained in:
Tobias Burnus 2012-01-10 10:32:29 +01:00 • committed by Tobias Burnus
parent fa8df9de51
commit 59c615478d
2 changed files with 57 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libgfortran/ChangeLog
View file

@ -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>

67
libgfortran/runtime/compile_options.c
View file

@ -43,37 +43,72 @@ show_signal (int signum)
switch (signum)
{
#if defined(SIGSEGV)
case SIGSEGV:
name = "SIGSEGV";
desc = "Segmentation fault";
#if defined(SIGQUIT)
case SIGQUIT:
name = "SIGQUIT";
desc = "Terminal quit signal";
break;
#endif
#if defined(SIGBUS)
case SIGBUS:
name = "SIGBUS";
desc = "Bus error";
break;
#endif
#if defined(SIGILL)
/* The following 4 signals are defined by C89. */
case SIGILL:
name = "SIGILL";
desc = "Illegal instruction";
break;
#endif
#if defined(SIGFPE)
case SIGABRT:
name = "SIGABRT";
desc = "Process abort signal";
break;
case SIGFPE:
name = "SIGFPE";
desc = "Floating-point exception";
desc = "Floating-point exception - erroneous arithmetic operation";
break;
case SIGSEGV:
name = "SIGSEGV";
desc = "Segmentation fault - invalid memory reference";
break;
#if defined(SIGBUS)
case SIGBUS:
name = "SIGBUS";
desc = "Access to an undefined portion of a memory object";
break;
#endif
#if defined(SIGSYS)
case SIGSYS:
name = "SIGSYS";
desc = "Bad system call";
break;
#endif
#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)
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);
}