1cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng/* Test program for dwfl_module_return_value_location. 2cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Copyright (C) 2005 Red Hat, Inc. 3cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng This file is part of Red Hat elfutils. 4cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 5cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is free software; you can redistribute it and/or modify 6cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng it under the terms of the GNU General Public License as published by the 7cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Free Software Foundation; version 2 of the License. 8cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 9cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is distributed in the hope that it will be useful, but 10cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng WITHOUT ANY WARRANTY; without even the implied warranty of 11cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng General Public License for more details. 13cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 14cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng You should have received a copy of the GNU General Public License along 15cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng with Red Hat elfutils; if not, write to the Free Software Foundation, 16cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA. 17cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 18cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is an included package of the Open Invention Network. 19cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng An included package of the Open Invention Network is a package for which 20cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Open Invention Network licensees cross-license their patents. No patent 21cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng license is granted, either expressly or impliedly, by designation as an 22cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng included package. Should you wish to participate in the Open Invention 23cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Network licensing program, please visit www.openinventionnetwork.com 24cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng <http://www.openinventionnetwork.com>. */ 25cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 26cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <config.h> 27cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <assert.h> 28cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <inttypes.h> 29cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include ELFUTILS_HEADER(dwfl) 30cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <dwarf.h> 31cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <argp.h> 32cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <stdio.h> 33cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <stdio_ext.h> 34cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <locale.h> 35cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <stdlib.h> 36cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <error.h> 37cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <string.h> 38cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <fnmatch.h> 39cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 40cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 41cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstruct args 42cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 43cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl *dwfl; 44cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die *cu; 45cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr dwbias; 46cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng char **argv; 47cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng}; 48cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 49cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic int 50cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chenghandle_function (Dwarf_Die *funcdie, void *arg) 51cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 52cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct args *a = arg; 53cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 54cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const char *name = dwarf_diename (funcdie); 55cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng char **argv = a->argv; 56cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (argv[0] != NULL) 57cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 58cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng bool match; 59cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng do 60cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng match = fnmatch (*argv, name, 0) == 0; 61cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (!match && *++argv); 62cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (!match) 63cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 64cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 65cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 66cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("(%s) %s: ", dwfl_module_info (dwfl_cumodule (a->cu), NULL, 67cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng NULL, NULL, 68cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng NULL, NULL, 69cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng NULL, NULL), name); 70cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 71cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const Dwarf_Op *locops; 72cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int nlocops = dwfl_module_return_value_location (dwfl_cumodule (a->cu), 73cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng funcdie, &locops); 74cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (nlocops < 0) 75cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng error (EXIT_FAILURE, 0, "dwfl_module_return_value_location: %s", 76cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwfl_errmsg (-1)); 77cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else if (nlocops == 0) 78cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng puts ("returns no value"); 79cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 80cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 81cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf ("return value location:"); 82cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng for (int i = 0; i < nlocops; ++i) 83cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng printf (" {%#x, %#" PRIx64 "}", locops[i].atom, locops[i].number); 84cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng puts (""); 85cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 86cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 87cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 88cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 89cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 90cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 91cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengint 92cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengmain (int argc, char *argv[]) 93cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 94cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int remaining; 95cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 96cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Set locale. */ 97cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (void) setlocale (LC_ALL, ""); 98cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 99cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct args a = { .dwfl = NULL, .cu = NULL }; 100cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 101cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &remaining, 102cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng &a.dwfl); 103cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng assert (a.dwfl != NULL); 104cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng a.argv = &argv[remaining]; 105cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 106cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int result = 0; 107cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 108cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while ((a.cu = dwfl_nextcu (a.dwfl, a.cu, &a.dwbias)) != NULL) 109cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwarf_getfuncs (a.cu, &handle_function, &a, 0); 110cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 111cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng dwfl_end (a.dwfl); 112cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 113cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return result; 114cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 115