2017-12-10 22:00:49 +00:00
|
|
|
From FEDORA_PATCHES Mon Sep 17 00:00:00 2001
|
2017-12-04 19:24:00 +00:00
|
|
|
From: Fedora GDB patches <invalid@email.com>
|
|
|
|
|
Date: Fri, 27 Oct 2017 21:07:50 +0200
|
2017-12-08 04:31:26 +00:00
|
|
|
Subject: Expand fortran array bounds sizes to LONGEST
|
2012-11-09 18:03:10 +00:00
|
|
|
|
2017-12-04 19:24:00 +00:00
|
|
|
FileName: gdb-rhbz795424-bitpos-25of25-test.patch
|
|
|
|
|
|
2017-12-08 04:31:26 +00:00
|
|
|
;; Fix `GDB cannot access struct member whose offset is larger than 256MB'
|
|
|
|
|
;; (RH BZ 795424).
|
|
|
|
|
;;=push
|
2017-12-04 19:24:00 +00:00
|
|
|
|
2017-12-08 04:31:26 +00:00
|
|
|
http://sourceware.org/ml/gdb-patches/2012-10/msg00231.html
|
2017-12-04 19:24:00 +00:00
|
|
|
|
2012-11-09 18:03:10 +00:00
|
|
|
On Mon, 15 Oct 2012 15:25:55 +0200, Jan Kratochvil wrote:
|
|
|
|
|
> I have filed for it now:
|
|
|
|
|
> Invalid debug/ array bounds w/-fno-range-check and 32-bit target
|
|
|
|
|
> http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54934
|
|
|
|
|
|
|
|
|
|
Therefore it looks as a valid gfortran FSF GCC HEAD bug so provided
|
|
|
|
|
a hand-patched .S file for i386; patched GDB PASSes with it.
|
|
|
|
|
|
|
|
|
|
Thanks,
|
|
|
|
|
Jan
|
|
|
|
|
|
|
|
|
|
2012-10-15 Siddhesh Poyarekar <siddhesh@redhat.com>
|
|
|
|
|
Jan Kratochvil <jan.kratochvil@redhat.com>
|
|
|
|
|
|
|
|
|
|
* gdb.fortran/array-bounds.exp: New test file.
|
|
|
|
|
* gdb.fortran/array-bounds.f: New test file.
|
|
|
|
|
* gdb.fortran/array-bounds.S: New test file.
|
2017-12-08 04:31:26 +00:00
|
|
|
---
|
|
|
|
|
gdb/testsuite/gdb.fortran/array-bounds.S | 529 +++++++++++++++++++++++++++++
|
|
|
|
|
gdb/testsuite/gdb.fortran/array-bounds.exp | 43 +++
|
|
|
|
|
gdb/testsuite/gdb.fortran/array-bounds.f | 22 ++
|
|
|
|
|
3 files changed, 594 insertions(+)
|
|
|
|
|
create mode 100644 gdb/testsuite/gdb.fortran/array-bounds.S
|
|
|
|
|
create mode 100644 gdb/testsuite/gdb.fortran/array-bounds.exp
|
|
|
|
|
create mode 100644 gdb/testsuite/gdb.fortran/array-bounds.f
|
2012-11-09 18:03:10 +00:00
|
|
|
|
2017-12-08 04:31:26 +00:00
|
|
|
diff --git a/gdb/testsuite/gdb.fortran/array-bounds.S b/gdb/testsuite/gdb.fortran/array-bounds.S
|
|
|
|
|
new file mode 100644
|
|
|
|
|
index 0000000000..463a427650
|
|
|
|
|
--- /dev/null
|
|
|
|
|
+++ b/gdb/testsuite/gdb.fortran/array-bounds.S
|
2012-11-09 18:03:10 +00:00
|
|
|
@@ -0,0 +1,529 @@
|
|
|
|
|
+/* 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 <http://www.gnu.org/licenses/>.
|
|
|
|
|
+
|
|
|
|
|
+ This file is part of the gdb testsuite. */
|
|
|
|
|
+
|
|
|
|
|
+ .file "array-bounds.f"
|
|
|
|
|
+ .text
|
|
|
|
|
+.Ltext0:
|
|
|
|
|
+ .type MAIN__, @function
|
|
|
|
|
+MAIN__:
|
|
|
|
|
+.LFB0:
|
|
|
|
|
+ .file 1 "gdb.fortran/array-bounds.f"
|
|
|
|
|
+ # gdb.fortran/array-bounds.f:16
|
|
|
|
|
+ .loc 1 16 0
|
|
|
|
|
+ .cfi_startproc
|
|
|
|
|
+# BLOCK 2 seq:0
|
|
|
|
|
+# PRED: ENTRY (FALLTHRU)
|
|
|
|
|
+ pushl %ebp
|
|
|
|
|
+.LCFI0:
|
|
|
|
|
+ .cfi_def_cfa_offset 8
|
|
|
|
|
+ .cfi_offset 5, -8
|
|
|
|
|
+ movl %esp, %ebp
|
|
|
|
|
+.LCFI1:
|
|
|
|
|
+ .cfi_def_cfa_register 5
|
|
|
|
|
+ subl $40, %esp
|
|
|
|
|
+.LBB2:
|
|
|
|
|
+# SUCC: 3 (FALLTHRU)
|
|
|
|
|
+ # gdb.fortran/array-bounds.f:18
|
|
|
|
|
+ .loc 1 18 0
|
|
|
|
|
+ movl $-1, %eax
|
|
|
|
|
+# BLOCK 3 seq:1
|
|
|
|
|
+# PRED: 2 (FALLTHRU) 4 [100.0%]
|
|
|
|
|
+.L3:
|
|
|
|
|
+ # gdb.fortran/array-bounds.f:18
|
|
|
|
|
+ .loc 1 18 0 is_stmt 0 discriminator 1
|
|
|
|
|
+ testl %eax, %eax
|
|
|
|
|
+# SUCC: 5 4 (FALLTHRU)
|
|
|
|
|
+ jg .L2
|
|
|
|
|
+# BLOCK 4 seq:2
|
|
|
|
|
+# PRED: 3 (FALLTHRU)
|
|
|
|
|
+ # gdb.fortran/array-bounds.f:18
|
|
|
|
|
+ .loc 1 18 0 discriminator 2
|
|
|
|
|
+ leal 1(%eax), %ecx
|
|
|
|
|
+ movl .LC0, %edx
|
|
|
|
|
+ movl %edx, -16(%ebp,%ecx,4)
|
|
|
|
|
+ addl $1, %eax
|
|
|
|
|
+# SUCC: 3 [100.0%]
|
|
|
|
|
+ jmp .L3
|
|
|
|
|
+# BLOCK 5 seq:3
|
|
|
|
|
+# PRED: 3
|
|
|
|
|
+.L2:
|
|
|
|
|
+.LBE2:
|
|
|
|
|
+ # gdb.fortran/array-bounds.f:19
|
|
|
|
|
+ .loc 1 19 0 is_stmt 1
|
|
|
|
|
+ movl -16(%ebp), %eax
|
|
|
|
|
+ movl -12(%ebp), %edx
|
|
|
|
|
+ movl %eax, -24(%ebp)
|
|
|
|
|
+ movl %edx, -20(%ebp)
|
|
|
|
|
+ # gdb.fortran/array-bounds.f:20
|
|
|
|
|
+ .loc 1 20 0
|
|
|
|
|
+ movl $0, 4(%esp)
|
|
|
|
|
+ movl $0, (%esp)
|
|
|
|
|
+# SUCC:
|
|
|
|
|
+ call _gfortran_stop_string
|
|
|
|
|
+ .cfi_endproc
|
|
|
|
|
+.LFE0:
|
|
|
|
|
+ .size MAIN__, .-MAIN__
|
|
|
|
|
+ .globl main
|
|
|
|
|
+ .type main, @function
|
|
|
|
|
+main:
|
|
|
|
|
+.LFB1:
|
|
|
|
|
+ # gdb.fortran/array-bounds.f:21
|
|
|
|
|
+ .loc 1 21 0
|
|
|
|
|
+ .cfi_startproc
|
|
|
|
|
+# BLOCK 2 seq:0
|
|
|
|
|
+# PRED: ENTRY (FALLTHRU)
|
|
|
|
|
+ pushl %ebp
|
|
|
|
|
+.LCFI2:
|
|
|
|
|
+ .cfi_def_cfa_offset 8
|
|
|
|
|
+ .cfi_offset 5, -8
|
|
|
|
|
+ movl %esp, %ebp
|
|
|
|
|
+.LCFI3:
|
|
|
|
|
+ .cfi_def_cfa_register 5
|
|
|
|
|
+ andl $-16, %esp
|
|
|
|
|
+ subl $16, %esp
|
|
|
|
|
+ # gdb.fortran/array-bounds.f:21
|
|
|
|
|
+ .loc 1 21 0
|
|
|
|
|
+ movl 12(%ebp), %eax
|
|
|
|
|
+ movl %eax, 4(%esp)
|
|
|
|
|
+ movl 8(%ebp), %eax
|
|
|
|
|
+ movl %eax, (%esp)
|
|
|
|
|
+ call _gfortran_set_args
|
|
|
|
|
+ movl $options.1.1824, 4(%esp)
|
|
|
|
|
+ movl $7, (%esp)
|
|
|
|
|
+ call _gfortran_set_options
|
|
|
|
|
+ call MAIN__
|
|
|
|
|
+ movl $0, %eax
|
|
|
|
|
+ leave
|
|
|
|
|
+.LCFI4:
|
|
|
|
|
+ .cfi_restore 5
|
|
|
|
|
+ .cfi_def_cfa 4, 4
|
|
|
|
|
+# SUCC: EXIT [100.0%]
|
|
|
|
|
+ ret
|
|
|
|
|
+ .cfi_endproc
|
|
|
|
|
+.LFE1:
|
|
|
|
|
+ .size main, .-main
|
|
|
|
|
+ .section .rodata
|
|
|
|
|
+ .align 4
|
|
|
|
|
+ .type options.1.1824, @object
|
|
|
|
|
+ .size options.1.1824, 28
|
|
|
|
|
+options.1.1824:
|
|
|
|
|
+ .long 68
|
|
|
|
|
+ .long 1023
|
|
|
|
|
+ .long 0
|
|
|
|
|
+ .long 0
|
|
|
|
|
+ .long 1
|
|
|
|
|
+ .long 1
|
|
|
|
|
+ .long 0
|
|
|
|
|
+ .align 4
|
|
|
|
|
+.LC0:
|
|
|
|
|
+ .long 1109917696
|
|
|
|
|
+ .text
|
|
|
|
|
+.Letext0:
|
|
|
|
|
+ .section .debug_info,"",@progbits
|
|
|
|
|
+.Ldebug_info0:
|
|
|
|
|
+ .long 2f - 1f # Length of Compilation Unit Info
|
|
|
|
|
+1:
|
|
|
|
|
+ .value 0x2 # DWARF version number
|
|
|
|
|
+ .long .Ldebug_abbrev0 # Offset Into Abbrev. Section
|
|
|
|
|
+ .byte 0x4 # Pointer Size (in bytes)
|
|
|
|
|
+dieb: .uleb128 0x1 # (DIE (0xb) DW_TAG_compile_unit)
|
|
|
|
|
+ .long .LASF5 # DW_AT_producer: "GNU Fortran 4.8.0 20121015 (experimental) -ffixed-form -m32 -mtune=generic -march=x86-64 -g -gdwarf-2 -fintrinsic-modules-path .../gcchead-root/lib/gcc/x86_64-unknown-linux-gnu/4.8.0/finclude"
|
|
|
|
|
+ .byte 0xe # DW_AT_language
|
|
|
|
|
+ .byte 0x2 # DW_AT_identifier_case
|
|
|
|
|
+ .long .LASF6 # DW_AT_name: "gdb.fortran/array-bounds.f"
|
|
|
|
|
+ .long .LASF7 # DW_AT_comp_dir: ""
|
|
|
|
|
+ .long .Ltext0 # DW_AT_low_pc
|
|
|
|
|
+ .long .Letext0 # DW_AT_high_pc
|
|
|
|
|
+ .long .Ldebug_line0 # DW_AT_stmt_list
|
|
|
|
|
+die26: .uleb128 0x2 # (DIE (0x26) DW_TAG_subprogram)
|
|
|
|
|
+ .long .LASF8 # DW_AT_name: "MAIN__"
|
|
|
|
|
+ .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f)
|
|
|
|
|
+ .byte 0x10 # DW_AT_decl_line
|
|
|
|
|
+ .long .LFB0 # DW_AT_low_pc
|
|
|
|
|
+ .long .LFE0 # DW_AT_high_pc
|
|
|
|
|
+ .long .LLST0 # DW_AT_frame_base
|
|
|
|
|
+ .byte 0x1 # DW_AT_GNU_all_tail_call_sites
|
|
|
|
|
+ .byte 0x1 # DW_AT_main_subprogram
|
|
|
|
|
+ .byte 0x2 # DW_AT_calling_convention
|
|
|
|
|
+ .long die66 - .Ldebug_info0 # DW_AT_sibling
|
|
|
|
|
+die40: .uleb128 0x3 # (DIE (0x40) DW_TAG_variable)
|
|
|
|
|
+ .ascii "bar\0" # DW_AT_name
|
|
|
|
|
+ .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f)
|
|
|
|
|
+ .byte 0x11 # DW_AT_decl_line
|
|
|
|
|
+ .long die66 - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+ .byte 0x2 # DW_AT_location
|
|
|
|
|
+ .byte 0x91 # DW_OP_fbreg
|
|
|
|
|
+ .sleb128 -24
|
|
|
|
|
+die4e: .uleb128 0x3 # (DIE (0x4e) DW_TAG_variable)
|
|
|
|
|
+ .ascii "foo\0" # DW_AT_name
|
|
|
|
|
+ .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f)
|
|
|
|
|
+ .byte 0x10 # DW_AT_decl_line
|
|
|
|
|
+ .long die88 - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+ .byte 0x2 # DW_AT_location
|
|
|
|
|
+ .byte 0x91 # DW_OP_fbreg
|
|
|
|
|
+ .sleb128 -32
|
|
|
|
|
+die5c: .uleb128 0x4 # (DIE (0x5c) DW_TAG_lexical_block)
|
|
|
|
|
+ .long .LBB2 # DW_AT_low_pc
|
|
|
|
|
+ .long .LBE2 # DW_AT_high_pc
|
|
|
|
|
+ .byte 0 # end of children of DIE 0x26
|
|
|
|
|
+die66: .uleb128 0x5 # (DIE (0x66) DW_TAG_array_type)
|
|
|
|
|
+ .long die81 - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+ .long die7a - .Ldebug_info0 # DW_AT_sibling
|
|
|
|
|
+die6f: .uleb128 0x6 # (DIE (0x6f) DW_TAG_subrange_type)
|
|
|
|
|
+ .long die7a - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+#if 0
|
|
|
|
|
+ .long 0xffffffff # DW_AT_lower_bound
|
|
|
|
|
+ .byte 0 # DW_AT_upper_bound
|
|
|
|
|
+#else
|
|
|
|
|
+ .quad 0xfffffffeffffffff # DW_AT_lower_bound
|
|
|
|
|
+ .quad 0xffffffff00000000 # DW_AT_upper_bound
|
|
|
|
|
+#endif
|
|
|
|
|
+ .byte 0 # end of children of DIE 0x66
|
|
|
|
|
+die7a: .uleb128 0x7 # (DIE (0x7a) DW_TAG_base_type)
|
|
|
|
|
+#if 0
|
|
|
|
|
+ .byte 0x4 # DW_AT_byte_size
|
|
|
|
|
+#else
|
|
|
|
|
+ .byte 0x8 # DW_AT_byte_size
|
|
|
|
|
+#endif
|
|
|
|
|
+ .byte 0x5 # DW_AT_encoding
|
|
|
|
|
+ .long .LASF0 # DW_AT_name: "integer(kind=4)"
|
|
|
|
|
+die81: .uleb128 0x7 # (DIE (0x81) DW_TAG_base_type)
|
|
|
|
|
+ .byte 0x4 # DW_AT_byte_size
|
|
|
|
|
+ .byte 0x4 # DW_AT_encoding
|
|
|
|
|
+ .long .LASF1 # DW_AT_name: "real(kind=4)"
|
|
|
|
|
+die88: .uleb128 0x5 # (DIE (0x88) DW_TAG_array_type)
|
|
|
|
|
+ .long die81 - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+ .long die99 - .Ldebug_info0 # DW_AT_sibling
|
|
|
|
|
+die91: .uleb128 0x8 # (DIE (0x91) DW_TAG_subrange_type)
|
|
|
|
|
+ .long die7a - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+#if 0
|
|
|
|
|
+ .byte 0 # DW_AT_lower_bound
|
|
|
|
|
+ .byte 0x1 # DW_AT_upper_bound
|
|
|
|
|
+#else
|
|
|
|
|
+ .quad 0x100000000 # DW_AT_lower_bound
|
|
|
|
|
+ .quad 0x100000001 # DW_AT_upper_bound
|
|
|
|
|
+#endif
|
|
|
|
|
+ .byte 0 # end of children of DIE 0x88
|
|
|
|
|
+die99: .uleb128 0x9 # (DIE (0x99) DW_TAG_subprogram)
|
|
|
|
|
+ .byte 0x1 # DW_AT_external
|
|
|
|
|
+ .long .LASF9 # DW_AT_name: "main"
|
|
|
|
|
+ .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f)
|
|
|
|
|
+ .byte 0x15 # DW_AT_decl_line
|
|
|
|
|
+ .long die7a - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+ .long .LFB1 # DW_AT_low_pc
|
|
|
|
|
+ .long .LFE1 # DW_AT_high_pc
|
|
|
|
|
+ .long .LLST1 # DW_AT_frame_base
|
|
|
|
|
+ .byte 0x1 # DW_AT_GNU_all_tail_call_sites
|
|
|
|
|
+ .long died4 - .Ldebug_info0 # DW_AT_sibling
|
|
|
|
|
+dieb6: .uleb128 0xa # (DIE (0xb6) DW_TAG_formal_parameter)
|
|
|
|
|
+ .long .LASF2 # DW_AT_name: "argc"
|
|
|
|
|
+ .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f)
|
|
|
|
|
+ .byte 0x15 # DW_AT_decl_line
|
|
|
|
|
+ .long died4 - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+ .byte 0x2 # DW_AT_location
|
|
|
|
|
+ .byte 0x91 # DW_OP_fbreg
|
|
|
|
|
+ .sleb128 0
|
|
|
|
|
+diec4: .uleb128 0xa # (DIE (0xc4) DW_TAG_formal_parameter)
|
|
|
|
|
+ .long .LASF3 # DW_AT_name: "argv"
|
|
|
|
|
+ .byte 0x1 # DW_AT_decl_file (gdb.fortran/array-bounds.f)
|
|
|
|
|
+ .byte 0x15 # DW_AT_decl_line
|
|
|
|
|
+ .long died9 - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+ .byte 0x3 # DW_AT_location
|
|
|
|
|
+ .byte 0x91 # DW_OP_fbreg
|
|
|
|
|
+ .sleb128 4
|
|
|
|
|
+ .byte 0x6 # DW_OP_deref
|
|
|
|
|
+ .byte 0 # end of children of DIE 0x99
|
|
|
|
|
+died4: .uleb128 0xb # (DIE (0xd4) DW_TAG_const_type)
|
|
|
|
|
+ .long die7a - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+died9: .uleb128 0xc # (DIE (0xd9) DW_TAG_pointer_type)
|
|
|
|
|
+ .byte 0x4 # DW_AT_byte_size
|
|
|
|
|
+ .long diedf - .Ldebug_info0 # DW_AT_type
|
|
|
|
|
+diedf: .uleb128 0x7 # (DIE (0xdf) DW_TAG_base_type)
|
|
|
|
|
+ .byte 0x1 # DW_AT_byte_size
|
|
|
|
|
+ .byte 0x8 # DW_AT_encoding
|
|
|
|
|
+ .long .LASF4 # DW_AT_name: "character(kind=1)"
|
|
|
|
|
+ .byte 0 # end of children of DIE 0xb
|
|
|
|
|
+2:
|
|
|
|
|
+ .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 0x6 # (DW_FORM_data4)
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .uleb128 0x2 # (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 0x6 # (DW_FORM_data4)
|
|
|
|
|
+ .uleb128 0x2116 # (DW_AT_GNU_all_tail_call_sites)
|
|
|
|
|
+ .uleb128 0xc # (DW_FORM_flag)
|
|
|
|
|
+ .uleb128 0x6a # (DW_AT_main_subprogram)
|
|
|
|
|
+ .uleb128 0xc # (DW_FORM_flag)
|
|
|
|
|
+ .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 0x3 # (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 0xa # (DW_FORM_block1)
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .uleb128 0x4 # (abbrev code)
|
|
|
|
|
+ .uleb128 0xb # (TAG: DW_TAG_lexical_block)
|
|
|
|
|
+ .byte 0 # DW_children_no
|
|
|
|
|
+ .uleb128 0x11 # (DW_AT_low_pc)
|
|
|
|
|
+ .uleb128 0x1 # (DW_FORM_addr)
|
|
|
|
|
+ .uleb128 0x12 # (DW_AT_high_pc)
|
|
|
|
|
+ .uleb128 0x1 # (DW_FORM_addr)
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .uleb128 0x5 # (abbrev code)
|
|
|
|
|
+ .uleb128 0x1 # (TAG: DW_TAG_array_type)
|
|
|
|
|
+ .byte 0x1 # DW_children_yes
|
|
|
|
|
+ .uleb128 0x49 # (DW_AT_type)
|
|
|
|
|
+ .uleb128 0x13 # (DW_FORM_ref4)
|
|
|
|
|
+ .uleb128 0x1 # (DW_AT_sibling)
|
|
|
|
|
+ .uleb128 0x13 # (DW_FORM_ref4)
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .uleb128 0x6 # (abbrev code)
|
|
|
|
|
+ .uleb128 0x21 # (TAG: DW_TAG_subrange_type)
|
|
|
|
|
+ .byte 0 # DW_children_no
|
|
|
|
|
+ .uleb128 0x49 # (DW_AT_type)
|
|
|
|
|
+ .uleb128 0x13 # (DW_FORM_ref4)
|
|
|
|
|
+#if 0
|
|
|
|
|
+ .uleb128 0x22 # (DW_AT_lower_bound)
|
|
|
|
|
+ .uleb128 0x6 # (DW_FORM_data4)
|
|
|
|
|
+ .uleb128 0x2f # (DW_AT_upper_bound)
|
|
|
|
|
+ .uleb128 0xb # (DW_FORM_data1)
|
|
|
|
|
+#else
|
|
|
|
|
+ .uleb128 0x22 # (DW_AT_lower_bound)
|
|
|
|
|
+ .uleb128 0x7 # (DW_FORM_data8)
|
|
|
|
|
+ .uleb128 0x2f # (DW_AT_upper_bound)
|
|
|
|
|
+ .uleb128 0x7 # (DW_FORM_data8)
|
|
|
|
|
+#endif
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .uleb128 0x7 # (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 0x8 # (abbrev code)
|
|
|
|
|
+ .uleb128 0x21 # (TAG: DW_TAG_subrange_type)
|
|
|
|
|
+ .byte 0 # DW_children_no
|
|
|
|
|
+ .uleb128 0x49 # (DW_AT_type)
|
|
|
|
|
+ .uleb128 0x13 # (DW_FORM_ref4)
|
|
|
|
|
+#if 0
|
|
|
|
|
+ .uleb128 0x22 # (DW_AT_lower_bound)
|
|
|
|
|
+ .uleb128 0xb # (DW_FORM_data1)
|
|
|
|
|
+ .uleb128 0x2f # (DW_AT_upper_bound)
|
|
|
|
|
+ .uleb128 0xb # (DW_FORM_data1)
|
|
|
|
|
+#else
|
|
|
|
|
+ .uleb128 0x22 # (DW_AT_lower_bound)
|
|
|
|
|
+ .uleb128 0x7 # (DW_FORM_data8)
|
|
|
|
|
+ .uleb128 0x2f # (DW_AT_upper_bound)
|
|
|
|
|
+ .uleb128 0x7 # (DW_FORM_data8)
|
|
|
|
|
+#endif
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .uleb128 0x9 # (abbrev code)
|
|
|
|
|
+ .uleb128 0x2e # (TAG: DW_TAG_subprogram)
|
|
|
|
|
+ .byte 0x1 # DW_children_yes
|
|
|
|
|
+ .uleb128 0x3f # (DW_AT_external)
|
|
|
|
|
+ .uleb128 0xc # (DW_FORM_flag)
|
|
|
|
|
+ .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 0x6 # (DW_FORM_data4)
|
|
|
|
|
+ .uleb128 0x2116 # (DW_AT_GNU_all_tail_call_sites)
|
|
|
|
|
+ .uleb128 0xc # (DW_FORM_flag)
|
|
|
|
|
+ .uleb128 0x1 # (DW_AT_sibling)
|
|
|
|
|
+ .uleb128 0x13 # (DW_FORM_ref4)
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .uleb128 0xa # (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 0xa # (DW_FORM_block1)
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .uleb128 0xb # (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 0xc # (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
|
|
|
|
|
+ .byte 0
|
|
|
|
|
+ .section .debug_loc,"",@progbits
|
|
|
|
|
+.Ldebug_loc0:
|
|
|
|
|
+.LLST0:
|
|
|
|
|
+ .long .LFB0-.Ltext0 # Location list begin address (*.LLST0)
|
|
|
|
|
+ .long .LCFI0-.Ltext0 # Location list end address (*.LLST0)
|
|
|
|
|
+ .value 0x2 # Location expression size
|
|
|
|
|
+ .byte 0x74 # DW_OP_breg4
|
|
|
|
|
+ .sleb128 4
|
|
|
|
|
+ .long .LCFI0-.Ltext0 # Location list begin address (*.LLST0)
|
|
|
|
|
+ .long .LCFI1-.Ltext0 # Location list end address (*.LLST0)
|
|
|
|
|
+ .value 0x2 # Location expression size
|
|
|
|
|
+ .byte 0x74 # DW_OP_breg4
|
|
|
|
|
+ .sleb128 8
|
|
|
|
|
+ .long .LCFI1-.Ltext0 # Location list begin address (*.LLST0)
|
|
|
|
|
+ .long .LFE0-.Ltext0 # Location list end address (*.LLST0)
|
|
|
|
|
+ .value 0x2 # Location expression size
|
|
|
|
|
+ .byte 0x75 # DW_OP_breg5
|
|
|
|
|
+ .sleb128 8
|
|
|
|
|
+ .long 0 # Location list terminator begin (*.LLST0)
|
|
|
|
|
+ .long 0 # Location list terminator end (*.LLST0)
|
|
|
|
|
+.LLST1:
|
|
|
|
|
+ .long .LFB1-.Ltext0 # Location list begin address (*.LLST1)
|
|
|
|
|
+ .long .LCFI2-.Ltext0 # Location list end address (*.LLST1)
|
|
|
|
|
+ .value 0x2 # Location expression size
|
|
|
|
|
+ .byte 0x74 # DW_OP_breg4
|
|
|
|
|
+ .sleb128 4
|
|
|
|
|
+ .long .LCFI2-.Ltext0 # Location list begin address (*.LLST1)
|
|
|
|
|
+ .long .LCFI3-.Ltext0 # Location list end address (*.LLST1)
|
|
|
|
|
+ .value 0x2 # Location expression size
|
|
|
|
|
+ .byte 0x74 # DW_OP_breg4
|
|
|
|
|
+ .sleb128 8
|
|
|
|
|
+ .long .LCFI3-.Ltext0 # Location list begin address (*.LLST1)
|
|
|
|
|
+ .long .LCFI4-.Ltext0 # Location list end address (*.LLST1)
|
|
|
|
|
+ .value 0x2 # Location expression size
|
|
|
|
|
+ .byte 0x75 # DW_OP_breg5
|
|
|
|
|
+ .sleb128 8
|
|
|
|
|
+ .long .LCFI4-.Ltext0 # Location list begin address (*.LLST1)
|
|
|
|
|
+ .long .LFE1-.Ltext0 # Location list end address (*.LLST1)
|
|
|
|
|
+ .value 0x2 # Location expression size
|
|
|
|
|
+ .byte 0x74 # DW_OP_breg4
|
|
|
|
|
+ .sleb128 4
|
|
|
|
|
+ .long 0 # Location list terminator begin (*.LLST1)
|
|
|
|
|
+ .long 0 # Location list terminator end (*.LLST1)
|
|
|
|
|
+ .section .debug_aranges,"",@progbits
|
|
|
|
|
+ .long 0x1c # Length of Address Ranges Info
|
|
|
|
|
+ .value 0x2 # DWARF Version
|
|
|
|
|
+ .long .Ldebug_info0 # Offset of Compilation Unit Info
|
|
|
|
|
+ .byte 0x4 # Size of Address
|
|
|
|
|
+ .byte 0 # Size of Segment Descriptor
|
|
|
|
|
+ .value 0 # Pad to 8 byte boundary
|
|
|
|
|
+ .value 0
|
|
|
|
|
+ .long .Ltext0 # Address
|
|
|
|
|
+ .long .Letext0-.Ltext0 # Length
|
|
|
|
|
+ .long 0
|
|
|
|
|
+ .long 0
|
|
|
|
|
+ .section .debug_line,"",@progbits
|
|
|
|
|
+.Ldebug_line0:
|
|
|
|
|
+ .section .debug_str,"MS",@progbits,1
|
|
|
|
|
+.LASF4:
|
|
|
|
|
+ .string "character(kind=1)"
|
|
|
|
|
+.LASF5:
|
|
|
|
|
+ .string "GNU Fortran 4.8.0 20121015 (experimental) -ffixed-form -m32 -mtune=generic -march=x86-64 -g -gdwarf-2 -fintrinsic-modules-path .../gcchead-root/lib/gcc/x86_64-unknown-linux-gnu/4.8.0/finclude"
|
|
|
|
|
+.LASF7:
|
|
|
|
|
+ .string ""
|
|
|
|
|
+.LASF0:
|
|
|
|
|
+#if 0
|
|
|
|
|
+ .string "integer(kind=4)"
|
|
|
|
|
+#else
|
|
|
|
|
+ .string "integer(kind=8)"
|
|
|
|
|
+#endif
|
|
|
|
|
+.LASF9:
|
|
|
|
|
+ .string "main"
|
|
|
|
|
+.LASF8:
|
|
|
|
|
+ .string "MAIN__"
|
|
|
|
|
+.LASF6:
|
|
|
|
|
+ .string "gdb.fortran/array-bounds.f"
|
|
|
|
|
+.LASF2:
|
|
|
|
|
+ .string "argc"
|
|
|
|
|
+.LASF1:
|
|
|
|
|
+ .string "real(kind=4)"
|
|
|
|
|
+.LASF3:
|
|
|
|
|
+ .string "argv"
|
|
|
|
|
+ .ident "GCC: (GNU) 4.8.0 20121015 (experimental)"
|
|
|
|
|
+ .section .note.GNU-stack,"",@progbits
|
2017-12-08 04:31:26 +00:00
|
|
|
diff --git a/gdb/testsuite/gdb.fortran/array-bounds.exp b/gdb/testsuite/gdb.fortran/array-bounds.exp
|
|
|
|
|
new file mode 100644
|
|
|
|
|
index 0000000000..ba0ebe13b8
|
|
|
|
|
--- /dev/null
|
|
|
|
|
+++ b/gdb/testsuite/gdb.fortran/array-bounds.exp
|
|
|
|
|
@@ -0,0 +1,43 @@
|
|
|
|
|
+# 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 <http://www.gnu.org/licenses/>.
|
|
|
|
|
+
|
|
|
|
|
+# This file is part of the gdb testsuite. It contains test to ensure that
|
|
|
|
|
+# array bounds accept LONGEST.
|
|
|
|
|
+
|
|
|
|
|
+if { [skip_fortran_tests] } { return -1 }
|
|
|
|
|
+
|
|
|
|
|
+set testfile "array-bounds"
|
|
|
|
|
+
|
|
|
|
|
+if { [is_ilp32_target] && ([istarget "i\[34567\]86-*-linux*"]
|
|
|
|
|
+ || [istarget "x86_64-*-linux*"]) } {
|
|
|
|
|
+ set srcfile ${testfile}.S
|
|
|
|
|
+ set opts {nodebug f90}
|
|
|
|
|
+} else {
|
|
|
|
|
+ set srcfile ${testfile}.f
|
|
|
|
|
+ set opts {debug f90}
|
|
|
|
|
+}
|
|
|
|
|
+
|
|
|
|
|
+if {[prepare_for_testing $testfile.exp $testfile $srcfile $opts]} {
|
|
|
|
|
+ print "compile failed"
|
|
|
|
|
+ return -1
|
|
|
|
|
+}
|
|
|
|
|
+
|
|
|
|
|
+if { ![runto MAIN__] } {
|
|
|
|
|
+ perror "Could not run to breakpoint `MAIN__'."
|
|
|
|
|
+ continue
|
|
|
|
|
+}
|
|
|
|
|
+
|
|
|
|
|
+gdb_test "print &foo" {.*\(4294967296:4294967297\).*}
|
|
|
|
|
+gdb_test "print &bar" {.*\(-4294967297:-4294967296\).*}
|
|
|
|
|
diff --git a/gdb/testsuite/gdb.fortran/array-bounds.f b/gdb/testsuite/gdb.fortran/array-bounds.f
|
|
|
|
|
new file mode 100644
|
|
|
|
|
index 0000000000..78b36e6c27
|
|
|
|
|
--- /dev/null
|
|
|
|
|
+++ b/gdb/testsuite/gdb.fortran/array-bounds.f
|
|
|
|
|
@@ -0,0 +1,22 @@
|
|
|
|
|
+c Copyright 2012 Free Software Foundation, Inc.
|
|
|
|
|
+
|
|
|
|
|
+c This program is free software; you can redistribute it and/or modify
|
|
|
|
|
+c it under the terms of the GNU General Public License as published by
|
|
|
|
|
+c the Free Software Foundation; either version 3 of the License, or
|
|
|
|
|
+c (at your option) any later version.
|
|
|
|
|
+c
|
|
|
|
|
+c This program is distributed in the hope that it will be useful,
|
|
|
|
|
+c but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
+c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
+c GNU General Public License for more details.
|
|
|
|
|
+c
|
|
|
|
|
+c You should have received a copy of the GNU General Public License
|
|
|
|
|
+c along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
+
|
|
|
|
|
+ dimension foo(4294967296_8:4294967297_8)
|
|
|
|
|
+ dimension bar(-4294967297_8:-4294967296_8)
|
|
|
|
|
+ bar = 42
|
|
|
|
|
+ foo=bar
|
|
|
|
|
+ stop
|
|
|
|
|
+ end
|
|
|
|
|
+
|
|
|
|
|
--
|
|
|
|
|
2.14.3
|
2012-11-09 18:03:10 +00:00
|
|
|
|
