mirror of git://gcc.gnu.org/git/gcc.git
87 lines
1.9 KiB
C++
87 lines
1.9 KiB
C++
/* dwarf2-backtrac.cc - backtrace implementation driven by the dwarf2
|
|
exception unwinder. */
|
|
|
|
/* Copyright (C) 2003 Free Software Foundation
|
|
|
|
This file is part of libgcj.
|
|
|
|
This software is copyrighted work licensed under the terms of the
|
|
Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
|
|
details. */
|
|
|
|
/* Written by David Daney <ddaney@avtrex.com> */
|
|
|
|
/*
|
|
Although this in theory could be 'C' instead of C++, saying that it
|
|
is C++ and including jvm.h makes it easier to insure that the proper
|
|
compiler options are used. There must be unwind tables for
|
|
backtrace because it is on the stack when _Unwind_Backtrace is
|
|
called. Compiling as C++ insures this.
|
|
|
|
*/
|
|
|
|
#include <config.h>
|
|
|
|
#include <unwind.h>
|
|
|
|
#include <jvm.h>
|
|
|
|
|
|
extern "C"
|
|
{
|
|
int backtrace (void **, int);
|
|
}
|
|
|
|
struct backtrace_state
|
|
{
|
|
int skip_count;
|
|
int current_level;
|
|
int max_level;
|
|
void **locations;
|
|
};
|
|
|
|
static _Unwind_Reason_Code
|
|
my_trace_fn (struct _Unwind_Context *uc, void *arg)
|
|
{
|
|
|
|
struct backtrace_state *bs = (struct backtrace_state *) arg;
|
|
|
|
if (bs->skip_count)
|
|
{
|
|
bs->skip_count--;
|
|
return _URC_NO_REASON;
|
|
}
|
|
|
|
_Unwind_Ptr loc = _Unwind_GetIP (uc);
|
|
|
|
if (bs->current_level < bs->max_level)
|
|
bs->locations[bs->current_level++] = (void *) loc;
|
|
|
|
if (bs->current_level >= bs->max_level)
|
|
return _URC_END_OF_STACK;
|
|
else
|
|
return _URC_NO_REASON;
|
|
}
|
|
|
|
/*
|
|
* backtrace is defined in (some versions of) libc. This definition
|
|
* must match so that it can replace the libc version at link time.
|
|
*
|
|
* Fill the locations array with at most len back trace locations.
|
|
*
|
|
* Returns the number of locations actually filled in.
|
|
*
|
|
*/
|
|
int
|
|
backtrace (void **locations, int len)
|
|
{
|
|
struct backtrace_state bs;
|
|
bs.skip_count = 1; /* Don't log the call to backtrace itself. */
|
|
bs.current_level = 0;
|
|
bs.max_level = len;
|
|
bs.locations = locations;
|
|
|
|
_Unwind_Backtrace (my_trace_fn, &bs);
|
|
return bs.current_level;
|
|
}
|