Blame libdwfl/dwfl_module_return_value_location.c

Packit Service 97d2fb
/* Return location expression to find return value given a function type DIE.
Packit Service 97d2fb
   Copyright (C) 2005, 2006 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 "libdwflP.h"
Packit Service 97d2fb
Packit Service 97d2fb
Packit Service 97d2fb
int
Packit Service 97d2fb
dwfl_module_return_value_location (Dwfl_Module *mod, Dwarf_Die *functypedie,
Packit Service 97d2fb
				   const Dwarf_Op **locops)
Packit Service 97d2fb
{
Packit Service 97d2fb
  if (mod == NULL)
Packit Service 97d2fb
    return -1;
Packit Service 97d2fb
Packit Service 97d2fb
  if (mod->ebl == NULL)
Packit Service 97d2fb
    {
Packit Service 97d2fb
      Dwfl_Error error = __libdwfl_module_getebl (mod);
Packit Service 97d2fb
      if (error != DWFL_E_NOERROR)
Packit Service 97d2fb
	{
Packit Service 97d2fb
	  __libdwfl_seterrno (error);
Packit Service 97d2fb
	  return -1;
Packit Service 97d2fb
	}
Packit Service 97d2fb
    }
Packit Service 97d2fb
Packit Service 97d2fb
  int nops = ebl_return_value_location (mod->ebl, functypedie, locops);
Packit Service 97d2fb
  if (unlikely (nops < 0))
Packit Service 97d2fb
    {
Packit Service 97d2fb
      if (nops == -1)
Packit Service 97d2fb
	__libdwfl_seterrno (DWFL_E_LIBDW);
Packit Service 97d2fb
      else if (nops == -2)
Packit Service 97d2fb
	__libdwfl_seterrno (DWFL_E_WEIRD_TYPE);
Packit Service 97d2fb
      else
Packit Service 97d2fb
	__libdwfl_seterrno (DWFL_E_LIBEBL);
Packit Service 97d2fb
      nops = -1;
Packit Service 97d2fb
    }
Packit Service 97d2fb
Packit Service 97d2fb
  return nops;
Packit Service 97d2fb
}