rpms
/
gdb
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Rebase to pre-7.13 FSF GDB trunk.

This commit is contained in:
Jan Kratochvil 2017-03-09 23:53:59 +01:00
parent 0fffd6c99d
commit dbc649db15
7 changed files with 215 additions and 215 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitignore vendored
View File

@ -1,3 +1,3 @@
/gdb-libstdc++-v3-python-6.3.1-20170212.tar.xz
/v1.5.tar.gz
/gdb-7.12.50.20170226.tar.xz
/gdb-7.12.50.20170309.tar.xz

5
gdb-6.3-focus-cmd-prev-test.patch
View File

@ -2,7 +2,7 @@ Index: gdb-7.12.50.20170226/gdb/testsuite/gdb.base/focus-cmd-prev.exp
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
+++ gdb-7.12.50.20170226/gdb/testsuite/gdb.base/focus-cmd-prev.exp 2017-03-02 09:39:14.508461085 +0100
@@ -0,0 +1,43 @@
@@ -0,0 +1,40 @@
+# Copyright 2008 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
@ -30,9 +30,6 @@ Index: gdb-7.12.50.20170226/gdb/testsuite/gdb.base/focus-cmd-prev.exp
+# commit d7e747318f4d04af033f16325f9b6d74f67079ec
+# Eliminate make_cleanup_ui_file_delete / make ui_file a class hierarchy
+
+gdb_test_no_output "set width 80"
+gdb_test_no_output "set height 40"
+
+set test "focus cmd"
+gdb_test_multiple $test $test {
+ -re "$gdb_prompt $" {

6
gdb-ppc-power7-test.patch
View File

@ -1,5 +1,5 @@
--- /dev/null
+++ b/gdb/testsuite/gdb.arch/powerpc-power7.exp
+++ b/gdb/testsuite/gdb.arch/powerpc-power7rh.exp
@@ -0,0 +1,182 @@
+# Copyright 2009 Free Software Foundation, Inc.
+
@ -24,7 +24,7 @@
+ return
+}
+
+set testfile "powerpc-power7"
+set testfile "powerpc-power7rh"
+set srcfile ${testfile}.s
+set objfile [standard_output_file ${testfile}.o]
+
@ -184,7 +184,7 @@
+func_check 0x198 "frsqrtes. f14,f15"
+func_check 0x19c "isel r2,r3,r4,28"
--- /dev/null
+++ b/gdb/testsuite/gdb.arch/powerpc-power7.s
+++ b/gdb/testsuite/gdb.arch/powerpc-power7rh.s
@@ -0,0 +1,107 @@
+ .text
+ .globl func

254
gdb-rhbz795424-bitpos-23of25.patch
View File

@ -137,10 +137,10 @@ Content-Type: text/x-patch
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename=bitpos-tdep.patch
Index: gdb-7.12.50.20170207/gdb/alpha-tdep.c
Index: gdb-7.12.50.20170309/gdb/alpha-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/alpha-tdep.c 2017-02-26 19:11:30.470121187 +0100
+++ gdb-7.12.50.20170207/gdb/alpha-tdep.c 2017-02-26 19:11:48.269248546 +0100
--- gdb-7.12.50.20170309.orig/gdb/alpha-tdep.c 2017-03-09 23:35:09.691541049 +0100
+++ gdb-7.12.50.20170309/gdb/alpha-tdep.c 2017-03-09 23:35:14.414573943 +0100
@@ -300,17 +300,17 @@
{
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
@ -183,11 +183,11 @@ Index: gdb-7.12.50.20170207/gdb/alpha-tdep.c
memcpy (arg_reg_buffer + offset, contents, tlen);
offset += tlen;
contents += tlen;
Index: gdb-7.12.50.20170207/gdb/amd64-tdep.c
Index: gdb-7.12.50.20170309/gdb/amd64-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/amd64-tdep.c 2017-02-26 19:11:30.471121194 +0100
+++ gdb-7.12.50.20170207/gdb/amd64-tdep.c 2017-02-26 19:12:53.685716623 +0100
@@ -730,7 +730,7 @@
--- gdb-7.12.50.20170309.orig/gdb/amd64-tdep.c 2017-03-09 23:35:09.693541062 +0100
+++ gdb-7.12.50.20170309/gdb/amd64-tdep.c 2017-03-09 23:35:14.415573950 +0100
@@ -735,7 +735,7 @@
gdb_byte *readbuf, const gdb_byte *writebuf)
{
enum amd64_reg_class theclass[2];
@ -196,7 +196,7 @@ Index: gdb-7.12.50.20170207/gdb/amd64-tdep.c
static int integer_regnum[] = { AMD64_RAX_REGNUM, AMD64_RDX_REGNUM };
static int sse_regnum[] = { AMD64_XMM0_REGNUM, AMD64_XMM1_REGNUM };
int integer_reg = 0;
@@ -847,10 +847,10 @@
@@ -852,10 +852,10 @@
gdb_assert (regnum != -1);
if (readbuf)
@ -209,7 +209,7 @@ Index: gdb-7.12.50.20170207/gdb/amd64-tdep.c
writebuf + i * 8);
}
@@ -881,8 +881,8 @@
@@ -886,8 +886,8 @@
};
struct value **stack_args = XALLOCAVEC (struct value *, nargs);
int num_stack_args = 0;
@ -220,7 +220,7 @@ Index: gdb-7.12.50.20170207/gdb/amd64-tdep.c
int integer_reg = 0;
int sse_reg = 0;
int i;
@@ -894,7 +894,7 @@
@@ -899,7 +899,7 @@
for (i = 0; i < nargs; i++)
{
struct type *type = value_type (args[i]);
@ -229,7 +229,7 @@ Index: gdb-7.12.50.20170207/gdb/amd64-tdep.c
enum amd64_reg_class theclass[2];
int needed_integer_regs = 0;
int needed_sse_regs = 0;
@@ -958,7 +958,7 @@
@@ -963,7 +963,7 @@
gdb_assert (regnum != -1);
memset (buf, 0, sizeof buf);
@ -238,10 +238,10 @@ Index: gdb-7.12.50.20170207/gdb/amd64-tdep.c
regcache_raw_write_part (regcache, regnum, offset, 8, buf);
}
}
Index: gdb-7.12.50.20170207/gdb/amd64-windows-tdep.c
Index: gdb-7.12.50.20170309/gdb/amd64-windows-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/amd64-windows-tdep.c 2017-02-26 19:11:30.472121202 +0100
+++ gdb-7.12.50.20170207/gdb/amd64-windows-tdep.c 2017-02-26 19:11:48.270248553 +0100
--- gdb-7.12.50.20170309.orig/gdb/amd64-windows-tdep.c 2017-03-09 23:35:09.693541062 +0100
+++ gdb-7.12.50.20170309/gdb/amd64-windows-tdep.c 2017-03-09 23:35:14.416573957 +0100
@@ -289,7 +289,7 @@
struct type *type, struct regcache *regcache,
gdb_byte *readbuf, const gdb_byte *writebuf)
@ -251,11 +251,11 @@ Index: gdb-7.12.50.20170207/gdb/amd64-windows-tdep.c
int regnum = -1;
/* See if our value is returned through a register. If it is, then
Index: gdb-7.12.50.20170207/gdb/arm-tdep.c
Index: gdb-7.12.50.20170309/gdb/arm-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/arm-tdep.c 2017-02-26 19:11:30.477121237 +0100
+++ gdb-7.12.50.20170207/gdb/arm-tdep.c 2017-02-26 19:11:48.273248575 +0100
@@ -3485,7 +3485,7 @@
--- gdb-7.12.50.20170309.orig/gdb/arm-tdep.c 2017-03-09 23:35:09.698541097 +0100
+++ gdb-7.12.50.20170309/gdb/arm-tdep.c 2017-03-09 23:35:14.419573978 +0100
@@ -3487,7 +3487,7 @@
array). Vector types are not currently supported, matching the
generic AAPCS support. */
@ -264,7 +264,7 @@ Index: gdb-7.12.50.20170207/gdb/arm-tdep.c
arm_vfp_cprc_sub_candidate (struct type *t,
enum arm_vfp_cprc_base_type *base_type)
{
@@ -3568,7 +3568,7 @@
@@ -3570,7 +3570,7 @@
}
else
{
@ -273,7 +273,7 @@ Index: gdb-7.12.50.20170207/gdb/arm-tdep.c
unsigned unitlen;
count = arm_vfp_cprc_sub_candidate (TYPE_TARGET_TYPE (t),
@@ -3591,12 +3591,12 @@
@@ -3593,12 +3593,12 @@
case TYPE_CODE_STRUCT:
{
@ -288,7 +288,7 @@ Index: gdb-7.12.50.20170207/gdb/arm-tdep.c
if (!field_is_static (&TYPE_FIELD (t, i)))
sub_count = arm_vfp_cprc_sub_candidate (TYPE_FIELD_TYPE (t, i),
@@ -3620,13 +3620,15 @@
@@ -3622,13 +3622,15 @@
case TYPE_CODE_UNION:
{
@ -307,7 +307,7 @@ Index: gdb-7.12.50.20170207/gdb/arm-tdep.c
if (sub_count == -1)
return -1;
count = (count > sub_count ? count : sub_count);
@@ -3662,7 +3664,7 @@
@@ -3664,7 +3666,7 @@
int *count)
{
enum arm_vfp_cprc_base_type b = VFP_CPRC_UNKNOWN;
@ -316,7 +316,7 @@ Index: gdb-7.12.50.20170207/gdb/arm-tdep.c
if (c <= 0 || c > 4)
return 0;
*base_type = b;
@@ -3743,7 +3745,7 @@
@@ -3745,7 +3747,7 @@
for (argnum = 0; argnum < nargs; argnum++)
{
@ -325,10 +325,10 @@ Index: gdb-7.12.50.20170207/gdb/arm-tdep.c
struct type *arg_type;
struct type *target_type;
enum type_code typecode;
Index: gdb-7.12.50.20170207/gdb/avr-tdep.c
Index: gdb-7.12.50.20170309/gdb/avr-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/avr-tdep.c 2017-02-26 19:11:30.479121252 +0100
+++ gdb-7.12.50.20170207/gdb/avr-tdep.c 2017-02-26 19:11:48.273248575 +0100
--- gdb-7.12.50.20170309.orig/gdb/avr-tdep.c 2017-03-09 23:35:09.700541111 +0100
+++ gdb-7.12.50.20170309/gdb/avr-tdep.c 2017-03-09 23:35:14.419573978 +0100
@@ -1191,13 +1191,13 @@
struct stack_item
@ -361,10 +361,10 @@ Index: gdb-7.12.50.20170207/gdb/avr-tdep.c
/* Calculate the potential last register needed.
E.g. For length 2, registers regnum and regnum-1 (say 25 and 24)
Index: gdb-7.12.50.20170207/gdb/bfin-tdep.c
Index: gdb-7.12.50.20170309/gdb/bfin-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/bfin-tdep.c 2017-02-26 19:11:30.479121252 +0100
+++ gdb-7.12.50.20170207/gdb/bfin-tdep.c 2017-02-26 19:11:48.273248575 +0100
--- gdb-7.12.50.20170309.orig/gdb/bfin-tdep.c 2017-03-09 23:35:09.700541111 +0100
+++ gdb-7.12.50.20170309/gdb/bfin-tdep.c 2017-03-09 23:35:14.420573985 +0100
@@ -502,7 +502,7 @@
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
int i;
@ -383,10 +383,10 @@ Index: gdb-7.12.50.20170207/gdb/bfin-tdep.c
sp -= container_len;
write_memory (sp, value_contents (args[i]), container_len);
Index: gdb-7.12.50.20170207/gdb/cris-tdep.c
Index: gdb-7.12.50.20170309/gdb/cris-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/cris-tdep.c 2017-02-26 19:11:30.480121259 +0100
+++ gdb-7.12.50.20170207/gdb/cris-tdep.c 2017-02-26 19:11:48.274248582 +0100
--- gdb-7.12.50.20170309.orig/gdb/cris-tdep.c 2017-03-09 23:35:09.702541125 +0100
+++ gdb-7.12.50.20170309/gdb/cris-tdep.c 2017-03-09 23:35:14.421573991 +0100
@@ -663,13 +663,13 @@
struct stack_item
@ -421,10 +421,10 @@ Index: gdb-7.12.50.20170207/gdb/cris-tdep.c
/* How may registers worth of storage do we need for this argument? */
reg_demand = (len / 4) + (len % 4 != 0 ? 1 : 0);
Index: gdb-7.12.50.20170207/gdb/h8300-tdep.c
Index: gdb-7.12.50.20170309/gdb/h8300-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/h8300-tdep.c 2017-02-26 19:11:30.481121266 +0100
+++ gdb-7.12.50.20170207/gdb/h8300-tdep.c 2017-02-26 19:11:48.274248582 +0100
--- gdb-7.12.50.20170309.orig/gdb/h8300-tdep.c 2017-03-09 23:35:09.702541125 +0100
+++ gdb-7.12.50.20170309/gdb/h8300-tdep.c 2017-03-09 23:35:14.421573991 +0100
@@ -637,7 +637,7 @@
int struct_return, CORE_ADDR struct_addr)
{
@ -457,10 +457,10 @@ Index: gdb-7.12.50.20170207/gdb/h8300-tdep.c
for (offset = 0; offset < padded_len; offset += wordsize)
{
Index: gdb-7.12.50.20170207/gdb/hppa-tdep.c
Index: gdb-7.12.50.20170309/gdb/hppa-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/hppa-tdep.c 2017-02-26 19:11:30.482121273 +0100
+++ gdb-7.12.50.20170207/gdb/hppa-tdep.c 2017-02-26 19:11:48.275248589 +0100
--- gdb-7.12.50.20170309.orig/gdb/hppa-tdep.c 2017-03-09 23:35:09.703541132 +0100
+++ gdb-7.12.50.20170309/gdb/hppa-tdep.c 2017-03-09 23:35:14.422573999 +0100
@@ -988,7 +988,7 @@
{
struct value *arg = args[i];
@ -479,10 +479,10 @@ Index: gdb-7.12.50.20170207/gdb/hppa-tdep.c
int regnum, offset;
if (len > 16)
Index: gdb-7.12.50.20170207/gdb/i386-darwin-tdep.c
Index: gdb-7.12.50.20170309/gdb/i386-darwin-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/i386-darwin-tdep.c 2017-02-26 19:11:30.483121280 +0100
+++ gdb-7.12.50.20170207/gdb/i386-darwin-tdep.c 2017-02-26 19:11:48.275248589 +0100
--- gdb-7.12.50.20170309.orig/gdb/i386-darwin-tdep.c 2017-03-09 23:35:09.704541139 +0100
+++ gdb-7.12.50.20170309/gdb/i386-darwin-tdep.c 2017-03-09 23:35:14.422573999 +0100
@@ -167,7 +167,7 @@
for (write_pass = 0; write_pass < 2; write_pass++)
@ -492,20 +492,20 @@ Index: gdb-7.12.50.20170207/gdb/i386-darwin-tdep.c
int num_m128 = 0;
if (struct_return)
Index: gdb-7.12.50.20170207/gdb/i386-tdep.c
Index: gdb-7.12.50.20170309/gdb/i386-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/i386-tdep.c 2017-02-26 19:11:30.486121302 +0100
+++ gdb-7.12.50.20170207/gdb/i386-tdep.c 2017-02-26 19:11:48.277248603 +0100
@@ -2661,7 +2661,7 @@
--- gdb-7.12.50.20170309.orig/gdb/i386-tdep.c 2017-03-09 23:35:09.707541160 +0100
+++ gdb-7.12.50.20170309/gdb/i386-tdep.c 2017-03-09 23:35:37.494734688 +0100
@@ -2682,7 +2682,7 @@
gdb_byte buf[4];
int i;
int write_pass;
- int args_space = 0;
+ LONGEST args_space = 0;
/* Determine the total space required for arguments and struct
return address in a first pass (allowing for 16-byte-aligned
@@ -2669,7 +2669,7 @@
/* BND registers can be in arbitrary values at the moment of the
inferior call. This can cause boundary violations that are not
@@ -2697,7 +2697,7 @@
for (write_pass = 0; write_pass < 2; write_pass++)
{
@ -514,7 +514,7 @@ Index: gdb-7.12.50.20170207/gdb/i386-tdep.c
if (struct_return)
{
@@ -2686,7 +2686,7 @@
@@ -2714,7 +2714,7 @@
for (i = 0; i < nargs; i++)
{
@ -523,7 +523,7 @@ Index: gdb-7.12.50.20170207/gdb/i386-tdep.c
if (write_pass)
{
@@ -2893,7 +2893,7 @@
@@ -2921,7 +2921,7 @@
{
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
enum type_code code = TYPE_CODE (type);
@ -532,7 +532,7 @@ Index: gdb-7.12.50.20170207/gdb/i386-tdep.c
gdb_assert (code == TYPE_CODE_STRUCT
|| code == TYPE_CODE_UNION
@@ -3715,7 +3715,7 @@
@@ -3743,7 +3743,7 @@
i386_convert_register_p (struct gdbarch *gdbarch,
int regnum, struct type *type)
{
@ -541,7 +541,7 @@ Index: gdb-7.12.50.20170207/gdb/i386-tdep.c
/* Values may be spread across multiple registers. Most debugging
formats aren't expressive enough to specify the locations, so
@@ -3748,7 +3748,7 @@
@@ -3776,7 +3776,7 @@
int *optimizedp, int *unavailablep)
{
struct gdbarch *gdbarch = get_frame_arch (frame);
@ -550,7 +550,7 @@ Index: gdb-7.12.50.20170207/gdb/i386-tdep.c
if (i386_fp_regnum_p (gdbarch, regnum))
return i387_register_to_value (frame, regnum, type, to,
@@ -3784,7 +3784,7 @@
@@ -3812,7 +3812,7 @@
i386_value_to_register (struct frame_info *frame, int regnum,
struct type *type, const gdb_byte *from)
{
@ -559,10 +559,10 @@ Index: gdb-7.12.50.20170207/gdb/i386-tdep.c
if (i386_fp_regnum_p (get_frame_arch (frame), regnum))
{
Index: gdb-7.12.50.20170207/gdb/iq2000-tdep.c
Index: gdb-7.12.50.20170309/gdb/iq2000-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/iq2000-tdep.c 2017-02-26 19:11:30.487121309 +0100
+++ gdb-7.12.50.20170207/gdb/iq2000-tdep.c 2017-02-26 19:11:48.277248603 +0100
--- gdb-7.12.50.20170309.orig/gdb/iq2000-tdep.c 2017-03-09 23:35:09.708541167 +0100
+++ gdb-7.12.50.20170309/gdb/iq2000-tdep.c 2017-03-09 23:35:14.425574019 +0100
@@ -651,8 +651,9 @@
const bfd_byte *val;
bfd_byte buf[4];
@ -575,10 +575,10 @@ Index: gdb-7.12.50.20170207/gdb/iq2000-tdep.c
/* Used to copy struct arguments into the stack. */
CORE_ADDR struct_ptr;
Index: gdb-7.12.50.20170207/gdb/m32r-tdep.c
Index: gdb-7.12.50.20170309/gdb/m32r-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/m32r-tdep.c 2017-02-26 19:11:30.487121309 +0100
+++ gdb-7.12.50.20170207/gdb/m32r-tdep.c 2017-02-26 19:11:48.278248610 +0100
--- gdb-7.12.50.20170309.orig/gdb/m32r-tdep.c 2017-03-09 23:35:09.708541167 +0100
+++ gdb-7.12.50.20170309/gdb/m32r-tdep.c 2017-03-09 23:35:14.425574019 +0100
@@ -678,7 +678,7 @@
CORE_ADDR regval;
gdb_byte *val;
@ -588,10 +588,10 @@ Index: gdb-7.12.50.20170207/gdb/m32r-tdep.c
/* First force sp to a 4-byte alignment. */
sp = sp & ~3;
Index: gdb-7.12.50.20170207/gdb/m68k-tdep.c
Index: gdb-7.12.50.20170309/gdb/m68k-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/m68k-tdep.c 2017-02-26 19:11:30.488121316 +0100
+++ gdb-7.12.50.20170207/gdb/m68k-tdep.c 2017-02-26 19:11:48.278248610 +0100
--- gdb-7.12.50.20170309.orig/gdb/m68k-tdep.c 2017-03-09 23:35:09.709541174 +0100
+++ gdb-7.12.50.20170309/gdb/m68k-tdep.c 2017-03-09 23:35:14.425574019 +0100
@@ -377,7 +377,7 @@
{
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
@ -614,10 +614,10 @@ Index: gdb-7.12.50.20170207/gdb/m68k-tdep.c
/* Non-scalars bigger than 4 bytes are left aligned, others are
right aligned. */
Index: gdb-7.12.50.20170207/gdb/m88k-tdep.c
Index: gdb-7.12.50.20170309/gdb/m88k-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/m88k-tdep.c 2017-02-26 19:11:30.488121316 +0100
+++ gdb-7.12.50.20170207/gdb/m88k-tdep.c 2017-02-26 19:11:48.278248610 +0100
--- gdb-7.12.50.20170309.orig/gdb/m88k-tdep.c 2017-03-09 23:35:09.709541174 +0100
+++ gdb-7.12.50.20170309/gdb/m88k-tdep.c 2017-03-09 23:35:14.426574026 +0100
@@ -253,13 +253,13 @@
{
struct gdbarch *gdbarch = get_regcache_arch (regcache);
@ -645,10 +645,10 @@ Index: gdb-7.12.50.20170207/gdb/m88k-tdep.c
if (m88k_in_register_p (type))
{
Index: gdb-7.12.50.20170207/gdb/mep-tdep.c
Index: gdb-7.12.50.20170309/gdb/mep-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/mep-tdep.c 2017-02-26 19:11:30.489121323 +0100
+++ gdb-7.12.50.20170207/gdb/mep-tdep.c 2017-02-26 19:11:48.279248618 +0100
--- gdb-7.12.50.20170309.orig/gdb/mep-tdep.c 2017-03-09 23:35:09.710541181 +0100
+++ gdb-7.12.50.20170309/gdb/mep-tdep.c 2017-03-09 23:35:14.426574026 +0100
@@ -2262,7 +2262,7 @@
for (i = 0; i < argc; i++)
@ -658,10 +658,10 @@ Index: gdb-7.12.50.20170207/gdb/mep-tdep.c
if (arg_len > MEP_GPR_SIZE)
{
Index: gdb-7.12.50.20170207/gdb/mips-tdep.c
Index: gdb-7.12.50.20170309/gdb/mips-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/mips-tdep.c 2017-02-26 19:11:30.493121352 +0100
+++ gdb-7.12.50.20170207/gdb/mips-tdep.c 2017-02-26 19:11:48.281248632 +0100
--- gdb-7.12.50.20170309.orig/gdb/mips-tdep.c 2017-03-09 23:35:09.714541209 +0100
+++ gdb-7.12.50.20170309/gdb/mips-tdep.c 2017-03-09 23:35:14.428574040 +0100
@@ -474,7 +474,7 @@
mips_xfer_register (struct gdbarch *gdbarch, struct regcache *regcache,
int reg_num, int length,
@ -807,10 +807,10 @@ Index: gdb-7.12.50.20170207/gdb/mips-tdep.c
val = value_contents (arg);
Index: gdb-7.12.50.20170207/gdb/mn10300-tdep.c
Index: gdb-7.12.50.20170309/gdb/mn10300-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/mn10300-tdep.c 2017-02-26 19:11:30.494121359 +0100
+++ gdb-7.12.50.20170207/gdb/mn10300-tdep.c 2017-02-26 19:11:48.281248632 +0100
--- gdb-7.12.50.20170309.orig/gdb/mn10300-tdep.c 2017-03-09 23:35:09.715541216 +0100
+++ gdb-7.12.50.20170309/gdb/mn10300-tdep.c 2017-03-09 23:35:14.429574047 +0100
@@ -1219,7 +1219,7 @@
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
const int push_size = register_size (gdbarch, E_PC_REGNUM);
@ -820,10 +820,10 @@ Index: gdb-7.12.50.20170207/gdb/mn10300-tdep.c
int stack_offset = 0;
int argnum;
const gdb_byte *val;
Index: gdb-7.12.50.20170207/gdb/mt-tdep.c
Index: gdb-7.12.50.20170309/gdb/mt-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/mt-tdep.c 2017-02-26 19:11:30.495121366 +0100
+++ gdb-7.12.50.20170207/gdb/mt-tdep.c 2017-02-26 19:11:48.281248632 +0100
--- gdb-7.12.50.20170309.orig/gdb/mt-tdep.c 2017-03-09 23:35:09.716541223 +0100
+++ gdb-7.12.50.20170309/gdb/mt-tdep.c 2017-03-09 23:35:14.429574047 +0100
@@ -788,9 +788,9 @@
gdb_byte buf[MT_MAX_STRUCT_SIZE];
int argreg = MT_1ST_ARGREG;
@ -836,10 +836,10 @@ Index: gdb-7.12.50.20170207/gdb/mt-tdep.c
int i, j;
/* First handle however many args we can fit into MT_1ST_ARGREG thru
Index: gdb-7.12.50.20170207/gdb/ppc-sysv-tdep.c
Index: gdb-7.12.50.20170309/gdb/ppc-sysv-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/ppc-sysv-tdep.c 2017-02-26 19:11:30.496121373 +0100
+++ gdb-7.12.50.20170207/gdb/ppc-sysv-tdep.c 2017-02-26 19:11:48.282248639 +0100
--- gdb-7.12.50.20170309.orig/gdb/ppc-sysv-tdep.c 2017-03-09 23:35:09.717541230 +0100
+++ gdb-7.12.50.20170309/gdb/ppc-sysv-tdep.c 2017-03-09 23:35:14.430574054 +0100
@@ -67,7 +67,7 @@
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
int opencl_abi = ppc_sysv_use_opencl_abi (value_type (function));
@ -884,10 +884,10 @@ Index: gdb-7.12.50.20170207/gdb/ppc-sysv-tdep.c
/* Enforce alignment of stack location, if requested. */
if (align > tdep->wordsize)
Index: gdb-7.12.50.20170207/gdb/rl78-tdep.c
Index: gdb-7.12.50.20170309/gdb/rl78-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/rl78-tdep.c 2017-02-26 19:11:30.496121373 +0100
+++ gdb-7.12.50.20170207/gdb/rl78-tdep.c 2017-02-26 19:11:48.282248639 +0100
--- gdb-7.12.50.20170309.orig/gdb/rl78-tdep.c 2017-03-09 23:35:09.717541230 +0100
+++ gdb-7.12.50.20170309/gdb/rl78-tdep.c 2017-03-09 23:35:14.430574054 +0100
@@ -1352,8 +1352,8 @@
for (i = nargs - 1; i >= 0; i--)
{
@ -899,10 +899,10 @@ Index: gdb-7.12.50.20170207/gdb/rl78-tdep.c
sp -= container_len;
write_memory (rl78_make_data_address (sp),
Index: gdb-7.12.50.20170207/gdb/rs6000-aix-tdep.c
Index: gdb-7.12.50.20170309/gdb/rs6000-aix-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/rs6000-aix-tdep.c 2017-02-26 19:11:30.497121380 +0100
+++ gdb-7.12.50.20170207/gdb/rs6000-aix-tdep.c 2017-02-26 19:11:48.282248639 +0100
--- gdb-7.12.50.20170309.orig/gdb/rs6000-aix-tdep.c 2017-03-09 23:35:09.718541237 +0100
+++ gdb-7.12.50.20170309/gdb/rs6000-aix-tdep.c 2017-03-09 23:35:14.430574054 +0100
@@ -186,9 +186,9 @@
struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
@ -924,11 +924,11 @@ Index: gdb-7.12.50.20170207/gdb/rs6000-aix-tdep.c
if (argbytes)
{
Index: gdb-7.12.50.20170207/gdb/s390-linux-tdep.c
Index: gdb-7.12.50.20170309/gdb/s390-linux-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/s390-linux-tdep.c 2017-02-26 19:11:30.499121395 +0100
+++ gdb-7.12.50.20170207/gdb/s390-linux-tdep.c 2017-02-26 19:11:48.284248654 +0100
@@ -3125,7 +3125,7 @@
--- gdb-7.12.50.20170309.orig/gdb/s390-linux-tdep.c 2017-03-09 23:35:09.720541250 +0100
+++ gdb-7.12.50.20170309/gdb/s390-linux-tdep.c 2017-03-09 23:35:14.432574068 +0100
@@ -3128,7 +3128,7 @@
/* Determine whether N is a power of two. */
static int
@ -937,7 +937,7 @@ Index: gdb-7.12.50.20170207/gdb/s390-linux-tdep.c
{
return n && ((n & (n - 1)) == 0);
}
@@ -3182,7 +3182,7 @@
@@ -3185,7 +3185,7 @@
enum bfd_endian byte_order, int is_unnamed)
{
struct type *type = check_typedef (value_type (arg));
@ -946,10 +946,10 @@ Index: gdb-7.12.50.20170207/gdb/s390-linux-tdep.c
int write_mode = as->regcache != NULL;
if (s390_function_arg_float (type))
Index: gdb-7.12.50.20170207/gdb/score-tdep.c
Index: gdb-7.12.50.20170309/gdb/score-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/score-tdep.c 2017-02-26 19:11:30.499121395 +0100
+++ gdb-7.12.50.20170207/gdb/score-tdep.c 2017-02-26 19:11:48.284248654 +0100
--- gdb-7.12.50.20170309.orig/gdb/score-tdep.c 2017-03-09 23:35:09.721541258 +0100
+++ gdb-7.12.50.20170309/gdb/score-tdep.c 2017-03-09 23:35:14.432574068 +0100
@@ -525,7 +525,7 @@
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
int argnum;
@ -959,10 +959,10 @@ Index: gdb-7.12.50.20170207/gdb/score-tdep.c
CORE_ADDR stack_offset = 0;
CORE_ADDR addr = 0;
Index: gdb-7.12.50.20170207/gdb/sh-tdep.c
Index: gdb-7.12.50.20170309/gdb/sh-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/sh-tdep.c 2017-02-26 19:11:30.500121402 +0100
+++ gdb-7.12.50.20170207/gdb/sh-tdep.c 2017-02-26 19:11:48.285248661 +0100
--- gdb-7.12.50.20170309.orig/gdb/sh-tdep.c 2017-03-09 23:35:09.721541258 +0100
+++ gdb-7.12.50.20170309/gdb/sh-tdep.c 2017-03-09 23:35:14.433574075 +0100
@@ -814,7 +814,7 @@
static int
sh_use_struct_convention (int renesas_abi, struct type *type)
@ -1001,10 +1001,10 @@ Index: gdb-7.12.50.20170207/gdb/sh-tdep.c
int pass_on_stack = 0;
int last_reg_arg = INT_MAX;
Index: gdb-7.12.50.20170207/gdb/sh64-tdep.c
Index: gdb-7.12.50.20170309/gdb/sh64-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/sh64-tdep.c 2017-02-26 19:11:30.501121409 +0100
+++ gdb-7.12.50.20170207/gdb/sh64-tdep.c 2017-02-26 19:11:48.285248661 +0100
--- gdb-7.12.50.20170309.orig/gdb/sh64-tdep.c 2017-03-09 23:35:09.722541264 +0100
+++ gdb-7.12.50.20170309/gdb/sh64-tdep.c 2017-03-09 23:35:14.434574082 +0100
@@ -1062,7 +1062,7 @@
CORE_ADDR struct_addr)
{
@ -1023,10 +1023,10 @@ Index: gdb-7.12.50.20170207/gdb/sh64-tdep.c
int argreg_size;
int fp_args[12];
Index: gdb-7.12.50.20170207/gdb/sparc-tdep.c
Index: gdb-7.12.50.20170309/gdb/sparc-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/sparc-tdep.c 2017-02-26 19:11:30.502121416 +0100
+++ gdb-7.12.50.20170207/gdb/sparc-tdep.c 2017-02-26 19:11:48.286248668 +0100
--- gdb-7.12.50.20170309.orig/gdb/sparc-tdep.c 2017-03-09 23:35:09.723541271 +0100
+++ gdb-7.12.50.20170309/gdb/sparc-tdep.c 2017-03-09 23:35:14.434574082 +0100
@@ -566,7 +566,7 @@
for (i = 0; i < nargs; i++)
{
@ -1036,10 +1036,10 @@ Index: gdb-7.12.50.20170207/gdb/sparc-tdep.c
if (sparc_structure_or_union_p (type)
|| (sparc_floating_p (type) && len == 16)
Index: gdb-7.12.50.20170207/gdb/sparc64-tdep.c
Index: gdb-7.12.50.20170309/gdb/sparc64-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/sparc64-tdep.c 2017-02-26 19:11:30.503121423 +0100
+++ gdb-7.12.50.20170207/gdb/sparc64-tdep.c 2017-02-26 19:11:48.286248668 +0100
--- gdb-7.12.50.20170309.orig/gdb/sparc64-tdep.c 2017-03-09 23:35:09.724541278 +0100
+++ gdb-7.12.50.20170309/gdb/sparc64-tdep.c 2017-03-09 23:35:14.435574089 +0100
@@ -670,7 +670,8 @@
static void
@ -1095,10 +1095,10 @@ Index: gdb-7.12.50.20170207/gdb/sparc64-tdep.c
int regnum = -1;
gdb_byte buf[16];
Index: gdb-7.12.50.20170207/gdb/spu-tdep.c
Index: gdb-7.12.50.20170309/gdb/spu-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/spu-tdep.c 2017-02-26 19:11:30.503121423 +0100
+++ gdb-7.12.50.20170207/gdb/spu-tdep.c 2017-02-26 19:11:48.287248675 +0100
--- gdb-7.12.50.20170309.orig/gdb/spu-tdep.c 2017-03-09 23:35:09.725541285 +0100
+++ gdb-7.12.50.20170309/gdb/spu-tdep.c 2017-03-09 23:35:14.435574089 +0100
@@ -1430,7 +1430,7 @@
struct value *arg = args[i];
struct type *type = check_typedef (value_type (arg));
@ -1117,10 +1117,10 @@ Index: gdb-7.12.50.20170207/gdb/spu-tdep.c
int preferred_slot;
if (spu_scalar_value_p (type))
Index: gdb-7.12.50.20170207/gdb/tic6x-tdep.c
Index: gdb-7.12.50.20170309/gdb/tic6x-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/tic6x-tdep.c 2017-02-26 19:11:30.504121430 +0100
+++ gdb-7.12.50.20170207/gdb/tic6x-tdep.c 2017-02-26 19:11:48.287248675 +0100
--- gdb-7.12.50.20170309.orig/gdb/tic6x-tdep.c 2017-03-09 23:35:09.725541285 +0100
+++ gdb-7.12.50.20170309/gdb/tic6x-tdep.c 2017-03-09 23:35:14.436574096 +0100
@@ -899,7 +899,7 @@
int argreg = 0;
int argnum;
@ -1158,10 +1158,10 @@ Index: gdb-7.12.50.20170207/gdb/tic6x-tdep.c
addr = sp + stack_offset;
write_memory (addr, val, len);
Index: gdb-7.12.50.20170207/gdb/tilegx-tdep.c
Index: gdb-7.12.50.20170309/gdb/tilegx-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/tilegx-tdep.c 2017-02-26 19:11:30.504121430 +0100
+++ gdb-7.12.50.20170207/gdb/tilegx-tdep.c 2017-02-26 19:11:48.287248675 +0100
--- gdb-7.12.50.20170309.orig/gdb/tilegx-tdep.c 2017-03-09 23:35:09.726541292 +0100
+++ gdb-7.12.50.20170309/gdb/tilegx-tdep.c 2017-03-09 23:35:14.436574096 +0100
@@ -289,7 +289,7 @@
CORE_ADDR stack_dest = sp;
int argreg = TILEGX_R0_REGNUM;
@ -1171,10 +1171,10 @@ Index: gdb-7.12.50.20170207/gdb/tilegx-tdep.c
static const gdb_byte four_zero_words[16] = { 0 };
/* If struct_return is 1, then the struct return address will
Index: gdb-7.12.50.20170207/gdb/v850-tdep.c
Index: gdb-7.12.50.20170309/gdb/v850-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/v850-tdep.c 2017-02-26 19:11:30.505121438 +0100
+++ gdb-7.12.50.20170207/gdb/v850-tdep.c 2017-02-26 19:11:48.288248682 +0100
--- gdb-7.12.50.20170309.orig/gdb/v850-tdep.c 2017-03-09 23:35:09.726541292 +0100
+++ gdb-7.12.50.20170309/gdb/v850-tdep.c 2017-03-09 23:35:14.436574096 +0100
@@ -1019,7 +1019,7 @@
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
int argreg;
@ -1193,10 +1193,10 @@ Index: gdb-7.12.50.20170207/gdb/v850-tdep.c
gdb_byte *val;
gdb_byte valbuf[v850_reg_size];
Index: gdb-7.12.50.20170207/gdb/vax-tdep.c
Index: gdb-7.12.50.20170309/gdb/vax-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/vax-tdep.c 2017-02-26 19:11:30.505121438 +0100
+++ gdb-7.12.50.20170207/gdb/vax-tdep.c 2017-02-26 19:11:48.288248682 +0100
--- gdb-7.12.50.20170309.orig/gdb/vax-tdep.c 2017-03-09 23:35:09.727541299 +0100
+++ gdb-7.12.50.20170309/gdb/vax-tdep.c 2017-03-09 23:35:14.437574103 +0100
@@ -111,7 +111,7 @@
struct gdbarch *gdbarch = get_regcache_arch (regcache);
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
@ -1215,10 +1215,10 @@ Index: gdb-7.12.50.20170207/gdb/vax-tdep.c
sp -= (len + 3) & ~3;
count += (len + 3) / 4;
Index: gdb-7.12.50.20170207/gdb/xstormy16-tdep.c
Index: gdb-7.12.50.20170309/gdb/xstormy16-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/xstormy16-tdep.c 2017-02-26 19:11:30.506121445 +0100
+++ gdb-7.12.50.20170207/gdb/xstormy16-tdep.c 2017-02-26 19:11:48.288248682 +0100
--- gdb-7.12.50.20170309.orig/gdb/xstormy16-tdep.c 2017-03-09 23:35:09.727541299 +0100
+++ gdb-7.12.50.20170309/gdb/xstormy16-tdep.c 2017-03-09 23:35:14.437574103 +0100
@@ -233,8 +233,9 @@
enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
CORE_ADDR stack_dest = sp;
@ -1231,10 +1231,10 @@ Index: gdb-7.12.50.20170207/gdb/xstormy16-tdep.c
const gdb_byte *val;
gdb_byte buf[xstormy16_pc_size];
Index: gdb-7.12.50.20170207/gdb/xtensa-tdep.c
Index: gdb-7.12.50.20170309/gdb/xtensa-tdep.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/xtensa-tdep.c 2017-02-26 19:11:30.507121452 +0100
+++ gdb-7.12.50.20170207/gdb/xtensa-tdep.c 2017-02-26 19:11:48.289248689 +0100
--- gdb-7.12.50.20170309.orig/gdb/xtensa-tdep.c 2017-03-09 23:35:09.728541306 +0100
+++ gdb-7.12.50.20170309/gdb/xtensa-tdep.c 2017-03-09 23:35:14.438574110 +0100
@@ -1639,8 +1639,7 @@
if (len > (callsize > 8 ? 8 : 16))

154
gdb-vla-intel-fortran-vla-strings.patch
View File

@ -23,23 +23,23 @@ git diff --stat -p gdb/master...gdb/users/bheckel/fortran-vla-strings
gdb/valprint.c | 6 --
20 files changed, 827 insertions(+), 110 deletions(-)
Index: gdb-7.12.50.20170207/gdb/NEWS
Index: gdb-7.12.50.20170304/gdb/NEWS
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/NEWS 2017-02-07 20:53:48.851887262 +0100
+++ gdb-7.12.50.20170207/gdb/NEWS 2017-02-07 20:53:54.437929689 +0100
@@ -73,6 +73,8 @@
Erases all the flash memory regions reported by the target. This is
equivalent to the CLI command flash-erase.
--- gdb-7.12.50.20170304.orig/gdb/NEWS 2017-03-04 21:47:37.491039873 +0100
+++ gdb-7.12.50.20170304/gdb/NEWS 2017-03-04 21:47:40.283060856 +0100
@@ -94,6 +94,8 @@
The default value is the empty string. Currently, the only supported
targets are ARM, PowerPC and S/390.
+* Fortran: Support pointers to dynamic types.
+
*** Changes in GDB 7.12
* GDB and GDBserver now build with a C++ compiler by default.
Index: gdb-7.12.50.20170207/gdb/c-valprint.c
Index: gdb-7.12.50.20170304/gdb/c-valprint.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/c-valprint.c 2017-02-07 20:53:48.851887262 +0100
+++ gdb-7.12.50.20170207/gdb/c-valprint.c 2017-02-07 20:53:54.437929689 +0100
--- gdb-7.12.50.20170304.orig/gdb/c-valprint.c 2017-03-04 21:47:37.492039881 +0100
+++ gdb-7.12.50.20170304/gdb/c-valprint.c 2017-03-04 21:47:40.283060856 +0100
@@ -646,6 +646,28 @@
else
{
@ -69,11 +69,11 @@ Index: gdb-7.12.50.20170207/gdb/c-valprint.c
fprintf_filtered (stream, "(");
type_print (value_type (val), "", stream, -1);
fprintf_filtered (stream, ") ");
Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
Index: gdb-7.12.50.20170304/gdb/dwarf2read.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/dwarf2read.c 2017-02-07 20:53:48.862887345 +0100
+++ gdb-7.12.50.20170207/gdb/dwarf2read.c 2017-02-07 20:53:54.442929727 +0100
@@ -1768,7 +1768,8 @@
--- gdb-7.12.50.20170304.orig/gdb/dwarf2read.c 2017-03-04 21:47:37.507039994 +0100
+++ gdb-7.12.50.20170304/gdb/dwarf2read.c 2017-03-04 21:47:40.288060894 +0100
@@ -1795,7 +1795,8 @@
static int attr_to_dynamic_prop (const struct attribute *attr,
struct die_info *die, struct dwarf2_cu *cu,
@ -83,7 +83,7 @@ Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
/* memory allocation interface */
@@ -11399,7 +11400,7 @@
@@ -11491,7 +11492,7 @@
{
newobj->static_link
= XOBNEW (&objfile->objfile_obstack, struct dynamic_prop);
@ -92,7 +92,7 @@ Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
}
cu->list_in_scope = &local_symbols;
@@ -14460,29 +14461,94 @@
@@ -14718,29 +14719,94 @@
struct gdbarch *gdbarch = get_objfile_arch (objfile);
struct type *type, *range_type, *index_type, *char_type;
struct attribute *attr;
@ -198,7 +198,7 @@ Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
char_type = language_string_char_type (cu->language_defn, gdbarch);
type = create_string_type (NULL, char_type, range_type);
@@ -14819,7 +14885,8 @@
@@ -15077,7 +15143,8 @@
static int
attr_to_dynamic_prop (const struct attribute *attr, struct die_info *die,
@ -208,7 +208,7 @@ Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
{
struct dwarf2_property_baton *baton;
struct obstack *obstack = &cu->objfile->objfile_obstack;
@@ -14829,14 +14896,33 @@
@@ -15087,14 +15154,33 @@
if (attr_form_is_block (attr))
{
@ -246,7 +246,7 @@ Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
}
else if (attr_form_is_ref (attr))
{
@@ -14869,8 +14955,28 @@
@@ -15127,8 +15213,28 @@
baton = XOBNEW (obstack, struct dwarf2_property_baton);
baton->referenced_type = die_type (target_die, target_cu);
baton->locexpr.per_cu = cu->per_cu;
@ -277,7 +277,7 @@ Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
prop->data.baton = baton;
prop->kind = PROP_LOCEXPR;
gdb_assert (prop->data.baton != NULL);
@@ -14981,24 +15087,24 @@
@@ -15239,24 +15345,24 @@
attr = dwarf2_attr (die, DW_AT_byte_stride, cu);
if (attr)
@ -306,7 +306,7 @@ Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
{
/* If bounds are constant do the final calculation here. */
if (low.kind == PROP_CONST && high.kind == PROP_CONST)
@@ -22333,7 +22439,7 @@
@@ -22871,7 +22977,7 @@
attr = dwarf2_attr (die, DW_AT_allocated, cu);
if (attr_form_is_block (attr))
{
@ -315,7 +315,7 @@ Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
add_dyn_prop (DYN_PROP_ALLOCATED, prop, type, objfile);
}
else if (attr != NULL)
@@ -22348,7 +22454,7 @@
@@ -22886,7 +22992,7 @@
attr = dwarf2_attr (die, DW_AT_associated, cu);
if (attr_form_is_block (attr))
{
@ -324,7 +324,7 @@ Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
add_dyn_prop (DYN_PROP_ASSOCIATED, prop, type, objfile);
}
else if (attr != NULL)
@@ -22361,7 +22467,7 @@
@@ -22899,7 +23005,7 @@
/* Read DW_AT_data_location and set in type. */
attr = dwarf2_attr (die, DW_AT_data_location, cu);
@ -333,10 +333,10 @@ Index: gdb-7.12.50.20170207/gdb/dwarf2read.c
add_dyn_prop (DYN_PROP_DATA_LOCATION, prop, type, objfile);
if (dwarf2_per_objfile->die_type_hash == NULL)
Index: gdb-7.12.50.20170207/gdb/f-typeprint.c
Index: gdb-7.12.50.20170304/gdb/f-typeprint.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/f-typeprint.c 2017-02-07 20:53:48.863887353 +0100
+++ gdb-7.12.50.20170207/gdb/f-typeprint.c 2017-02-07 20:53:54.443929734 +0100
--- gdb-7.12.50.20170304.orig/gdb/f-typeprint.c 2017-03-04 21:47:27.789966966 +0100
+++ gdb-7.12.50.20170304/gdb/f-typeprint.c 2017-03-04 21:48:22.163375604 +0100
@@ -37,7 +37,7 @@
#endif
@ -346,9 +346,9 @@ Index: gdb-7.12.50.20170207/gdb/f-typeprint.c
void f_type_print_varspec_prefix (struct type *, struct ui_file *,
int, int);
@@ -54,18 +54,6 @@
@@ -53,18 +53,6 @@
{
enum type_code code;
int demangled_args;
- if (type_not_associated (type))
- {
@ -365,16 +365,16 @@ Index: gdb-7.12.50.20170207/gdb/f-typeprint.c
f_type_print_base (type, stream, show, level);
code = TYPE_CODE (type);
if ((varstring != NULL && *varstring != '\0')
@@ -87,7 +75,7 @@
so don't print an additional pair of ()'s. */
@@ -89,7 +77,7 @@
demangled_args = varstring[strlen (varstring) - 1] == ')';
demangled_args = (*varstring != '\0'
&& varstring[strlen (varstring) - 1] == ')');
- f_type_print_varspec_suffix (type, stream, show, 0, demangled_args, 0);
+ f_type_print_varspec_suffix (type, stream, show, 0, demangled_args, 0, 0);
}
}
@@ -157,7 +145,7 @@
@@ -159,7 +147,7 @@
static void
f_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
int show, int passed_a_ptr, int demangled_args,
@ -383,7 +383,7 @@ Index: gdb-7.12.50.20170207/gdb/f-typeprint.c
{
int upper_bound, lower_bound;
@@ -181,34 +169,50 @@
@@ -183,34 +171,50 @@
fprintf_filtered (stream, "(");
if (type_not_associated (type))
@ -460,7 +460,7 @@ Index: gdb-7.12.50.20170207/gdb/f-typeprint.c
if (arrayprint_recurse_level == 1)
fprintf_filtered (stream, ")");
else
@@ -219,13 +223,14 @@
@@ -221,13 +225,14 @@
case TYPE_CODE_PTR:
case TYPE_CODE_REF:
f_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 1, 0,
@ -477,7 +477,7 @@ Index: gdb-7.12.50.20170207/gdb/f-typeprint.c
if (passed_a_ptr)
fprintf_filtered (stream, ")");
@@ -376,7 +381,7 @@
@@ -378,7 +383,7 @@
fputs_filtered (" :: ", stream);
fputs_filtered (TYPE_FIELD_NAME (type, index), stream);
f_type_print_varspec_suffix (TYPE_FIELD_TYPE (type, index),
@ -486,10 +486,10 @@ Index: gdb-7.12.50.20170207/gdb/f-typeprint.c
fputs_filtered ("\n", stream);
}
fprintfi_filtered (level, stream, "End Type ");
Index: gdb-7.12.50.20170207/gdb/gdbtypes.c
Index: gdb-7.12.50.20170304/gdb/gdbtypes.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/gdbtypes.c 2017-02-07 20:53:48.865887368 +0100
+++ gdb-7.12.50.20170207/gdb/gdbtypes.c 2017-02-07 20:53:54.444929742 +0100
--- gdb-7.12.50.20170304.orig/gdb/gdbtypes.c 2017-03-04 21:47:37.510040016 +0100
+++ gdb-7.12.50.20170304/gdb/gdbtypes.c 2017-03-04 21:47:40.289060902 +0100
@@ -1814,7 +1814,8 @@
type = check_typedef (type);
@ -581,10 +581,10 @@ Index: gdb-7.12.50.20170207/gdb/gdbtypes.c
resolved_type = resolve_dynamic_array (type, addr_stack);
break;
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.cp/vla-cxx.cc
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.cp/vla-cxx.cc
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/testsuite/gdb.cp/vla-cxx.cc 2017-02-07 20:53:48.866887375 +0100
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.cp/vla-cxx.cc 2017-02-07 20:53:54.444929742 +0100
--- gdb-7.12.50.20170304.orig/gdb/testsuite/gdb.cp/vla-cxx.cc 2017-03-04 21:47:37.511040023 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.cp/vla-cxx.cc 2017-03-04 21:47:40.289060902 +0100
@@ -15,6 +15,10 @@
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>. */
@ -613,10 +613,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.cp/vla-cxx.cc
+
return vla[2];
}
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.cp/vla-cxx.exp
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.cp/vla-cxx.exp
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/testsuite/gdb.cp/vla-cxx.exp 2017-02-07 20:53:48.866887375 +0100
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.cp/vla-cxx.exp 2017-02-07 20:53:54.444929742 +0100
--- gdb-7.12.50.20170304.orig/gdb/testsuite/gdb.cp/vla-cxx.exp 2017-03-04 21:47:37.511040023 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.cp/vla-cxx.exp 2017-03-04 21:47:40.290060909 +0100
@@ -23,6 +23,12 @@
return -1
}
@ -637,10 +637,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.cp/vla-cxx.exp
+gdb_test "ptype ptr" "int \\(\\*\\)\\\[3\\\]"
+gdb_test "print ptr" "\\(int \\(\\*\\)\\\[3\\\]\\) $hex"
+gdb_test "print *ptr" " = \\{5, 7, 9\\}"
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/pointers.exp
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/pointers.exp
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/pointers.exp 2017-02-07 20:53:54.444929742 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/pointers.exp 2017-03-04 21:47:40.290060909 +0100
@@ -0,0 +1,143 @@
+# Copyright 2016 Free Software Foundation, Inc.
+
@ -785,10 +785,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/pointers.exp
+gdb_test "print *((integer*) &inta + 2)" "= 3" "print temporary pointer, array"
+gdb_test "print *((integer*) &intvla + 3)" "= 4" "print temporary pointer, allocated vla"
+gdb_test "print \$pc" "= \\(PTR TO -> \\( void \\(\\)\\(\\)\\)\\) $hex <pointers\\+\\d+>" "Print program counter"
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/pointers.f90
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/pointers.f90
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/pointers.f90 2017-02-07 20:53:54.445929749 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/pointers.f90 2017-03-04 21:47:40.290060909 +0100
@@ -0,0 +1,109 @@
+! Copyright 2016 Free Software Foundation, Inc.
+!
@ -899,10 +899,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/pointers.f90
+ intv = intv + 1 ! After value assignment
+
+end program pointers
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/print_type.exp
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/print_type.exp
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/print_type.exp 2017-02-07 20:53:54.445929749 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/print_type.exp 2017-03-04 21:47:40.290060909 +0100
@@ -0,0 +1,100 @@
+# Copyright 2016 Free Software Foundation, Inc.
+
@ -1004,10 +1004,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/print_type.exp
+ }
+}
+gdb_test "ptype realp" "type = PTR TO -> \\( $real \\)"
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-ptype.exp
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/vla-ptype.exp
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/testsuite/gdb.fortran/vla-ptype.exp 2017-02-07 20:53:48.867887383 +0100
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-ptype.exp 2017-02-07 20:53:54.445929749 +0100
--- gdb-7.12.50.20170304.orig/gdb/testsuite/gdb.fortran/vla-ptype.exp 2017-03-04 21:47:37.512040031 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/vla-ptype.exp 2017-03-04 21:47:40.291060917 +0100
@@ -32,9 +32,9 @@
# Check the ptype of various VLA states and pointer to VLA's.
gdb_breakpoint [gdb_get_line_number "vla1-init"]
@ -1045,10 +1045,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-ptype.exp
gdb_test "ptype vla2(5, 45, 20)" \
"no such vector element \\\(vector not allocated\\\)" \
"ptype vla2(5, 45, 20) not allocated"
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-strings.exp
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/vla-strings.exp
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-strings.exp 2017-02-07 20:53:54.445929749 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/vla-strings.exp 2017-03-04 21:47:40.291060917 +0100
@@ -0,0 +1,103 @@
+# Copyright 2016 Free Software Foundation, Inc.
+
@ -1153,10 +1153,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-strings.exp
+ pass $test
+ }
+}
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-strings.f90
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/vla-strings.f90
===================================================================
--- /dev/null 1970-01-01 00:00:00.000000000 +0000
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-strings.f90 2017-02-07 20:53:54.445929749 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/vla-strings.f90 2017-03-04 21:47:40.291060917 +0100
@@ -0,0 +1,39 @@
+! Copyright 2016 Free Software Foundation, Inc.
+!
@ -1197,10 +1197,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-strings.f90
+ var_char_p => null()
+ l = associated(var_char_p) ! var_char_p-not-associated
+end program vla_strings
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-type.exp
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/vla-type.exp
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/testsuite/gdb.fortran/vla-type.exp 2017-02-07 20:53:48.867887383 +0100
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-type.exp 2017-02-07 20:53:54.446929757 +0100
--- gdb-7.12.50.20170304.orig/gdb/testsuite/gdb.fortran/vla-type.exp 2017-03-04 21:47:37.512040031 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/vla-type.exp 2017-03-04 21:47:40.291060917 +0100
@@ -132,7 +132,10 @@
"End Type one" ]
@ -1222,10 +1222,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-type.exp
"End Type one" ] \
"ptype fivedynarr(2)%tone, not allocated"
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-value.exp
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/vla-value.exp
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/testsuite/gdb.fortran/vla-value.exp 2017-02-07 20:53:48.868887391 +0100
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-value.exp 2017-02-07 20:53:54.446929757 +0100
--- gdb-7.12.50.20170304.orig/gdb/testsuite/gdb.fortran/vla-value.exp 2017-03-04 21:47:37.512040031 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.fortran/vla-value.exp 2017-03-04 21:47:40.291060917 +0100
@@ -14,6 +14,7 @@
# along with this program. If not, see <http://www.gnu.org/licenses/>.
@ -1278,10 +1278,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.fortran/vla-value.exp
"print associated &pvla"
gdb_test "print pvla(3, 6, 9)" " = 42" "print associated pvla(3,6,9)"
gdb_test "print pvla(1, 3, 8)" " = 1001" "print associated pvla(1,3,8)"
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.mi/mi-var-child-f.exp
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.mi/mi-var-child-f.exp
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/testsuite/gdb.mi/mi-var-child-f.exp 2017-02-07 20:53:48.868887391 +0100
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.mi/mi-var-child-f.exp 2017-02-07 20:53:54.446929757 +0100
--- gdb-7.12.50.20170304.orig/gdb/testsuite/gdb.mi/mi-var-child-f.exp 2017-03-04 21:47:37.513040039 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.mi/mi-var-child-f.exp 2017-03-04 21:47:40.291060917 +0100
@@ -17,6 +17,7 @@
load_lib mi-support.exp
@ -1303,10 +1303,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.mi/mi-var-child-f.exp
set children [list [list "array.-1" "-1" 2 "$int4 \\(2\\)"] \
[list "array.0" "0" 2 "$int4 \\(2\\)"] \
Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.mi/mi-vla-fortran.exp
Index: gdb-7.12.50.20170304/gdb/testsuite/gdb.mi/mi-vla-fortran.exp
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/testsuite/gdb.mi/mi-vla-fortran.exp 2017-02-07 20:53:48.868887391 +0100
+++ gdb-7.12.50.20170207/gdb/testsuite/gdb.mi/mi-vla-fortran.exp 2017-02-07 20:53:54.446929757 +0100
--- gdb-7.12.50.20170304.orig/gdb/testsuite/gdb.mi/mi-vla-fortran.exp 2017-03-04 21:47:37.513040039 +0100
+++ gdb-7.12.50.20170304/gdb/testsuite/gdb.mi/mi-vla-fortran.exp 2017-03-04 21:47:40.292060924 +0100
@@ -17,7 +17,9 @@
# Array (VLA).
@ -1405,10 +1405,10 @@ Index: gdb-7.12.50.20170207/gdb/testsuite/gdb.mi/mi-vla-fortran.exp
"info type variable pvla2_associated"
mi_gdb_test "592-var-show-format pvla2_associated" \
"592\\^done,format=\"natural\"" \
Index: gdb-7.12.50.20170207/gdb/typeprint.c
Index: gdb-7.12.50.20170304/gdb/typeprint.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/typeprint.c 2017-02-07 20:53:48.869887398 +0100
+++ gdb-7.12.50.20170207/gdb/typeprint.c 2017-02-07 20:53:54.446929757 +0100
--- gdb-7.12.50.20170304.orig/gdb/typeprint.c 2017-03-04 21:47:37.513040039 +0100
+++ gdb-7.12.50.20170304/gdb/typeprint.c 2017-03-04 21:47:40.292060924 +0100
@@ -475,6 +475,25 @@
printf_filtered (" */\n");
}
@ -1435,10 +1435,10 @@ Index: gdb-7.12.50.20170207/gdb/typeprint.c
LA_PRINT_TYPE (type, "", gdb_stdout, show, 0, &flags);
printf_filtered ("\n");
Index: gdb-7.12.50.20170207/gdb/valops.c
Index: gdb-7.12.50.20170304/gdb/valops.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/valops.c 2017-02-07 20:53:48.870887406 +0100
+++ gdb-7.12.50.20170207/gdb/valops.c 2017-02-07 20:53:54.447929765 +0100
--- gdb-7.12.50.20170304.orig/gdb/valops.c 2017-03-04 21:47:37.514040046 +0100
+++ gdb-7.12.50.20170304/gdb/valops.c 2017-03-04 21:47:40.293060932 +0100
@@ -1569,6 +1569,19 @@
if (TYPE_CODE (base_type) == TYPE_CODE_PTR)
{
@ -1469,10 +1469,10 @@ Index: gdb-7.12.50.20170207/gdb/valops.c
enc_type = value_type (arg2);
return readjust_indirect_value_type (arg2, enc_type, base_type, arg1);
Index: gdb-7.12.50.20170207/gdb/valprint.c
Index: gdb-7.12.50.20170304/gdb/valprint.c
===================================================================
--- gdb-7.12.50.20170207.orig/gdb/valprint.c 2017-02-07 02:48:47.000000000 +0100
+++ gdb-7.12.50.20170207/gdb/valprint.c 2017-02-07 20:53:54.448929772 +0100
--- gdb-7.12.50.20170304.orig/gdb/valprint.c 2017-03-04 02:49:09.000000000 +0100
+++ gdb-7.12.50.20170304/gdb/valprint.c 2017-03-04 21:47:40.293060932 +0100
@@ -1165,12 +1165,6 @@
return 0;
}

7
gdb.spec
View File

@ -18,7 +18,7 @@
Name: %{?scl_prefix}gdb
# Freeze it when GDB gets branched
%global snapsrc 20170226
%global snapsrc 20170309
# See timestamp of source gnulib installed into gdb/gnulib/ .
%global snapgnulib 20150822
%global tarname gdb-%{version}
@ -26,7 +26,7 @@ Version: 7.12.50.%{snapsrc}
# The release always contains a leading reserved number, start it at 1.
# `upstream' is not a part of `name' to stay fully rpm dependencies compatible for the testing.
Release: 4%{?dist}
Release: 5%{?dist}
License: GPLv3+ and GPLv3+ with exceptions and GPLv2+ and GPLv2+ with exceptions and GPL+ and LGPLv2+ and LGPLv3+ and BSD and Public Domain and GFDL
Group: Development/Debuggers
@ -1578,6 +1578,9 @@ then
fi
%changelog
* Thu Mar 9 2017 Jan Kratochvil <jan.kratochvil@redhat.com> - 7.12.50.20170309-5.fc26
- Rebase to pre-7.13 FSF GDB trunk.
* Thu Mar 2 2017 Jan Kratochvil <jan.kratochvil@redhat.com> - 7.12.50.20170226-4.fc26
- Fix gdb-vla-intel-fortran-strides.patch rebase regression.

2
sources
View File

@ -1,3 +1,3 @@
SHA512 (gdb-libstdc++-v3-python-6.3.1-20170212.tar.xz) = 22ad4187d6bb9851ecf389c3ff4c68f33ccf5602d8f51bc337215c700d56c9073b3fb40ece3f58901315161f76a4fd1d6463c623650317ad96fd9e3f4aba7252
SHA512 (v1.5.tar.gz) = ea3e76291d5b077d5b42061898a1f70af6cbdbccb7d05c59904f322ca1c03f7596cac6a966b80b12d2c2d86212f17d6bde02b1daf92be62e49abcb234e2bacbd
SHA512 (gdb-7.12.50.20170226.tar.xz) = cf1b55c011fc6dfee64c0d2e8facea6270c4b1e5966427bc8e2f36bc2515d5d51ea6a1a4e0a5300dfad40ff798d1763f7f9397f3d03fff5ab2f1cc88c4ead737
SHA512 (gdb-7.12.50.20170309.tar.xz) = 2aa38d71cb769c623f739f77e5e47c8c2b73f9bcfc4978841c881dfb002fb2ce084e7f7cd7248fe2a0455e487b77d1c0fa17edcbcdd2c43d85ba4de043d26427