1da0c48c4Sopenharmony_ci/* Test program for DWARF (.debug_frame) CFI handling. 2da0c48c4Sopenharmony_ci Copyright (C) 2009-2010, 2013, 2015, 2018 Red Hat, Inc. 3da0c48c4Sopenharmony_ci This file is part of elfutils. 4da0c48c4Sopenharmony_ci 5da0c48c4Sopenharmony_ci This file is free software; you can redistribute it and/or modify 6da0c48c4Sopenharmony_ci it under the terms of the GNU General Public License as published by 7da0c48c4Sopenharmony_ci the Free Software Foundation; either version 3 of the License, or 8da0c48c4Sopenharmony_ci (at your option) any later version. 9da0c48c4Sopenharmony_ci 10da0c48c4Sopenharmony_ci elfutils is distributed in the hope that it will be useful, but 11da0c48c4Sopenharmony_ci WITHOUT ANY WARRANTY; without even the implied warranty of 12da0c48c4Sopenharmony_ci MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13da0c48c4Sopenharmony_ci GNU General Public License for more details. 14da0c48c4Sopenharmony_ci 15da0c48c4Sopenharmony_ci You should have received a copy of the GNU General Public License 16da0c48c4Sopenharmony_ci along with this program. If not, see <http://www.gnu.org/licenses/>. */ 17da0c48c4Sopenharmony_ci 18da0c48c4Sopenharmony_ci#include <config.h> 19da0c48c4Sopenharmony_ci#include <assert.h> 20da0c48c4Sopenharmony_ci#include <inttypes.h> 21da0c48c4Sopenharmony_ci#include ELFUTILS_HEADER(dw) 22da0c48c4Sopenharmony_ci#include <dwarf.h> 23da0c48c4Sopenharmony_ci#include <argp.h> 24da0c48c4Sopenharmony_ci#include <stdio.h> 25da0c48c4Sopenharmony_ci#include <sys/types.h> 26da0c48c4Sopenharmony_ci#include <sys/stat.h> 27da0c48c4Sopenharmony_ci#include <fcntl.h> 28da0c48c4Sopenharmony_ci#include <locale.h> 29da0c48c4Sopenharmony_ci#include <stdlib.h> 30da0c48c4Sopenharmony_ci#include <string.h> 31da0c48c4Sopenharmony_ci 32da0c48c4Sopenharmony_ci#include "system.h" 33da0c48c4Sopenharmony_ci#include "../libdw/known-dwarf.h" 34da0c48c4Sopenharmony_ci 35da0c48c4Sopenharmony_cistatic const char * 36da0c48c4Sopenharmony_ciop_name (unsigned int code) 37da0c48c4Sopenharmony_ci{ 38da0c48c4Sopenharmony_ci static const char *const known[] = 39da0c48c4Sopenharmony_ci { 40da0c48c4Sopenharmony_ci#define DWARF_ONE_KNOWN_DW_OP(NAME, CODE) [CODE] = #NAME, 41da0c48c4Sopenharmony_ci DWARF_ALL_KNOWN_DW_OP 42da0c48c4Sopenharmony_ci#undef DWARF_ONE_KNOWN_DW_OP 43da0c48c4Sopenharmony_ci }; 44da0c48c4Sopenharmony_ci 45da0c48c4Sopenharmony_ci if (likely (code < sizeof (known) / sizeof (known[0]))) 46da0c48c4Sopenharmony_ci return known[code]; 47da0c48c4Sopenharmony_ci 48da0c48c4Sopenharmony_ci return NULL; 49da0c48c4Sopenharmony_ci} 50da0c48c4Sopenharmony_ci 51da0c48c4Sopenharmony_cistatic void 52da0c48c4Sopenharmony_ciprint_detail (int result, const Dwarf_Op *ops, size_t nops) 53da0c48c4Sopenharmony_ci{ 54da0c48c4Sopenharmony_ci if (result < 0) 55da0c48c4Sopenharmony_ci printf ("indeterminate (%s)\n", dwarf_errmsg (-1)); 56da0c48c4Sopenharmony_ci else if (nops == 0) 57da0c48c4Sopenharmony_ci printf ("%s\n", ops == NULL ? "same_value" : "undefined"); 58da0c48c4Sopenharmony_ci else 59da0c48c4Sopenharmony_ci { 60da0c48c4Sopenharmony_ci printf ("%s expression:", result == 0 ? "location" : "value"); 61da0c48c4Sopenharmony_ci for (size_t i = 0; i < nops; ++i) 62da0c48c4Sopenharmony_ci { 63da0c48c4Sopenharmony_ci printf (" %s", op_name(ops[i].atom)); 64da0c48c4Sopenharmony_ci if (ops[i].number2 == 0) 65da0c48c4Sopenharmony_ci { 66da0c48c4Sopenharmony_ci if (ops[i].atom == DW_OP_addr) 67da0c48c4Sopenharmony_ci printf ("(%#" PRIx64 ")", ops[i].number); 68da0c48c4Sopenharmony_ci else if (ops[i].number != 0) 69da0c48c4Sopenharmony_ci printf ("(%" PRId64 ")", ops[i].number); 70da0c48c4Sopenharmony_ci } 71da0c48c4Sopenharmony_ci else 72da0c48c4Sopenharmony_ci printf ("(%" PRId64 ",%" PRId64 ")", 73da0c48c4Sopenharmony_ci ops[i].number, ops[i].number2); 74da0c48c4Sopenharmony_ci } 75da0c48c4Sopenharmony_ci puts (""); 76da0c48c4Sopenharmony_ci } 77da0c48c4Sopenharmony_ci} 78da0c48c4Sopenharmony_ci 79da0c48c4Sopenharmony_cistatic int 80da0c48c4Sopenharmony_cihandle_address (Dwarf_CFI *cfi, GElf_Addr pc) 81da0c48c4Sopenharmony_ci{ 82da0c48c4Sopenharmony_ci Dwarf_Frame *frame; 83da0c48c4Sopenharmony_ci int result = dwarf_cfi_addrframe (cfi, pc, &frame); 84da0c48c4Sopenharmony_ci if (result != 0) 85da0c48c4Sopenharmony_ci { 86da0c48c4Sopenharmony_ci printf ("dwarf_cfi_addrframe: %s\n", dwarf_errmsg (-1)); 87da0c48c4Sopenharmony_ci return 1; 88da0c48c4Sopenharmony_ci } 89da0c48c4Sopenharmony_ci 90da0c48c4Sopenharmony_ci Dwarf_Addr start = pc; 91da0c48c4Sopenharmony_ci Dwarf_Addr end = pc; 92da0c48c4Sopenharmony_ci bool signalp; 93da0c48c4Sopenharmony_ci int ra_regno = dwarf_frame_info (frame, &start, &end, &signalp); 94da0c48c4Sopenharmony_ci 95da0c48c4Sopenharmony_ci printf ("%#" PRIx64 " => [%#" PRIx64 ", %#" PRIx64 "):\n", 96da0c48c4Sopenharmony_ci pc, start, end); 97da0c48c4Sopenharmony_ci 98da0c48c4Sopenharmony_ci if (ra_regno < 0) 99da0c48c4Sopenharmony_ci printf ("\treturn address register unavailable (%s)\n", 100da0c48c4Sopenharmony_ci dwarf_errmsg (-1)); 101da0c48c4Sopenharmony_ci else 102da0c48c4Sopenharmony_ci printf ("\treturn address in reg%u%s\n", 103da0c48c4Sopenharmony_ci ra_regno, signalp ? " (signal frame)" : ""); 104da0c48c4Sopenharmony_ci 105da0c48c4Sopenharmony_ci // Point cfa_ops to dummy to match print_detail expectations. 106da0c48c4Sopenharmony_ci // (nops == 0 && cfa_ops != NULL => "undefined") 107da0c48c4Sopenharmony_ci Dwarf_Op dummy; 108da0c48c4Sopenharmony_ci Dwarf_Op *cfa_ops = &dummy; 109da0c48c4Sopenharmony_ci size_t cfa_nops; 110da0c48c4Sopenharmony_ci result = dwarf_frame_cfa (frame, &cfa_ops, &cfa_nops); 111da0c48c4Sopenharmony_ci 112da0c48c4Sopenharmony_ci printf ("\tCFA "); 113da0c48c4Sopenharmony_ci print_detail (result, cfa_ops, cfa_nops); 114da0c48c4Sopenharmony_ci 115da0c48c4Sopenharmony_ci // Print the location of the first 10 (DWARF nr) registers 116da0c48c4Sopenharmony_ci for (int r = 0; r < 10; r++) 117da0c48c4Sopenharmony_ci { 118da0c48c4Sopenharmony_ci Dwarf_Op ops_mem[3]; 119da0c48c4Sopenharmony_ci Dwarf_Op *ops; 120da0c48c4Sopenharmony_ci size_t nops; 121da0c48c4Sopenharmony_ci printf ("\treg%d: ", r); 122da0c48c4Sopenharmony_ci int reg_result = dwarf_frame_register (frame, r, ops_mem, &ops, &nops); 123da0c48c4Sopenharmony_ci print_detail (reg_result, ops, nops); 124da0c48c4Sopenharmony_ci result |= reg_result; 125da0c48c4Sopenharmony_ci } 126da0c48c4Sopenharmony_ci 127da0c48c4Sopenharmony_ci free (frame); 128da0c48c4Sopenharmony_ci return result; 129da0c48c4Sopenharmony_ci} 130da0c48c4Sopenharmony_ci 131da0c48c4Sopenharmony_ciint 132da0c48c4Sopenharmony_cimain (int argc, char *argv[]) 133da0c48c4Sopenharmony_ci{ 134da0c48c4Sopenharmony_ci if (argc <= 2) 135da0c48c4Sopenharmony_ci error (EXIT_FAILURE, 0, "need file name argument and addresses"); 136da0c48c4Sopenharmony_ci 137da0c48c4Sopenharmony_ci int fd = open (argv[1], O_RDONLY); 138da0c48c4Sopenharmony_ci if (fd == -1) 139da0c48c4Sopenharmony_ci error (EXIT_FAILURE, errno, "cannot open input file `%s'", argv[1]); 140da0c48c4Sopenharmony_ci 141da0c48c4Sopenharmony_ci elf_version (EV_CURRENT); 142da0c48c4Sopenharmony_ci 143da0c48c4Sopenharmony_ci Elf *elf = elf_begin (fd, ELF_C_READ, NULL); 144da0c48c4Sopenharmony_ci if (elf == NULL) 145da0c48c4Sopenharmony_ci error (EXIT_FAILURE, 0, "cannot create ELF descriptor: %s", 146da0c48c4Sopenharmony_ci elf_errmsg (-1)); 147da0c48c4Sopenharmony_ci 148da0c48c4Sopenharmony_ci Dwarf *dwarf = dwarf_begin_elf (elf, DWARF_C_READ, NULL); 149da0c48c4Sopenharmony_ci if (dwarf == NULL) 150da0c48c4Sopenharmony_ci error (EXIT_FAILURE, 0, "cannot create DWARF descriptor: %s", 151da0c48c4Sopenharmony_ci dwarf_errmsg (-1)); 152da0c48c4Sopenharmony_ci 153da0c48c4Sopenharmony_ci Dwarf_CFI *cfi = dwarf_getcfi (dwarf); 154da0c48c4Sopenharmony_ci if (cfi == NULL) 155da0c48c4Sopenharmony_ci error (EXIT_FAILURE, 0, "cannot get DWARF CFI from .dwarf_frame: %s", 156da0c48c4Sopenharmony_ci dwarf_errmsg (-1)); 157da0c48c4Sopenharmony_ci 158da0c48c4Sopenharmony_ci int result = 0; 159da0c48c4Sopenharmony_ci int args = 2; 160da0c48c4Sopenharmony_ci do 161da0c48c4Sopenharmony_ci { 162da0c48c4Sopenharmony_ci char *endp; 163da0c48c4Sopenharmony_ci uintmax_t addr = strtoumax (argv[args], &endp, 0); 164da0c48c4Sopenharmony_ci if (endp != argv[args]) 165da0c48c4Sopenharmony_ci result |= handle_address (cfi, addr); 166da0c48c4Sopenharmony_ci else 167da0c48c4Sopenharmony_ci result = 1; 168da0c48c4Sopenharmony_ci } 169da0c48c4Sopenharmony_ci while (args++ < argc - 1); 170da0c48c4Sopenharmony_ci 171da0c48c4Sopenharmony_ci dwarf_end (dwarf); 172da0c48c4Sopenharmony_ci elf_end (elf); 173da0c48c4Sopenharmony_ci 174da0c48c4Sopenharmony_ci return result; 175da0c48c4Sopenharmony_ci} 176