Branch data Line data Source code
1 : : /* Return location expression to find return value given a function type DIE. 2 : : Copyright (C) 2005, 2006 Red Hat, Inc. 3 : : This file is part of elfutils. 4 : : 5 : : This file is free software; you can redistribute it and/or modify 6 : : it under the terms of either 7 : : 8 : : * the GNU Lesser General Public License as published by the Free 9 : : Software Foundation; either version 3 of the License, or (at 10 : : your option) any later version 11 : : 12 : : or 13 : : 14 : : * the GNU General Public License as published by the Free 15 : : Software Foundation; either version 2 of the License, or (at 16 : : your option) any later version 17 : : 18 : : or both in parallel, as here. 19 : : 20 : : elfutils is distributed in the hope that it will be useful, but 21 : : WITHOUT ANY WARRANTY; without even the implied warranty of 22 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 23 : : General Public License for more details. 24 : : 25 : : You should have received copies of the GNU General Public License and 26 : : the GNU Lesser General Public License along with this program. If 27 : : not, see <http://www.gnu.org/licenses/>. */ 28 : : 29 : : #ifdef HAVE_CONFIG_H 30 : : # include <config.h> 31 : : #endif 32 : : 33 : : #include "libdwflP.h" 34 : : 35 : : 36 : : int 37 : 30234 : dwfl_module_return_value_location (Dwfl_Module *mod, Dwarf_Die *functypedie, 38 : : const Dwarf_Op **locops) 39 : : { 40 [ - + ]: 30234 : if (mod == NULL) 41 : : return -1; 42 : : 43 [ + + ]: 30234 : if (mod->ebl == NULL) 44 : : { 45 : 16 : Dwfl_Error error = __libdwfl_module_getebl (mod); 46 [ - + ]: 16 : if (error != DWFL_E_NOERROR) 47 : : { 48 : 0 : __libdwfl_seterrno (error); 49 : 0 : return -1; 50 : : } 51 : : } 52 : : 53 : 30234 : int nops = ebl_return_value_location (mod->ebl, functypedie, locops); 54 [ - + ]: 30234 : if (unlikely (nops < 0)) 55 : : { 56 [ # # ]: 0 : if (nops == -1) 57 : 0 : __libdwfl_seterrno (DWFL_E_LIBDW); 58 [ # # ]: 0 : else if (nops == -2) 59 : 0 : __libdwfl_seterrno (DWFL_E_WEIRD_TYPE); 60 : : else 61 : 0 : __libdwfl_seterrno (DWFL_E_LIBEBL); 62 : : nops = -1; 63 : : } 64 : : 65 : : return nops; 66 : : }