From 0971de02d569f48f50c5223bac8843d8f8660774 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 26 Sep 2012 19:50:13 +0000 Subject: [PATCH] * dwarf2read.c (mark_common_block_symbol_computed): New function. (read_common_block): Handle child DIEs with DW_AT_data_member_location. (new_symbol_full): Add special case for common blocks. gdb/testsuite * gdb.dwarf2/dw2-common-block.S: New file. * gdb.dwarf2/dw2-common-block.exp: New file. --- gdb/ChangeLog | 7 + gdb/dwarf2read.c | 146 ++- gdb/testsuite/ChangeLog | 5 + gdb/testsuite/gdb.dwarf2/dw2-common-block.S | 872 ++++++++++++++++++ gdb/testsuite/gdb.dwarf2/dw2-common-block.exp | 50 + 5 files changed, 1076 insertions(+), 4 deletions(-) create mode 100644 gdb/testsuite/gdb.dwarf2/dw2-common-block.S create mode 100644 gdb/testsuite/gdb.dwarf2/dw2-common-block.exp diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 792df94d72..08c0eea42b 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +2012-09-26 Tom Tromey + + * dwarf2read.c (mark_common_block_symbol_computed): New function. + (read_common_block): Handle child DIEs with + DW_AT_data_member_location. + (new_symbol_full): Add special case for common blocks. + 2012-09-26 Jan Kratochvil Tom Tromey diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 87285e3f7f..009be3c890 100644 --- a/gdb/dwarf2read.c +++ b/gdb/dwarf2read.c @@ -11064,6 +11064,79 @@ read_set_type (struct die_info *die, struct dwarf2_cu *cu) return set_die_type (die, set_type, cu); } +/* A helper for read_common_block that creates a locexpr baton. + SYM is the symbol which we are marking as computed. + COMMON_DIE is the DIE for the common block. + COMMON_LOC is the location expression attribute for the common + block itself. + MEMBER_LOC is the location expression attribute for the particular + member of the common block that we are processing. + CU is the CU from which the above come. */ + +static void +mark_common_block_symbol_computed (struct symbol *sym, + struct die_info *common_die, + struct attribute *common_loc, + struct attribute *member_loc, + struct dwarf2_cu *cu) +{ + struct objfile *objfile = dwarf2_per_objfile->objfile; + struct dwarf2_locexpr_baton *baton; + gdb_byte *ptr; + unsigned int cu_off; + enum bfd_endian byte_order = gdbarch_byte_order (get_objfile_arch (objfile)); + LONGEST offset = 0; + + gdb_assert (common_loc && member_loc); + gdb_assert (attr_form_is_block (common_loc)); + gdb_assert (attr_form_is_block (member_loc) + || attr_form_is_constant (member_loc)); + + baton = obstack_alloc (&objfile->objfile_obstack, + sizeof (struct dwarf2_locexpr_baton)); + baton->per_cu = cu->per_cu; + gdb_assert (baton->per_cu); + + baton->size = 5 /* DW_OP_call4 */ + 1 /* DW_OP_plus */; + + if (attr_form_is_constant (member_loc)) + { + offset = dwarf2_get_attr_constant_value (member_loc, 0); + baton->size += 1 /* DW_OP_addr */ + cu->header.addr_size; + } + else + baton->size += DW_BLOCK (member_loc)->size; + + ptr = obstack_alloc (&objfile->objfile_obstack, baton->size); + baton->data = ptr; + + *ptr++ = DW_OP_call4; + cu_off = common_die->offset.sect_off - cu->per_cu->offset.sect_off; + store_unsigned_integer (ptr, 4, byte_order, cu_off); + ptr += 4; + + if (attr_form_is_constant (member_loc)) + { + *ptr++ = DW_OP_addr; + store_unsigned_integer (ptr, cu->header.addr_size, byte_order, offset); + ptr += cu->header.addr_size; + } + else + { + /* We have to copy the data here, because DW_OP_call4 will only + use a DW_AT_location attribute. */ + memcpy (ptr, DW_BLOCK (member_loc)->data, DW_BLOCK (member_loc)->size); + ptr += DW_BLOCK (member_loc)->size; + } + + *ptr++ = DW_OP_plus; + gdb_assert (ptr - baton->data == baton->size); + + SYMBOL_COMPUTED_OPS (sym) = &dwarf2_locexpr_funcs; + SYMBOL_LOCATION_BATON (sym) = baton; + SYMBOL_CLASS (sym) = LOC_COMPUTED; +} + /* Create appropriate locally-scoped variables for all the DW_TAG_common_block entries. Also create a struct common_block listing all such variables for `info common'. COMMON_BLOCK_DOMAIN @@ -11073,6 +11146,29 @@ read_set_type (struct die_info *die, struct dwarf2_cu *cu) static void read_common_block (struct die_info *die, struct dwarf2_cu *cu) { + struct attribute *attr; + + attr = dwarf2_attr (die, DW_AT_location, cu); + if (attr) + { + /* Support the .debug_loc offsets. */ + if (attr_form_is_block (attr)) + { + /* Ok. */ + } + else if (attr_form_is_section_offset (attr)) + { + dwarf2_complex_location_expr_complaint (); + attr = NULL; + } + else + { + dwarf2_invalid_attrib_class_complaint ("DW_AT_location", + "common block member"); + attr = NULL; + } + } + if (die->child != NULL) { struct objfile *objfile = cu->objfile; @@ -11099,8 +11195,39 @@ read_common_block (struct die_info *die, struct dwarf2_cu *cu) /* Create the symbol in the DW_TAG_common_block block in the current symbol scope. */ sym = new_symbol (child_die, NULL, cu); - if (sym) - common_block->contents[common_block->n_entries++] = sym; + if (sym != NULL) + { + struct attribute *member_loc; + + common_block->contents[common_block->n_entries++] = sym; + + member_loc = dwarf2_attr (child_die, DW_AT_data_member_location, + cu); + if (member_loc) + { + /* GDB has handled this for a long time, but it is + not specified by DWARF. It seems to have been + emitted by gfortran at least as recently as: + http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23057. */ + complaint (&symfile_complaints, + _("Variable in common block has " + "DW_AT_data_member_location " + "- DIE at 0x%x [in module %s]"), + child_die->offset.sect_off, cu->objfile->name); + + if (attr_form_is_section_offset (member_loc)) + dwarf2_complex_location_expr_complaint (); + else if (attr_form_is_constant (member_loc) + || attr_form_is_block (member_loc)) + { + if (attr) + mark_common_block_symbol_computed (sym, die, attr, + member_loc, cu); + } + else + dwarf2_complex_location_expr_complaint (); + } + } } sym = new_symbol (die, objfile_type (objfile)->builtin_void, cu); @@ -15003,8 +15130,19 @@ new_symbol_full (struct die_info *die, struct type *type, struct dwarf2_cu *cu, the minimal symbol table whenever the variable is referenced. */ attr2 = dwarf2_attr (die, DW_AT_external, cu); - if (attr2 && (DW_UNSND (attr2) != 0) - && dwarf2_attr (die, DW_AT_type, cu) != NULL) + + /* Fortran explicitly imports any global symbols to the local + scope by DW_TAG_common_block. */ + if (cu->language == language_fortran && die->parent + && die->parent->tag == DW_TAG_common_block) + { + /* SYMBOL_CLASS doesn't matter here because + read_common_block is going to reset it. */ + if (!suppress_add) + list_to_add = cu->list_in_scope; + } + else if (attr2 && (DW_UNSND (attr2) != 0) + && dwarf2_attr (die, DW_AT_type, cu) != NULL) { /* A variable with DW_AT_external is never static, but it may be block-scoped. */ diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 0fbd11b7a5..6707751d94 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-09-26 Tom Tromey + + * gdb.dwarf2/dw2-common-block.S: New file. + * gdb.dwarf2/dw2-common-block.exp: New file. + 2012-09-26 Jan Kratochvil * gdb.fortran/common-block.exp: New file. diff --git a/gdb/testsuite/gdb.dwarf2/dw2-common-block.S b/gdb/testsuite/gdb.dwarf2/dw2-common-block.S new file mode 100644 index 0000000000..ec6c6ae457 --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-common-block.S @@ -0,0 +1,872 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2012 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + +/* This was made from ../gdb.fortran/common-block.f90 using + gfortran -dA -S -g + and then hand-editing the assembly a bit to introduce + DW_AT_data_member_location. + + Search for "#if 0" in this file to see the important edits. */ + + .file "common-block.f90" + .text +.Ltext0: + .globl in_ + .type in_, @function +in_: +.LFB0: + .file 1 "../gdb.fortran/common-block.f90" + # ../gdb.fortran/common-block.f90:21 + .loc 1 21 0 + .cfi_startproc + # basic block 2 + pushq %rbp + .cfi_def_cfa_offset 16 + .cfi_offset 6, -16 + movq %rsp, %rbp + .cfi_def_cfa_register 6 + subq $16, %rsp + # ../gdb.fortran/common-block.f90:34 + .loc 1 34 0 + movl $5, -4(%rbp) + # ../gdb.fortran/common-block.f90:35 + .loc 1 35 0 + movl $55, -8(%rbp) + # ../gdb.fortran/common-block.f90:21 + .loc 1 21 0 + movl fo_o_(%rip), %eax + # ../gdb.fortran/common-block.f90:37 + .loc 1 37 0 + cmpl $11, %eax + jne .L2 + # basic block 3 + # ../gdb.fortran/common-block.f90:21 + .loc 1 21 0 discriminator 2 + movss fo_o_+4(%rip), %xmm0 + # ../gdb.fortran/common-block.f90:37 + .loc 1 37 0 discriminator 2 + ucomiss .LC0(%rip), %xmm0 + jp .L2 + # basic block 4 + ucomiss .LC0(%rip), %xmm0 + jne .L2 + # basic block 5 + # ../gdb.fortran/common-block.f90:21 + .loc 1 21 0 discriminator 3 + movsd fo_o_+8(%rip), %xmm0 + # ../gdb.fortran/common-block.f90:37 + .loc 1 37 0 discriminator 3 + ucomisd .LC1(%rip), %xmm0 + jp .L2 + # basic block 6 + ucomisd .LC1(%rip), %xmm0 + je .L8 +.L2: + # basic block 7 + # ../gdb.fortran/common-block.f90:37 + .loc 1 37 0 is_stmt 0 discriminator 1 + movl $0, %eax + call _gfortran_abort +.L8: + # basic block 8 + # ../gdb.fortran/common-block.f90:21 + .loc 1 21 0 is_stmt 1 + movl foo_(%rip), %eax + # ../gdb.fortran/common-block.f90:38 + .loc 1 38 0 + cmpl $1, %eax + jne .L5 + # basic block 9 + # ../gdb.fortran/common-block.f90:21 + .loc 1 21 0 discriminator 2 + movss foo_+4(%rip), %xmm0 + # ../gdb.fortran/common-block.f90:38 + .loc 1 38 0 discriminator 2 + ucomiss .LC2(%rip), %xmm0 + jp .L5 + # basic block 10 + ucomiss .LC2(%rip), %xmm0 + jne .L5 + # basic block 11 + # ../gdb.fortran/common-block.f90:21 + .loc 1 21 0 discriminator 3 + movsd foo_+8(%rip), %xmm0 + # ../gdb.fortran/common-block.f90:38 + .loc 1 38 0 discriminator 3 + ucomisd .LC3(%rip), %xmm0 + jp .L5 + # basic block 12 + ucomisd .LC3(%rip), %xmm0 + je .L9 +.L5: + # basic block 13 + # ../gdb.fortran/common-block.f90:38 + .loc 1 38 0 is_stmt 0 discriminator 1 + movl $0, %eax + call _gfortran_abort +.L9: + # basic block 14 + # ../gdb.fortran/common-block.f90:40 + .loc 1 40 0 is_stmt 1 + movl $0, fo_o_(%rip) + # ../gdb.fortran/common-block.f90:42 + .loc 1 42 0 + leave + .cfi_def_cfa 7, 8 + ret + .cfi_endproc +.LFE0: + .size in_, .-in_ + .type MAIN__, @function +MAIN__: +.LFB1: + # ../gdb.fortran/common-block.f90:44 + .loc 1 44 0 + .cfi_startproc + # basic block 2 + pushq %rbp + .cfi_def_cfa_offset 16 + .cfi_offset 6, -16 + movq %rsp, %rbp + .cfi_def_cfa_register 6 + # ../gdb.fortran/common-block.f90:57 + .loc 1 57 0 + movl $1, foo_(%rip) + # ../gdb.fortran/common-block.f90:58 + .loc 1 58 0 + movl $0x40000000, %eax + movl %eax, foo_+4(%rip) + # ../gdb.fortran/common-block.f90:59 + .loc 1 59 0 + movabsq $4613937818241073152, %rax + movq %rax, foo_+8(%rip) + # ../gdb.fortran/common-block.f90:61 + .loc 1 61 0 + movl $11, fo_o_(%rip) + # ../gdb.fortran/common-block.f90:62 + .loc 1 62 0 + movl $0x41b00000, %eax + movl %eax, fo_o_+4(%rip) + # ../gdb.fortran/common-block.f90:63 + .loc 1 63 0 + movabsq $4629841154425225216, %rax + movq %rax, fo_o_+8(%rip) + # ../gdb.fortran/common-block.f90:65 + .loc 1 65 0 + movl $0, %eax + call in_ + # ../gdb.fortran/common-block.f90:67 + .loc 1 67 0 + popq %rbp + .cfi_def_cfa 7, 8 + ret + .cfi_endproc +.LFE1: + .size MAIN__, .-MAIN__ + .globl main + .type main, @function +main: +.LFB2: + # ../gdb.fortran/common-block.f90:67 + .loc 1 67 0 + .cfi_startproc + # basic block 2 + pushq %rbp + .cfi_def_cfa_offset 16 + .cfi_offset 6, -16 + movq %rsp, %rbp + .cfi_def_cfa_register 6 + subq $16, %rsp + movl %edi, -4(%rbp) + movq %rsi, -16(%rbp) + # ../gdb.fortran/common-block.f90:67 + .loc 1 67 0 + movq -16(%rbp), %rdx + movl -4(%rbp), %eax + movq %rdx, %rsi + movl %eax, %edi + call _gfortran_set_args + movl $options.0.1570, %esi + movl $8, %edi + call _gfortran_set_options + call MAIN__ + movl $0, %eax + leave + .cfi_def_cfa 7, 8 + ret + .cfi_endproc +.LFE2: + .size main, .-main + .comm foo_,16,16 + .comm fo_o_,16,16 + .section .rodata + .align 32 + .type options.0.1570, @object + .size options.0.1570, 32 +options.0.1570: + .long 68 + .long 511 + .long 0 + .long 0 + .long 0 + .long 1 + .long 0 + .long 1 + .align 4 +.LC0: + .long 1102053376 + .align 8 +.LC1: + .long 0 + .long 1077968896 + .align 4 +.LC2: + .long 1073741824 + .align 8 +.LC3: + .long 0 + .long 1074266112 + .text +.Letext0: + .section .debug_info,"",@progbits +.Ldebug_info0: +#if 0 + .long 0x247 # Length of Compilation Unit Info +#else + .long .Ldebuginfo_end - .Ldebug_info1 # Length of Compilation Unit Info +.Ldebug_info1: +#endif + .value 0x4 # DWARF version number + .long .Ldebug_abbrev0 # Offset Into Abbrev. Section + .byte 0x8 # Pointer Size (in bytes) + .uleb128 0x1 # (DIE (0xb) DW_TAG_compile_unit) + .long .LASF13 # DW_AT_producer: "GNU Fortran 4.6.3 plus hand hackery" + .byte 0xe # DW_AT_language + .byte 0x2 # DW_AT_identifier_case + .long .LASF14 # DW_AT_name: "../gdb.fortran/common-block.f90" + .long .LASF15 # DW_AT_comp_dir: "gdb.dwarf2" + .quad .Ltext0 # DW_AT_low_pc + .quad .Letext0 # DW_AT_high_pc + .long .Ldebug_line0 # DW_AT_stmt_list + .uleb128 0x2 # (DIE (0x2e) DW_TAG_subprogram) + # DW_AT_external + .ascii "in\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x15 # DW_AT_decl_line + .ascii "in_\0" # DW_AT_linkage_name + .quad .LFB0 # DW_AT_low_pc + .quad .LFE0 # DW_AT_high_pc + .uleb128 0x1 # DW_AT_frame_base + .byte 0x9c # DW_OP_call_frame_cfa + # DW_AT_GNU_all_tail_call_sites + .long 0x11a # DW_AT_sibling + .uleb128 0x3 # (DIE (0x4e) DW_TAG_common_block) + .long .LASF0 # DW_AT_name: "fo_o" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x1f # DW_AT_decl_line + .long .LASF8 # DW_AT_linkage_name: "fo_o_" + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad fo_o_ + .long 0xa5 # DW_AT_sibling +#if 0 + .uleb128 0x4 # (DIE (0x67) DW_TAG_variable) +#else + .uleb128 0x10 # (DIE (0x1bb) DW_TAG_variable) +#endif + .ascii "ix\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x17 # DW_AT_decl_line + .long 0x11a # DW_AT_type + # DW_AT_external +#if 0 + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad fo_o_ +#else + .uleb128 0x9 # DW_AT_data_member_location + # (size chosen to avoid renumbering all DIEs) + .byte 0x8 # DW_OP_const1u + .byte 0x0 + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop +#endif + .uleb128 0x4 # (DIE (0x7b) DW_TAG_variable) + .ascii "iy2\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x18 # DW_AT_decl_line + .long 0x121 # DW_AT_type + # DW_AT_external + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad fo_o_+4 + .uleb128 0x4 # (DIE (0x90) DW_TAG_variable) + .ascii "iz\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x19 # DW_AT_decl_line + .long 0x128 # DW_AT_type + # DW_AT_external + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad fo_o_+8 + .byte 0 # end of children of DIE 0x4e + .uleb128 0x5 # (DIE (0xa5) DW_TAG_common_block) + .ascii "foo\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x20 # DW_AT_decl_line + .long .LASF16 # DW_AT_linkage_name: "foo_" + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad foo_ + .long 0xfe # DW_AT_sibling + .uleb128 0x6 # (DIE (0xbe) DW_TAG_variable) + .long .LASF1 # DW_AT_name: "ix_x" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x1b # DW_AT_decl_line + .long 0x11a # DW_AT_type + # DW_AT_external + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad foo_ + .uleb128 0x6 # (DIE (0xd3) DW_TAG_variable) + .long .LASF2 # DW_AT_name: "iy_y" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x1c # DW_AT_decl_line + .long 0x121 # DW_AT_type + # DW_AT_external + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad foo_+4 + .uleb128 0x6 # (DIE (0xe8) DW_TAG_variable) + .long .LASF3 # DW_AT_name: "iz_z2" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x1d # DW_AT_decl_line + .long 0x128 # DW_AT_type + # DW_AT_external + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad foo_+8 + .byte 0 # end of children of DIE 0xa5 + .uleb128 0x7 # (DIE (0xfe) DW_TAG_variable) + .ascii "iy\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x22 # DW_AT_decl_line + .long 0x11a # DW_AT_type + .uleb128 0x2 # DW_AT_location + .byte 0x91 # DW_OP_fbreg + .sleb128 -20 + .uleb128 0x8 # (DIE (0x10b) DW_TAG_variable) + .long .LASF4 # DW_AT_name: "iz_z" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x23 # DW_AT_decl_line + .long 0x11a # DW_AT_type + .uleb128 0x2 # DW_AT_location + .byte 0x91 # DW_OP_fbreg + .sleb128 -24 + .byte 0 # end of children of DIE 0x2e + .uleb128 0x9 # (DIE (0x11a) DW_TAG_base_type) + .byte 0x4 # DW_AT_byte_size + .byte 0x5 # DW_AT_encoding + .long .LASF5 # DW_AT_name: "integer(kind=4)" + .uleb128 0x9 # (DIE (0x121) DW_TAG_base_type) + .byte 0x4 # DW_AT_byte_size + .byte 0x4 # DW_AT_encoding + .long .LASF6 # DW_AT_name: "real(kind=4)" + .uleb128 0x9 # (DIE (0x128) DW_TAG_base_type) + .byte 0x8 # DW_AT_byte_size + .byte 0x4 # DW_AT_encoding + .long .LASF7 # DW_AT_name: "real(kind=8)" + .uleb128 0xa # (DIE (0x12f) DW_TAG_subprogram) + .long .LASF17 # DW_AT_name: "common_test" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x2c # DW_AT_decl_line + .quad .LFB1 # DW_AT_low_pc + .quad .LFE1 # DW_AT_high_pc + .uleb128 0x1 # DW_AT_frame_base + .byte 0x9c # DW_OP_call_frame_cfa + # DW_AT_GNU_all_tail_call_sites + # DW_AT_main_subprogram + .byte 0x2 # DW_AT_calling_convention + .long 0x1f9 # DW_AT_sibling + .uleb128 0x3 # (DIE (0x14d) DW_TAG_common_block) + .long .LASF0 # DW_AT_name: "fo_o" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x1f # DW_AT_decl_line + .long .LASF8 # DW_AT_linkage_name: "fo_o_" + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad fo_o_ + .long 0x1a6 # DW_AT_sibling + .uleb128 0x6 # (DIE (0x166) DW_TAG_variable) + .long .LASF1 # DW_AT_name: "ix_x" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x32 # DW_AT_decl_line + .long 0x11a # DW_AT_type + # DW_AT_external + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad fo_o_ + .uleb128 0x6 # (DIE (0x17b) DW_TAG_variable) + .long .LASF2 # DW_AT_name: "iy_y" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x33 # DW_AT_decl_line + .long 0x121 # DW_AT_type + # DW_AT_external + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad fo_o_+4 + .uleb128 0x6 # (DIE (0x190) DW_TAG_variable) + .long .LASF4 # DW_AT_name: "iz_z" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x34 # DW_AT_decl_line + .long 0x128 # DW_AT_type + # DW_AT_external + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad fo_o_+8 + .byte 0 # end of children of DIE 0x14d + .uleb128 0xb # (DIE (0x1a6) DW_TAG_common_block) + .ascii "foo\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x20 # DW_AT_decl_line + .long .LASF16 # DW_AT_linkage_name: "foo_" + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad foo_ +#if 0 + .uleb128 0x4 # (DIE (0x1bb) DW_TAG_variable) +#else + .uleb128 0x10 # (DIE (0x1bb) DW_TAG_variable) +#endif + .ascii "ix\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x2e # DW_AT_decl_line + .long 0x11a # DW_AT_type + # DW_AT_external +#if 0 + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad foo_ +#else + .uleb128 0x9 # DW_AT_data_member_location + # (size chosen to avoid renumbering all DIEs) + .byte 0x8 # DW_OP_const1u + .byte 0x0 + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop + .byte 0x96 # DW_OP_nop +#endif + .uleb128 0x4 # (DIE (0x1cf) DW_TAG_variable) + .ascii "iy\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x2f # DW_AT_decl_line + .long 0x121 # DW_AT_type + # DW_AT_external + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad foo_+4 + .uleb128 0x4 # (DIE (0x1e3) DW_TAG_variable) + .ascii "iz\0" # DW_AT_name + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x30 # DW_AT_decl_line + .long 0x128 # DW_AT_type + # DW_AT_external + .uleb128 0x9 # DW_AT_location + .byte 0x3 # DW_OP_addr + .quad foo_+8 + .byte 0 # end of children of DIE 0x1a6 + .byte 0 # end of children of DIE 0x12f + .uleb128 0xc # (DIE (0x1f9) DW_TAG_subprogram) + # DW_AT_external + .long .LASF9 # DW_AT_name: "main" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x43 # DW_AT_decl_line + .long 0x11a # DW_AT_type + .quad .LFB2 # DW_AT_low_pc + .quad .LFE2 # DW_AT_high_pc + .uleb128 0x1 # DW_AT_frame_base + .byte 0x9c # DW_OP_call_frame_cfa + # DW_AT_GNU_all_tail_call_sites + .long 0x238 # DW_AT_sibling + .uleb128 0xd # (DIE (0x21a) DW_TAG_formal_parameter) + .long .LASF10 # DW_AT_name: "argc" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x43 # DW_AT_decl_line + .long 0x238 # DW_AT_type + .uleb128 0x2 # DW_AT_location + .byte 0x91 # DW_OP_fbreg + .sleb128 -20 + .uleb128 0xd # (DIE (0x228) DW_TAG_formal_parameter) + .long .LASF11 # DW_AT_name: "argv" + .byte 0x1 # DW_AT_decl_file (../gdb.fortran/common-block.f90) + .byte 0x43 # DW_AT_decl_line + .long 0x23d # DW_AT_type + .uleb128 0x3 # DW_AT_location + .byte 0x91 # DW_OP_fbreg + .sleb128 -32 + .byte 0x6 # DW_OP_deref + .byte 0 # end of children of DIE 0x1f9 + .uleb128 0xe # (DIE (0x238) DW_TAG_const_type) + .long 0x11a # DW_AT_type + .uleb128 0xf # (DIE (0x23d) DW_TAG_pointer_type) + .byte 0x8 # DW_AT_byte_size + .long 0x243 # DW_AT_type + .uleb128 0x9 # (DIE (0x243) DW_TAG_base_type) + .byte 0x1 # DW_AT_byte_size + .byte 0x8 # DW_AT_encoding + .long .LASF12 # DW_AT_name: "character(kind=1)" + .byte 0 # end of children of DIE 0xb +#if 0 +#else +.Ldebuginfo_end: +#endif + .section .debug_abbrev,"",@progbits +.Ldebug_abbrev0: + .uleb128 0x1 # (abbrev code) + .uleb128 0x11 # (TAG: DW_TAG_compile_unit) + .byte 0x1 # DW_children_yes + .uleb128 0x25 # (DW_AT_producer) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x13 # (DW_AT_language) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x42 # (DW_AT_identifier_case) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x1b # (DW_AT_comp_dir) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x11 # (DW_AT_low_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x12 # (DW_AT_high_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x10 # (DW_AT_stmt_list) + .uleb128 0x17 # (DW_FORM_sec_offset) + .byte 0 + .byte 0 + .uleb128 0x2 # (abbrev code) + .uleb128 0x2e # (TAG: DW_TAG_subprogram) + .byte 0x1 # DW_children_yes + .uleb128 0x3f # (DW_AT_external) + .uleb128 0x19 # (DW_FORM_flag_present) + .uleb128 0x3 # (DW_AT_name) + .uleb128 0x8 # (DW_FORM_string) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x6e # (DW_AT_linkage_name) + .uleb128 0x8 # (DW_FORM_string) + .uleb128 0x11 # (DW_AT_low_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x12 # (DW_AT_high_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x40 # (DW_AT_frame_base) + .uleb128 0x18 # (DW_FORM_exprloc) + .uleb128 0x2116 # (DW_AT_GNU_all_tail_call_sites) + .uleb128 0x19 # (DW_FORM_flag_present) + .uleb128 0x1 # (DW_AT_sibling) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .uleb128 0x3 # (abbrev code) + .uleb128 0x1a # (TAG: DW_TAG_common_block) + .byte 0x1 # DW_children_yes + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x6e # (DW_AT_linkage_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x2 # (DW_AT_location) + .uleb128 0x18 # (DW_FORM_exprloc) + .uleb128 0x1 # (DW_AT_sibling) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .uleb128 0x4 # (abbrev code) + .uleb128 0x34 # (TAG: DW_TAG_variable) + .byte 0 # DW_children_no + .uleb128 0x3 # (DW_AT_name) + .uleb128 0x8 # (DW_FORM_string) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x3f # (DW_AT_external) + .uleb128 0x19 # (DW_FORM_flag_present) + .uleb128 0x2 # (DW_AT_location) + .uleb128 0x18 # (DW_FORM_exprloc) + .byte 0 + .byte 0 + .uleb128 0x5 # (abbrev code) + .uleb128 0x1a # (TAG: DW_TAG_common_block) + .byte 0x1 # DW_children_yes + .uleb128 0x3 # (DW_AT_name) + .uleb128 0x8 # (DW_FORM_string) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x6e # (DW_AT_linkage_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x2 # (DW_AT_location) + .uleb128 0x18 # (DW_FORM_exprloc) + .uleb128 0x1 # (DW_AT_sibling) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .uleb128 0x6 # (abbrev code) + .uleb128 0x34 # (TAG: DW_TAG_variable) + .byte 0 # DW_children_no + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x3f # (DW_AT_external) + .uleb128 0x19 # (DW_FORM_flag_present) + .uleb128 0x2 # (DW_AT_location) + .uleb128 0x18 # (DW_FORM_exprloc) + .byte 0 + .byte 0 + .uleb128 0x7 # (abbrev code) + .uleb128 0x34 # (TAG: DW_TAG_variable) + .byte 0 # DW_children_no + .uleb128 0x3 # (DW_AT_name) + .uleb128 0x8 # (DW_FORM_string) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x2 # (DW_AT_location) + .uleb128 0x18 # (DW_FORM_exprloc) + .byte 0 + .byte 0 + .uleb128 0x8 # (abbrev code) + .uleb128 0x34 # (TAG: DW_TAG_variable) + .byte 0 # DW_children_no + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x2 # (DW_AT_location) + .uleb128 0x18 # (DW_FORM_exprloc) + .byte 0 + .byte 0 + .uleb128 0x9 # (abbrev code) + .uleb128 0x24 # (TAG: DW_TAG_base_type) + .byte 0 # DW_children_no + .uleb128 0xb # (DW_AT_byte_size) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3e # (DW_AT_encoding) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .byte 0 + .byte 0 + .uleb128 0xa # (abbrev code) + .uleb128 0x2e # (TAG: DW_TAG_subprogram) + .byte 0x1 # DW_children_yes + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x11 # (DW_AT_low_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x12 # (DW_AT_high_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x40 # (DW_AT_frame_base) + .uleb128 0x18 # (DW_FORM_exprloc) + .uleb128 0x2116 # (DW_AT_GNU_all_tail_call_sites) + .uleb128 0x19 # (DW_FORM_flag_present) + .uleb128 0x6a # (DW_AT_main_subprogram) + .uleb128 0x19 # (DW_FORM_flag_present) + .uleb128 0x36 # (DW_AT_calling_convention) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x1 # (DW_AT_sibling) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .uleb128 0xb # (abbrev code) + .uleb128 0x1a # (TAG: DW_TAG_common_block) + .byte 0x1 # DW_children_yes + .uleb128 0x3 # (DW_AT_name) + .uleb128 0x8 # (DW_FORM_string) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x6e # (DW_AT_linkage_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x2 # (DW_AT_location) + .uleb128 0x18 # (DW_FORM_exprloc) + .byte 0 + .byte 0 + .uleb128 0xc # (abbrev code) + .uleb128 0x2e # (TAG: DW_TAG_subprogram) + .byte 0x1 # DW_children_yes + .uleb128 0x3f # (DW_AT_external) + .uleb128 0x19 # (DW_FORM_flag_present) + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x11 # (DW_AT_low_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x12 # (DW_AT_high_pc) + .uleb128 0x1 # (DW_FORM_addr) + .uleb128 0x40 # (DW_AT_frame_base) + .uleb128 0x18 # (DW_FORM_exprloc) + .uleb128 0x2116 # (DW_AT_GNU_all_tail_call_sites) + .uleb128 0x19 # (DW_FORM_flag_present) + .uleb128 0x1 # (DW_AT_sibling) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .uleb128 0xd # (abbrev code) + .uleb128 0x5 # (TAG: DW_TAG_formal_parameter) + .byte 0 # DW_children_no + .uleb128 0x3 # (DW_AT_name) + .uleb128 0xe # (DW_FORM_strp) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x2 # (DW_AT_location) + .uleb128 0x18 # (DW_FORM_exprloc) + .byte 0 + .byte 0 + .uleb128 0xe # (abbrev code) + .uleb128 0x26 # (TAG: DW_TAG_const_type) + .byte 0 # DW_children_no + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 + .uleb128 0xf # (abbrev code) + .uleb128 0xf # (TAG: DW_TAG_pointer_type) + .byte 0 # DW_children_no + .uleb128 0xb # (DW_AT_byte_size) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .byte 0 + .byte 0 +#if 0 +#else + .uleb128 0x10 # (abbrev code) + .uleb128 0x34 # (TAG: DW_TAG_variable) + .byte 0 # DW_children_no + .uleb128 0x3 # (DW_AT_name) + .uleb128 0x8 # (DW_FORM_string) + .uleb128 0x3a # (DW_AT_decl_file) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x3b # (DW_AT_decl_line) + .uleb128 0xb # (DW_FORM_data1) + .uleb128 0x49 # (DW_AT_type) + .uleb128 0x13 # (DW_FORM_ref4) + .uleb128 0x3f # (DW_AT_external) + .uleb128 0x19 # (DW_FORM_flag_present) + .uleb128 0x38 # (DW_AT_data_member_location) + .uleb128 0x18 # (DW_FORM_exprloc) + .byte 0 + .byte 0 +#endif + .byte 0 + .section .debug_aranges,"",@progbits + .long 0x2c # Length of Address Ranges Info + .value 0x2 # DWARF Version + .long .Ldebug_info0 # Offset of Compilation Unit Info + .byte 0x8 # Size of Address + .byte 0 # Size of Segment Descriptor + .value 0 # Pad to 16 byte boundary + .value 0 + .quad .Ltext0 # Address + .quad .Letext0-.Ltext0 # Length + .quad 0 + .quad 0 + .section .debug_line,"",@progbits +.Ldebug_line0: + .section .debug_str,"MS",@progbits,1 +.LASF0: + .string "fo_o" +.LASF8: + .string "fo_o_" +.LASF3: + .string "iz_z2" +.LASF1: + .string "ix_x" +.LASF9: + .string "main" +.LASF4: + .string "iz_z" +.LASF13: + .string "GNU Fortran 4.6.3 plus hand hackery" +.LASF16: + .string "foo_" +.LASF7: + .string "real(kind=8)" +.LASF5: + .string "integer(kind=4)" +.LASF17: + .string "common_test" +.LASF12: + .string "character(kind=1)" +.LASF14: + .string "../gdb.fortran/common-block.f90" +.LASF10: + .string "argc" +.LASF2: + .string "iy_y" +.LASF11: + .string "argv" +.LASF15: + .string "gdb.dwarf2" +.LASF6: + .string "real(kind=4)" + .ident "GCC: (GNU) 4.6.3 20120306 (Red Hat 4.6.3-2)" + .section .note.GNU-stack,"",@progbits diff --git a/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp b/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp new file mode 100644 index 0000000000..a1914ee638 --- /dev/null +++ b/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp @@ -0,0 +1,50 @@ +# Copyright 2012 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +load_lib dwarf.exp + +# This test can only be run on targets which support DWARF-2 and use gas. +if ![dwarf2_support] { + return 0 +} + +# This test can only be run on x86-64 targets. +if {![istarget x86_64-*] || ![is_lp64_target]} { + return 0 +} + +# It requires fortran. +if {[skip_fortran_tests]} { + return 0 +} + +standard_testfile .S + +if { [prepare_for_testing "${testfile}.exp" "${testfile}" $srcfile \ + {nodebug f90}] } { + return -1 +} + +if ![runto MAIN__] then { + perror "couldn't run to breakpoint MAIN__" + continue +} + +gdb_breakpoint [gdb_get_line_number "stop-here-out" \ + ../gdb.fortran/common-block.f90] +gdb_continue_to_breakpoint "stop-here-out" + +gdb_test "p ix" " = 1" "p ix out" +gdb_test "p iy" " = 2" "p iy out"