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

2
.gitignore vendored
View File

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

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 --- /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 +++ 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. +# Copyright 2008 Free Software Foundation, Inc.
+ +
+# This program is free software; you can redistribute it and/or modify +# 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 +# commit d7e747318f4d04af033f16325f9b6d74f67079ec
+# Eliminate make_cleanup_ui_file_delete / make ui_file a class hierarchy +# 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" +set test "focus cmd"
+gdb_test_multiple $test $test { +gdb_test_multiple $test $test {
+ -re "$gdb_prompt $" { + -re "$gdb_prompt $" {

View File

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

View File

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

View File

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

View File

@ -18,7 +18,7 @@
Name: %{?scl_prefix}gdb Name: %{?scl_prefix}gdb
# Freeze it when GDB gets branched # Freeze it when GDB gets branched
%global snapsrc 20170226 %global snapsrc 20170309
# See timestamp of source gnulib installed into gdb/gnulib/ . # See timestamp of source gnulib installed into gdb/gnulib/ .
%global snapgnulib 20150822 %global snapgnulib 20150822
%global tarname gdb-%{version} %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. # 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. # `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 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 Group: Development/Debuggers
@ -1578,6 +1578,9 @@ then
fi fi
%changelog %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 * 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. - Fix gdb-vla-intel-fortran-strides.patch rebase regression.

View File

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