/* 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;
}