Re: Exception traceback when using TDM-GCC 5.1.0-3

[ahlan.marriott@gmail.com]

On Thursday, 28 July 2016 17:44:32 UTC+2, Anh Vo  wrote:
> On Thursday, July 28, 2016 at 7:48:17 AM UTC-7, Anh Vo wrote:
> > On Wednesday, July 27, 2016 at 11:07:02 PM UTC-7, ahlan.m...@gmail.com wrote:
> > > >  
> > > > The exception is captured captured and handled in the exception handler. In addition, the traceback information is extracted as shown below.
> > > > 
> > > > --...
> > > > exception 
> > > >    when Error : others =>      
> > > >      Put_Line (GNAT.Traceback.Symbolic.Symbolic_Traceback(Error));
> > > > --...
> > > 
> > > Dear Anh,
> > > 
> > > Yes this is how I catch exceptions and display them symbolically.
> > > My current problem is that although I get some kind of traceback, it isn't complete.
> > > I only get two of the expected eight traceback addresses.
> > > The two I do get have very high addresses and it seems normal that these
> > > cannot be resolved symbolically - hence they are displayed as "??" by both
> > > Gnat.Traceback.Symbolic.Symbolic_Traceback and addr2line
> > 
> > Try Simon's code with my modification shown below to see what I get complete traceback. By the way, it work on my PC.
> > 
> > with Ada.Exceptions;  use Ada.Exceptions;
> > with Ada.Text_Io; use Ada.Text_Io;
> > with GNAT.Traceback.Symbolic;
> > procedure CE is
> >    procedure Raiser (N : Positive) is
> >    begin
> >       Raiser (N - 1);
> >    end Raiser;
> > begin
> >    Raiser (5);
> > exception
> >    when Error : others =>
> >       Put_Line ("Houston we have a problem: " & Exception_Information(Error));
> >       Put_Line (GNAT.Traceback.Symbolic.Symbolic_Traceback(Error));
> > end Ce; 
> > 
> > AV
> 
> Sorry, what I meant was "Try Simon's code with my modification shown below to see if you get complete traceback. By the way, it worked on my PC."

Dear Anh,

Yes I appreciate that..
This is what I always try to do - and it works with GPL but not with TDM.
But then nor does Addr2line so something is not quite right.

MfG
Ahlan