comp.lang.ada
 help / color / mirror / Atom feed
From: Spam Hater <no.such.user@no.such.com>
Subject: Re: GNAT exception traceback
Date: 1997/06/17
Date: 1997-06-17T00:00:00+00:00	[thread overview]
Message-ID: <33A6A725.3BD0@no.such.com> (raw)
In-Reply-To: dewar.866540788@merv


> Or, as Wiljan notes, you can hack a-raise.c.
> The idea of using GDB to determine the program location, given a hex
> location, is certainly a reasonable one, though in general you really
> want the traceback which GDB can give you.

gcc C has a builtin function (macro?) for the return address.
Someone sent me C that uses this in a loop to get a stack trace.
Note the parameter to __builtin_frame_address - if I remember 
right, this allows you to say how high up the stack you want 
to go.  If that's right, and if it's not required to be static 
(using Ada's definition of static) then you could increment the 
parameter in a loop.  The  return_addr=  part of the following 
is not portable, but I'm not sure that's needed.

Anyway, for what it's worth (maybe nothing) this might be a 
starting point:

void stack_trace()
{
  char *current_frame
  int return_addr;
  /* obtain current frame address somehow, e.g. inline assembler or
     use gcc __builtin_frame_address. */
  current_frame=__builtin_frame_address(0);
  do {
    return_addr=*(int*)(current_frame+4);  /* obtain return addr */
    /* do whatever you want with the return addr here */
    current_frame=*(char*)current_frame;   /* get frame of next upper
function */
  } while( stack_valid() );
}

-- 
----------------------------------------------------------------------
    Wes Groleau, Hughes Defense Communications, Fort Wayne, IN USA
Senior Software Engineer - AFATDS                  Tool-smith Wanna-be

Don't send advertisements to this domain unless asked!  All disk space
on fw.hac.com hosts belongs to either Hughes Defense Communications or 
the United States government.  Using email to store YOUR advertising 
on them is trespassing!
----------------------------------------------------------------------




  parent reply	other threads:[~1997-06-17  0:00 UTC|newest]

Thread overview: 47+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1997-06-13  0:00 GNAT exception traceback Huy Vo
1997-06-13  0:00 ` Robert Dewar
1997-06-16  0:00   ` wiljan
1997-06-17  0:00     ` Robert Dewar
1997-06-17  0:00       ` Robert A Duff
1997-06-19  0:00         ` Michael F Brenner
1997-06-17  0:00       ` Spam Hater [this message]
1997-06-17  0:00         ` Corey Minyard
1997-06-17  0:00           ` Spam Hater
1997-06-18  0:00             ` Corey Minyard
1997-06-18  0:00               ` Spam Hater
1997-06-18  0:00                 ` Tom Moran
1997-06-20  0:00                   ` Robert Dewar
1997-06-19  0:00                 ` Corey Minyard
1997-06-20  0:00                 ` Richard Kenner
1997-06-20  0:00                 ` Robert Dewar
1997-06-18  0:00         ` Richard Kenner
1997-06-23  0:00   ` Geert Bosch
1997-06-27  0:00     ` Michael F Brenner
1997-07-02  0:00     ` Robert Dewar
  -- strict thread matches above, loose matches on Subject: below --
1997-06-19  0:00 Chris Sparks (Mr. Ada)
1997-06-16  0:00 Chris Sparks (Mr. Ada)
1997-06-16  0:00 ` Robert Dewar
1997-06-11  0:00 Steve Gibson
1997-06-12  0:00 ` Robert Dewar
1997-06-13  0:00   ` Mats.Weber
1997-06-14  0:00     ` Robert Dewar
1997-06-16  0:00       ` Mats.Weber
1997-06-16  0:00         ` Robert Dewar
1997-06-16  0:00         ` Fergus Henderson
1997-06-16  0:00     ` Gautier
1997-06-17  0:00       ` Robert Dewar
1997-06-14  0:00   ` Aaron Metzger
1997-06-14  0:00     ` Robert Dewar
1997-06-14  0:00       ` Robert A Duff
1997-06-16  0:00       ` Spam Hater
1997-06-17  0:00         ` Robert Dewar
1997-06-17  0:00         ` Robert Dewar
1997-06-16  0:00       ` Corey Minyard
1997-06-16  0:00     ` Spam Hater
1997-06-17  0:00       ` Robert Dewar
1997-06-19  0:00         ` Geert Bosch
1997-06-18  0:00       ` Samuel Tardieu
1997-06-18  0:00       ` Richard Kenner
1997-06-14  0:00 ` Martin Kristensson
1997-06-14  0:00   ` Robert Dewar
     [not found] <82@pluto.win-uk.net>
1996-02-17  0:00 ` GNAT : Exception traceback Robert Dewar
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox