OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
binutils-gdb/gdb/testsuite/gdb.dwarf2/dw2-common-block.S

873 lines
24 KiB
ArmAsm
Raw Normal View History

* 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.
2012-09-26 21:50:13 +02:00
/* This testcase is part of GDB, the GNU debugger.
update copyright year range in GDB files This applies the second part of GDB's End of Year Procedure, which updates the copyright year range in all of GDB's files. gdb/ChangeLog: Update copyright year range in all GDB files.
2017-01-01 07:50:51 +01:00
Copyright 2012-2017 Free Software Foundation, Inc.
* 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.
2012-09-26 21:50:13 +02:00
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