diff options
| author |   Tom Tromey <tromey@redhat.com> | 2012-12-10 17:17:29 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@redhat.com> | 2012-12-10 17:17:29 +0000 |
| commit | 8b9737bf8cca3d3f999bb48a27019933f2138c2c (patch) | |
| tree | baeba3860356f90c0986f90733137348d482e61c /gdb/testsuite/gdb.dwarf2/implptr-64bit.exp | |
| parent | * buildsym.c (struct pending_block): Move from buildsym.h. (diff) | |
| download | binutils-gdb-8b9737bf8cca3d3f999bb48a27019933f2138c2c.tar.gz binutils-gdb-8b9737bf8cca3d3f999bb48a27019933f2138c2c.tar.bz2 binutils-gdb-8b9737bf8cca3d3f999bb48a27019933f2138c2c.zip | |
* dwarf2read.c (dwarf2_fetch_die_loc_sect_off): New function.
(dwarf2_fetch_die_loc_cu_off): Rename from
dwarf2_fetch_die_location_block. Rewrite to use
dwarf2_fetch_die_loc_sect_off.
* dwarf2loc.h (dwarf2_fetch_die_loc_sect_off): Declare.
(dwarf2_fetch_die_loc_cu_off): Rename.
* dwarf2loc.c (indirect_pieced_value): Use
dwarf2_fetch_die_loc_sect_off.
* dwarf2expr.h (struct dwarf_expr_context) <len, data>: Update
comment.
(struct dwarf_expr_piece) <v.ptr.die>: Now a sect_offset.
* dwarf2expr.c (add_piece): Update.
(execute_stack_op) <DW_OP_GNU_implicit_pointer>: Update comment.
testsuite
* gdb.dwarf2/implptr-64bit.exp: Run tests with two CUs as well.
(test): Add "two_cu" argument.
* gdb.dwarf2/implptr-64bit.S: Move subprogram later; use ref_addr
for types; allow two CUs.
Diffstat (limited to 'gdb/testsuite/gdb.dwarf2/implptr-64bit.exp')
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/implptr-64bit.exp | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/gdb/testsuite/gdb.dwarf2/implptr-64bit.exp b/gdb/testsuite/gdb.dwarf2/implptr-64bit.exp index 78f1594d1e6..066cf782d1b 100644 --- a/gdb/testsuite/gdb.dwarf2/implptr-64bit.exp +++ b/gdb/testsuite/gdb.dwarf2/implptr-64bit.exp @@ -22,16 +22,16 @@ if {![dwarf2_support]} { standard_testfile .S set mainfile main.c -proc test { dwarf_version offset_size addr_size ref_addr_size } { +proc test { dwarf_version offset_size addr_size ref_addr_size two_cu } { global testfile srcfile mainfile # 32-bit targets do not support any of the testcases; keep quiet there. set opts {quiet} - foreach n { dwarf_version offset_size addr_size ref_addr_size } { + foreach n { dwarf_version offset_size addr_size ref_addr_size two_cu } { lappend opts "additional_flags=-D[string toupper $n]=[expr "\$$n"]" } - set name "d${dwarf_version}o${offset_size}a${addr_size}r${ref_addr_size}" + set name "d${dwarf_version}o${offset_size}a${addr_size}r${ref_addr_size}t${two_cu}" set executable ${testfile}-${name} if [prepare_for_testing ${testfile}.exp $executable "${srcfile} ${mainfile}" $opts] { return -1 @@ -44,8 +44,12 @@ proc test { dwarf_version offset_size addr_size ref_addr_size } { gdb_test "p/x p->f" " = 0x1010101" $name } -# DWARF_VERSION OFFSET_SIZE ADDR_SIZE REF_ADDR_SIZE -test 2 8 4 4 -test 2 4 8 8 -test 3 8 4 8 -test 3 4 8 4 +# DWARF_VERSION OFFSET_SIZE ADDR_SIZE REF_ADDR_SIZE TWO_CU +test 2 8 4 4 0 +test 2 4 8 8 0 +test 3 8 4 8 0 +test 3 4 8 4 0 +test 2 8 4 4 1 +test 2 4 8 8 1 +test 3 8 4 8 1 +test 3 4 8 4 1 |