Index: gdb/testsuite/gdb.dwarf2/dw2-common-block.S |
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 0000000000000000000000000000000000000000..da1a18fa3e0f8d3c95a2a1af7dda99f5f8f76014 |
--- /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-2013 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 <http://www.gnu.org/licenses/>. */ |
+ |
+/* 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 |