Blame libdw/dwarf_func_inline.c

Packit Service 97d2fb
/* Convenience functions for handling DWARF descriptions of inline functions.
Packit Service 97d2fb
   Copyright (C) 2005,2006,2015 Red Hat, Inc.
Packit Service 97d2fb
   This file is part of elfutils.
Packit Service 97d2fb
Packit Service 97d2fb
   This file is free software; you can redistribute it and/or modify
Packit Service 97d2fb
   it under the terms of either
Packit Service 97d2fb
Packit Service 97d2fb
     * the GNU Lesser General Public License as published by the Free
Packit Service 97d2fb
       Software Foundation; either version 3 of the License, or (at
Packit Service 97d2fb
       your option) any later version
Packit Service 97d2fb
Packit Service 97d2fb
   or
Packit Service 97d2fb
Packit Service 97d2fb
     * the GNU General Public License as published by the Free
Packit Service 97d2fb
       Software Foundation; either version 2 of the License, or (at
Packit Service 97d2fb
       your option) any later version
Packit Service 97d2fb
Packit Service 97d2fb
   or both in parallel, as here.
Packit Service 97d2fb
Packit Service 97d2fb
   elfutils is distributed in the hope that it will be useful, but
Packit Service 97d2fb
   WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service 97d2fb
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Packit Service 97d2fb
   General Public License for more details.
Packit Service 97d2fb
Packit Service 97d2fb
   You should have received copies of the GNU General Public License and
Packit Service 97d2fb
   the GNU Lesser General Public License along with this program.  If
Packit Service 97d2fb
   not, see <http://www.gnu.org/licenses/>.  */
Packit Service 97d2fb
Packit Service 97d2fb
#ifdef HAVE_CONFIG_H
Packit Service 97d2fb
# include <config.h>
Packit Service 97d2fb
#endif
Packit Service 97d2fb
Packit Service 97d2fb
#include "libdwP.h"
Packit Service 97d2fb
#include <dwarf.h>
Packit Service 97d2fb
Packit Service 97d2fb
struct visitor_info
Packit Service 97d2fb
{
Packit Service 97d2fb
  void *die_addr;
Packit Service 97d2fb
  int (*callback) (Dwarf_Die *, void *);
Packit Service 97d2fb
  void *arg;
Packit Service 97d2fb
};
Packit Service 97d2fb
Packit Service 97d2fb
static int
Packit Service 97d2fb
scope_visitor (unsigned int depth __attribute__ ((unused)),
Packit Service 97d2fb
	       struct Dwarf_Die_Chain *die, void *arg)
Packit Service 97d2fb
{
Packit Service 97d2fb
  struct visitor_info *const v = arg;
Packit Service 97d2fb
Packit Service 97d2fb
  if (INTUSE(dwarf_tag) (&die->die) != DW_TAG_inlined_subroutine)
Packit Service 97d2fb
    return DWARF_CB_OK;
Packit Service 97d2fb
Packit Service 97d2fb
  Dwarf_Attribute attr_mem;
Packit Service 97d2fb
  Dwarf_Attribute *attr = INTUSE(dwarf_attr) (&die->die, DW_AT_abstract_origin,
Packit Service 97d2fb
					      &attr_mem);
Packit Service 97d2fb
  if (attr == NULL)
Packit Service 97d2fb
    return DWARF_CB_OK;
Packit Service 97d2fb
Packit Service 97d2fb
  Dwarf_Die origin_mem;
Packit Service 97d2fb
  Dwarf_Die *origin = INTUSE(dwarf_formref_die) (attr, &origin_mem);
Packit Service 97d2fb
  if (origin == NULL)
Packit Service 97d2fb
    return DWARF_CB_ABORT;
Packit Service 97d2fb
Packit Service 97d2fb
  if (origin->addr != v->die_addr)
Packit Service 97d2fb
    return DWARF_CB_OK;
Packit Service 97d2fb
Packit Service 97d2fb
  return (*v->callback) (&die->die, v->arg);
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
int
Packit Service 97d2fb
dwarf_func_inline (Dwarf_Die *func)
Packit Service 97d2fb
{
Packit Service 97d2fb
  Dwarf_Attribute attr_mem;
Packit Service 97d2fb
  Dwarf_Word val;
Packit Service 97d2fb
  if (INTUSE(dwarf_formudata) (INTUSE(dwarf_attr) (func, DW_AT_inline,
Packit Service 97d2fb
						   &attr_mem),
Packit Service 97d2fb
			       &val) == 0)
Packit Service 97d2fb
  switch (val)
Packit Service 97d2fb
    {
Packit Service 97d2fb
    case DW_INL_not_inlined:
Packit Service 97d2fb
      return 0;
Packit Service 97d2fb
Packit Service 97d2fb
    case DW_INL_declared_not_inlined:
Packit Service 97d2fb
      return -1;
Packit Service 97d2fb
Packit Service 97d2fb
    case DW_INL_inlined:
Packit Service 97d2fb
    case DW_INL_declared_inlined:
Packit Service 97d2fb
      return 1;
Packit Service 97d2fb
    }
Packit Service 97d2fb
Packit Service 97d2fb
  return 0;
Packit Service 97d2fb
}
Packit Service 97d2fb
Packit Service 97d2fb
int
Packit Service 97d2fb
dwarf_func_inline_instances (Dwarf_Die *func,
Packit Service 97d2fb
			     int (*callback) (Dwarf_Die *, void *),
Packit Service 97d2fb
			     void *arg)
Packit Service 97d2fb
{
Packit Service 97d2fb
  struct visitor_info v = { func->addr, callback, arg };
Packit Service 97d2fb
  struct Dwarf_Die_Chain cu = { .die = CUDIE (func->cu), .parent = NULL };
Packit Service 97d2fb
  return __libdw_visit_scopes (0, &cu, NULL, &scope_visitor, NULL, &v);
Packit Service 97d2fb
}