Blame libdw/dwarf_hasattr_integrate.c

Packit Service 97d2fb
/* Check whether DIE has specific attribute, integrating DW_AT_abstract_origin.
Packit Service 97d2fb
   Copyright (C) 2005, 2018 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 <dwarf.h>
Packit Service 97d2fb
#include "libdwP.h"
Packit Service 97d2fb
Packit Service 97d2fb
int
Packit Service 97d2fb
dwarf_hasattr_integrate (Dwarf_Die *die, unsigned int search_name)
Packit Service 97d2fb
{
Packit Service 97d2fb
  Dwarf_Die die_mem;
Packit Service 97d2fb
  int chain = 16; /* Largest DIE ref chain we will follow.  */
Packit Service 97d2fb
  do
Packit Service 97d2fb
    {
Packit Service 97d2fb
      if (INTUSE(dwarf_hasattr) (die, search_name))
Packit Service 97d2fb
	return 1;
Packit Service 97d2fb
Packit Service 97d2fb
      Dwarf_Attribute attr_mem;
Packit Service 97d2fb
      Dwarf_Attribute *attr = INTUSE(dwarf_attr) (die, DW_AT_abstract_origin,
Packit Service 97d2fb
						  &attr_mem);
Packit Service 97d2fb
      if (attr == NULL)
Packit Service 97d2fb
	attr = INTUSE(dwarf_attr) (die, DW_AT_specification, &attr_mem);
Packit Service 97d2fb
      if (attr == NULL)
Packit Service 97d2fb
	break;
Packit Service 97d2fb
Packit Service 97d2fb
      die = INTUSE(dwarf_formref_die) (attr, &die_mem);
Packit Service 97d2fb
    }
Packit Service 97d2fb
  while (die != NULL && chain-- != 0);
Packit Service 97d2fb
Packit Service 97d2fb
  /* Not NULL if it didn't have abstract_origin and specification
Packit Service 97d2fb
     attributes.  If it is a split CU then see if the skeleton
Packit Service 97d2fb
     has it.  */
Packit Service 97d2fb
  if (die != NULL && is_cudie (die)
Packit Service 97d2fb
      && die->cu->unit_type == DW_UT_split_compile)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      Dwarf_CU *skel_cu = __libdw_find_split_unit (die->cu);
Packit Service 97d2fb
      if (skel_cu != NULL)
Packit Service 97d2fb
	{
Packit Service 97d2fb
	  Dwarf_Die skel_die = CUDIE (skel_cu);
Packit Service 97d2fb
	  return INTUSE(dwarf_hasattr) (&skel_die, search_name);
Packit Service 97d2fb
	}
Packit Service 97d2fb
    }
Packit Service 97d2fb
Packit Service 97d2fb
  return 0;
Packit Service 97d2fb
}