[Bug libfortran/36044] user-requested backtrace

[Bug libfortran/36044] user-requested backtrace

[fxcoudert at gcc dot gnu.org]

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

Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |patch
                URL|                            |http://gcc.gnu.org/ml/fortr
                   |                            |an/2012-03/msg00015.html
                 CC|                            |fxcoudert at gcc dot
                   |                            |gnu.org

--- Comment #7 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> 2012-03-03 07:45:51 UTC ---
Patch was proposed at http://gcc.gnu.org/ml/fortran/2012-03/msg00015.html

[Bug libfortran/36044] user-requested backtrace

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
                 CC|                            |janus at gcc dot gnu.org
         AssignedTo|unassigned at gcc dot       |janus at gcc dot gnu.org
                   |gnu.org                     |

--- Comment #8 from janus at gcc dot gnu.org 2012-12-19 16:30:20 UTC ---
Taking this one. Latest patch:

http://gcc.gnu.org/ml/fortran/2012-12/msg00126.html

[Bug libfortran/36044] user-requested backtrace

[janus at gcc dot gnu.org]

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

--- Comment #9 from janus at gcc dot gnu.org 2012-12-20 18:15:19 UTC ---
Author: janus
Date: Thu Dec 20 18:15:13 2012
New Revision: 194648

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=194648
Log:
2012-12-20  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/36044
    * gfortran.h (gfc_isym_id): Add GFC_ISYM_BACKTRACE.
    * intrinsic.c (add_subroutines): Add "backtrace".
    * intrinsic.texi (BACKTRACE): Document BACKTRACE intrinsic.


2012-12-20  Janus Weil  <janus@gcc.gnu.org>

    PR fortran/36044
    * gfortran.map: Add _gfortran_backtrace.
    * libgfortran.h: Rename 'show_backtrace' and export.
    * runtime/backtrace.c (show_backtrace): Rename to 'backtrace'.
    Don't show message. Close file descriptor. Export.
    * runtime/compile_options.c (backtrace_handler): Renamed
    'show_backtrace'. Move message outside.
    * runtime/error.c (sys_abort): Ditto.

Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/intrinsic.c
    trunk/gcc/fortran/intrinsic.texi
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/gfortran.map
    trunk/libgfortran/libgfortran.h
    trunk/libgfortran/runtime/backtrace.c
    trunk/libgfortran/runtime/compile_options.c
    trunk/libgfortran/runtime/error.c

[Bug libfortran/36044] user-requested backtrace

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED

--- Comment #10 from janus at gcc dot gnu.org 2012-12-20 19:35:54 UTC ---
r194648 implements an intrinsic BACKTRACE routine. Closing as fixed.

[Bug libfortran/36044] user-requested backtrace

[jvdelisle at gcc dot gnu dot org]

------- Comment #6 from jvdelisle at gcc dot gnu dot org  2009-02-23 04:37 -------
If anyone is looking into this, please let me know if there are any specific
posix calls needed that I should put into the gfc_posix module. ( Priority
wise.)


-- 


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

[Bug libfortran/36044] user-requested backtrace

[fxcoudert at gcc dot gnu dot org]

------- Comment #5 from fxcoudert at gcc dot gnu dot org  2009-02-22 22:33 -------
(In reply to comment #3)
> Try abort(). (Though I do not recall whether it works, I think it does.)

Does not work. abort() raises a SIGABRT, and we only catch SIGSEGV, SIGBUS,
SIGILL and SIGFPE.

>> Anyway I'm looking for a solution that keeps the
>> program running after the backtrace.

One such solution that I can see (other than adding a new intrinsic) is to
modify the library to also catch SIGUSR2 and generate a backtrace when it's
received (untested patch below); that way, a backtrace can be emitted without
the code stopping, either

  -- programmaticaly by calling the KILL and GETPID intrinsics, or the POSIX
functions via ISO_C_BINDING
  -- by the user sending the signal from another terminal, to know where his
program is stuck

The only issue I see with that is that SIGUSR2 is a symbolic constant, not
available in Fortran code, so that the user needs to know what (potentialy
nonportable) signal number it corresponds to.





diff -rpu libgfortran/runtime/compile_options.c
libgfortran.new/runtime/compile_options.c
--- libgfortran/runtime/compile_options.c       2009-02-22 23:25:25.000000000
+0100
+++ libgfortran.new/runtime/compile_options.c   2009-02-22 23:30:20.000000000
+0100
@@ -73,6 +73,13 @@ handler (int signum)
        desc = "Floating-point exception";
        break;
 #endif
+
+#if defined(SIGUSR2)
+      case SIGUSR2:
+       name = "SIGUSR2";
+       desc = "User-defined signal";
+       break;
+#endif
     }

   if (name)
@@ -80,6 +87,16 @@ handler (int signum)
   else
     st_printf ("\nProgram received signal %d.\n", signum);

+#if defined(SIGUSR2)
+  if (signum == SIGUSR2
+      && (options.backtrace == 1
+         || (options.backtrace == -1 && compile_options.backtrace == 1)))
+  {
+    show_backtrace ();
+    return;
+  }
+#endif
+
   sys_exit (5);
 }



-- 


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

[Bug libfortran/36044] user-requested backtrace

[tkoenig at gcc dot gnu dot org]

------- Comment #4 from tkoenig at gcc dot gnu dot org  2008-04-28 21:36 -------
Confirmed, this would indeed be useful.


-- 

tkoenig at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |tkoenig at gcc dot gnu dot
                   |                            |org
           Severity|normal                      |enhancement
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2008-04-28 21:36:17
               date|                            |


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

[Bug libfortran/36044] user-requested backtrace

[burnus at gcc dot gnu dot org]

------- Comment #3 from burnus at gcc dot gnu dot org  2008-04-28 16:41 -------
> > I think compiling with -fbacktrace and calling the STOP intrinsic should
> > emit a backtrace.

I think it should not. For abort(), I think a backtrace is ok, but for STOP
there should be no backtrace. Using stop is a quite normal way to stop a
program because a condition has not be met, e.g

  stop 'Could not file "inp"'

If one finds afterwards dozens of lines of backtrace the actual message is no
longer visible. In my opinion, ifort shows too often a backtrace.

> I don't think it does.
Try abort(). (Though I do not recall whether it works, I think it does.)

> Anyway I'm looking for a solution that keeps the
> program running after the backtrace.

This can be sometimes indeed be handy, though I have never used it.


-- 


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

[Bug libfortran/36044] user-requested backtrace

[jaydub66 at gmail dot com]

------- Comment #2 from jaydub66 at gmail dot com  2008-04-28 15:44 -------
(In reply to comment #1)
> I think compiling with -fbacktrace and calling the STOP intrinsic should emit a
> backtrace. 

I don't think it does. Anyway I'm looking for a solution that keeps the program
running after the backtrace.


-- 


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

[Bug libfortran/36044] user-requested backtrace

[fxcoudert at gcc dot gnu dot org]

------- Comment #1 from fxcoudert at gcc dot gnu dot org  2008-04-27 18:43 -------
I think compiling with -fbacktrace and calling the STOP intrinsic should emit a
backtrace. Maybe not enough, but still useful.


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |fxcoudert at gcc dot gnu dot
                   |                            |org


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