| /* Determine whether a DIE covers a PC address. |
| Copyright (C) 2005 Red Hat, Inc. |
| |
| This program is Open Source software; you can redistribute it and/or |
| modify it under the terms of the Open Software License version 1.0 as |
| published by the Open Source Initiative. |
| |
| You should have received a copy of the Open Software License along |
| with this program; if not, you may obtain a copy of the Open Software |
| License version 1.0 from http://www.opensource.org/licenses/osl.php or |
| by writing the Open Source Initiative c/o Lawrence Rosen, Esq., |
| 3001 King Ranch Road, Ukiah, CA 95482. */ |
| |
| #ifdef HAVE_CONFIG_H |
| # include <config.h> |
| #endif |
| |
| #include "libdwP.h" |
| #include <dwarf.h> |
| |
| |
| int |
| dwarf_haspc (Dwarf_Die *die, Dwarf_Addr pc) |
| { |
| if (die == NULL) |
| return -1; |
| |
| /* Usually there is a single contiguous range. */ |
| Dwarf_Addr lowpc, highpc; |
| if (INTUSE(dwarf_highpc) (die, &highpc) == 0 |
| && INTUSE(dwarf_lowpc) (die, &lowpc) == 0) |
| return pc >= lowpc && pc < highpc; |
| |
| /* We have to look for a noncontiguous range. */ |
| Dwarf_Attribute attr_mem; |
| Dwarf_Attribute *attr = INTUSE(dwarf_attr) (die, DW_AT_ranges, &attr_mem); |
| if (attr == NULL) |
| return -1; |
| |
| /* Must have the form data4 or data8 which act as an offset. */ |
| Dwarf_Word offset; |
| if (INTUSE(dwarf_formudata) (attr, &offset) != 0) |
| return -1; |
| |
| const Elf_Data *d = attr->cu->dbg->sectiondata[IDX_debug_ranges]; |
| if (d == NULL) |
| { |
| __libdw_seterrno (DWARF_E_NO_DEBUG_RANGES); |
| return -1; |
| } |
| |
| /* Fetch the CU's base address. */ |
| Dwarf_Addr base; |
| Dwarf_Die cudie = |
| { |
| .cu = attr->cu, |
| .addr = ((char *) attr->cu->dbg->sectiondata[IDX_debug_info]->d_buf |
| + attr->cu->start + 3 * attr->cu->offset_size - 4 + 3), |
| }; |
| if (INTUSE(dwarf_lowpc) (&cudie, &base) != 0) |
| return -1; |
| |
| unsigned char *readp = d->d_buf + offset; |
| Dwarf_Addr begin; |
| Dwarf_Addr end; |
| do |
| { |
| next: |
| if ((unsigned char *) d->d_buf + d->d_size - readp |
| < attr->cu->address_size * 2) |
| { |
| __libdw_seterrno (DWARF_E_INVALID_DWARF); |
| return -1; |
| } |
| |
| if (attr->cu->address_size == 8) |
| { |
| begin = read_8ubyte_unaligned_inc (attr->cu->dbg, readp); |
| end = read_8ubyte_unaligned_inc (attr->cu->dbg, readp); |
| } |
| else |
| { |
| begin = (Dwarf_Sword) read_4sbyte_unaligned_inc (attr->cu->dbg, |
| readp); |
| end = read_4ubyte_unaligned_inc (attr->cu->dbg, readp); |
| } |
| |
| if (begin == (Dwarf_Addr) -1l) /* Base address entry. */ |
| { |
| base = end; |
| goto next; |
| } |
| |
| if (begin == 0 && end == 0) /* End of list entry. */ |
| /* This is not the droid you are looking for. */ |
| return 0; |
| |
| /* We have an address range entry. */ |
| } |
| while (pc < base + begin || pc >= base + end); |
| |
| /* This one matches the address. */ |
| return 1; |
| } |
| INTDEF (dwarf_haspc) |