103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes/* Test program for CFI handling. 203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Copyright (C) 2009-2010, 2013 Red Hat, Inc. 303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is part of elfutils. 403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes This file is free software; you can redistribute it and/or modify 603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes it under the terms of the GNU General Public License as published by 703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes the Free Software Foundation; either version 3 of the License, or 803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes (at your option) any later version. 903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes elfutils is distributed in the hope that it will be useful, but 1103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes WITHOUT ANY WARRANTY; without even the implied warranty of 1203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes GNU General Public License for more details. 1403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes You should have received a copy of the GNU General Public License 1603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes along with this program. If not, see <http://www.gnu.org/licenses/>. */ 1703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 1803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <config.h> 1903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <assert.h> 2003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <inttypes.h> 2103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include ELFUTILS_HEADER(dwfl) 2203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <dwarf.h> 2303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <argp.h> 2403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <stdio.h> 2503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <stdio_ext.h> 2603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <locale.h> 2703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <stdlib.h> 2803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include <string.h> 2903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 3003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#include "../libdw/known-dwarf.h" 3103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 3203333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic const char * 3303333823c75a1c1887e923828113a1b0fd12020cElliott Hughesop_name (unsigned int code) 3403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 3503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes static const char *const known[] = 3603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 3703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define ONE_KNOWN_DW_OP_DESC(NAME, CODE, DESC) ONE_KNOWN_DW_OP (NAME, CODE) 3803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#define ONE_KNOWN_DW_OP(NAME, CODE) [CODE] = #NAME, 3903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes ALL_KNOWN_DW_OP 4003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#undef ONE_KNOWN_DW_OP 4103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes#undef ONE_KNOWN_DW_OP_DESC 4203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes }; 4303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 4403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (likely (code < sizeof (known) / sizeof (known[0]))) 4503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return known[code]; 4603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 4703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return NULL; 4803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 4903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 5003333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic void 5103333823c75a1c1887e923828113a1b0fd12020cElliott Hughesprint_detail (int result, const Dwarf_Op *ops, size_t nops, Dwarf_Addr bias) 5203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 5303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (result < 0) 5403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("indeterminate (%s)\n", dwarf_errmsg (-1)); 5503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else if (nops == 0) 5603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%s\n", ops == NULL ? "same_value" : "undefined"); 5703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 5803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 5903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%s expression:", result == 0 ? "location" : "value"); 6003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes for (size_t i = 0; i < nops; ++i) 6103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 6203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf (" %s", op_name(ops[i].atom)); 6303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (ops[i].number2 == 0) 6403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 6503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (ops[i].atom == DW_OP_addr) 6603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("(%#" PRIx64 ")", ops[i].number + bias); 6703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else if (ops[i].number != 0) 6803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("(%" PRId64 ")", ops[i].number); 6903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 7003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 7103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("(%" PRId64 ",%" PRId64 ")", 7203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes ops[i].number, ops[i].number2); 7303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 7403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes puts (""); 7503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 7603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 7703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 7803333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstruct stuff 7903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 8003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Frame *frame; 8103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Addr bias; 8203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes}; 8303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 8403333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic int 8503333823c75a1c1887e923828113a1b0fd12020cElliott Hughesprint_register (void *arg, 8603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int regno, 8703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes const char *setname, 8803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes const char *prefix, 8903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes const char *regname, 9003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int bits __attribute__ ((unused)), 9103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int type __attribute__ ((unused))) 9203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 9303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes struct stuff *stuff = arg; 9403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 9503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("\t%s reg%u (%s%s): ", setname, regno, prefix, regname); 9603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 9703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Op ops_mem[2]; 9803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Op *ops; 9903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes size_t nops; 10003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int result = dwarf_frame_register (stuff->frame, regno, ops_mem, &ops, &nops); 10103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes print_detail (result, ops, nops, stuff->bias); 10203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 10303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return DWARF_CB_OK; 10403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 10503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 10603333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic int 10703333823c75a1c1887e923828113a1b0fd12020cElliott Hugheshandle_cfi (Dwfl *dwfl, const char *which, Dwarf_CFI *cfi, 10803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes GElf_Addr pc, struct stuff *stuff) 10903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 11003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (cfi == NULL) 11103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 11203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("handle_cfi no CFI (%s): %s\n", which, dwarf_errmsg (-1)); 11303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return -1; 11403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 11503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 11603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int result = dwarf_cfi_addrframe (cfi, pc - stuff->bias, &stuff->frame); 11703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (result != 0) 11803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 11903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("dwarf_cfi_addrframe (%s): %s\n", which, dwarf_errmsg (-1)); 12003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return 1; 12103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 12203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 12303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Addr start = pc; 12403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Addr end = pc; 12503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes bool signalp; 12603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int ra_regno = dwarf_frame_info (stuff->frame, &start, &end, &signalp); 12703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (ra_regno >= 0) 12803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 12903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes start += stuff->bias; 13003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes end += stuff->bias; 13103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 13203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 13303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("%s has %#" PRIx64 " => [%#" PRIx64 ", %#" PRIx64 "):\n", 13403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes which, pc, start, end); 13503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 13603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (ra_regno < 0) 13703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("\treturn address register unavailable (%s)\n", 13803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes dwarf_errmsg (0)); 13903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 14003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("\treturn address in reg%u%s\n", 14103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes ra_regno, signalp ? " (signal frame)" : ""); 14203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 14303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes // Point cfa_ops to dummy to match print_detail expectations. 14403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes // (nops == 0 && cfa_ops != NULL => "undefined") 14503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Op dummy; 14603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwarf_Op *cfa_ops = &dummy; 14703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes size_t cfa_nops; 14803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes result = dwarf_frame_cfa (stuff->frame, &cfa_ops, &cfa_nops); 14903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 15003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes printf ("\tCFA "); 15103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes print_detail (result, cfa_ops, cfa_nops, stuff->bias); 15203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 15303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes (void) dwfl_module_register_names (dwfl_addrmodule (dwfl, pc), 15403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes &print_register, stuff); 15503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 15603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return 0; 15703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 15803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 15903333823c75a1c1887e923828113a1b0fd12020cElliott Hughesstatic int 16003333823c75a1c1887e923828113a1b0fd12020cElliott Hugheshandle_address (GElf_Addr pc, Dwfl *dwfl) 16103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 16203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwfl_Module *mod = dwfl_addrmodule (dwfl, pc); 16303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 16403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes struct stuff stuff; 16503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return (handle_cfi (dwfl, ".eh_frame", 16603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes dwfl_module_eh_cfi (mod, &stuff.bias), pc, &stuff) 16703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes & handle_cfi (dwfl, ".debug_frame", 16803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes dwfl_module_dwarf_cfi (mod, &stuff.bias), pc, &stuff)); 16903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 17003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 17103333823c75a1c1887e923828113a1b0fd12020cElliott Hughesint 17203333823c75a1c1887e923828113a1b0fd12020cElliott Hughesmain (int argc, char *argv[]) 17303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes{ 17403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int remaining; 17503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 17603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* Set locale. */ 17703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes (void) setlocale (LC_ALL, ""); 17803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 17903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes Dwfl *dwfl = NULL; 18003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes (void) argp_parse (dwfl_standard_argp (), argc, argv, 0, &remaining, &dwfl); 18103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes assert (dwfl != NULL); 18203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 18303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes int result = 0; 18403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 18503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* Now handle the addresses. In case none are given on the command 18603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes line, read from stdin. */ 18703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (remaining == argc) 18803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 18903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes /* We use no threads here which can interfere with handling a stream. */ 19003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes (void) __fsetlocking (stdin, FSETLOCKING_BYCALLER); 19103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 19203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes char *buf = NULL; 19303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes size_t len = 0; 19403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes while (!feof_unlocked (stdin)) 19503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 19603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (getline (&buf, &len, stdin) < 0) 19703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes break; 19803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 19903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes char *endp; 20003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes uintmax_t addr = strtoumax (buf, &endp, 0); 20103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (endp != buf) 20203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes result |= handle_address (addr, dwfl); 20303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 20403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes result = 1; 20503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 20603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 20703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes free (buf); 20803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 20903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 21003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 21103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes do 21203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes { 21303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes char *endp; 21403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes uintmax_t addr = strtoumax (argv[remaining], &endp, 0); 21503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes if (endp != argv[remaining]) 21603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes result |= handle_address (addr, dwfl); 21703333823c75a1c1887e923828113a1b0fd12020cElliott Hughes else 21803333823c75a1c1887e923828113a1b0fd12020cElliott Hughes result = 1; 21903333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 22003333823c75a1c1887e923828113a1b0fd12020cElliott Hughes while (++remaining < argc); 22103333823c75a1c1887e923828113a1b0fd12020cElliott Hughes } 22203333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 22303333823c75a1c1887e923828113a1b0fd12020cElliott Hughes dwfl_end (dwfl); 22403333823c75a1c1887e923828113a1b0fd12020cElliott Hughes 22503333823c75a1c1887e923828113a1b0fd12020cElliott Hughes return result; 22603333823c75a1c1887e923828113a1b0fd12020cElliott Hughes} 227