From: Keith Seitz <keiths@redhat.com>
To: gdb-patches@sourceware.org
Subject: [PATCH] Compute proper length for dynamic types of TYPE_CODE_TYPEDEF
Date: Sat, 24 Jun 2017 00:59:00 -0000 [thread overview]
Message-ID: <1498265971-27536-1-git-send-email-keiths@redhat.com> (raw)
This patch fixes gdb/21356 in which we hit an assertion in
value_contents_bits_eq:
(gdb) p container_object2
(gdb) p container_object2
$1 = {_container_member2 = 15, _vla_struct_object2 = {_some_member = 0,
_vla_field = {
../../src/gdb/value.c:829: internal-error: int value_contents_bits_eq(const value*, int, const value*, int, int): Assertion `offset1 + length <= TYPE_LENGTH (val1->enclosing_type) * TARGET_CHAR_BIT' failed.
A problem internal to GDB has been detected,
further debugging may prove unreliable.
Quit this debugging session? (y or n)
This is happening because TYPE_LENGTH (val1->enclosing_type) is erroneously
based on enclosing_type, which is a typedef, instead of the actual underlying
type.
This can be traced back to resolve_dynamic_struct, where the size of the
type is computed:
2093 TYPE_FIELD_TYPE (resolved_type, i)
2094 = resolve_dynamic_type_internal (TYPE_FIELD_TYPE (resolved_type, i),
2095 &pinfo, 0);
2096 gdb_assert (TYPE_FIELD_LOC_KIND (resolved_type, i)
2097 == FIELD_LOC_KIND_BITPOS);
2098
2099 new_bit_length = TYPE_FIELD_BITPOS (resolved_type, i);
2100 if (TYPE_FIELD_BITSIZE (resolved_type, i) != 0)
2101 new_bit_length += TYPE_FIELD_BITSIZE (resolved_type, i);
2102 else
2103 new_bit_length += (TYPE_LENGTH (TYPE_FIELD_TYPE (resolved_type, i))
2104 * TARGET_CHAR_BIT);
In this function, resolved_type is TYPE_CODE_TYPEDEF which is not what we
want to use to calculate the size of the actual field.
This patch fixes this and the similar problem in resolve_dynamic_union.
gdb/ChangeLog:
yyyy-mm-dd Keith Seitz <keiths@redhat.com>
PR gdb/21356
* gdbtypes.c (resolve_dynamic_union, resolve_dynamic_struct):
Resolve typedefs for type length calculations.
gdb/testsuite/ChangeLog:
yyyy-mm-dd Keith Seitz <keiths@redhat.com>
PR gdb/21356
* gdb.base/vla-datatypes.c (vla_factory): Add typedef for struct
vla_struct.
Add new struct vla_typedef and unin vla_typedef_union and
corresponding instantiation objects.
Initialize new objects.
* gdb.base/vla-datatypes.exp: Add tests for vla_typedef_struct_object
and vla_typedef_union_object.
Fixup type for vla_struct_object.
---
gdb/gdbtypes.c | 14 ++++++++++----
gdb/testsuite/gdb.base/vla-datatypes.c | 21 +++++++++++++++++++--
gdb/testsuite/gdb.base/vla-datatypes.exp | 6 +++++-
3 files changed, 34 insertions(+), 7 deletions(-)
diff --git a/gdb/gdbtypes.c b/gdb/gdbtypes.c
index c9a9b3d..45dc141 100644
--- a/gdb/gdbtypes.c
+++ b/gdb/gdbtypes.c
@@ -2033,8 +2033,10 @@ resolve_dynamic_union (struct type *type,
t = resolve_dynamic_type_internal (TYPE_FIELD_TYPE (resolved_type, i),
addr_stack, 0);
TYPE_FIELD_TYPE (resolved_type, i) = t;
- if (TYPE_LENGTH (t) > max_len)
- max_len = TYPE_LENGTH (t);
+
+ struct type *real_type = check_typedef (t);
+ if (TYPE_LENGTH (real_type) > max_len)
+ max_len = TYPE_LENGTH (real_type);
}
TYPE_LENGTH (resolved_type) = max_len;
@@ -2100,8 +2102,12 @@ resolve_dynamic_struct (struct type *type,
if (TYPE_FIELD_BITSIZE (resolved_type, i) != 0)
new_bit_length += TYPE_FIELD_BITSIZE (resolved_type, i);
else
- new_bit_length += (TYPE_LENGTH (TYPE_FIELD_TYPE (resolved_type, i))
- * TARGET_CHAR_BIT);
+ {
+ struct type *real_type
+ = check_typedef (TYPE_FIELD_TYPE (resolved_type, i));
+
+ new_bit_length += (TYPE_LENGTH (real_type) * TARGET_CHAR_BIT);
+ }
/* Normally, we would use the position and size of the last field
to determine the size of the enclosing structure. But GCC seems
diff --git a/gdb/testsuite/gdb.base/vla-datatypes.c b/gdb/testsuite/gdb.base/vla-datatypes.c
index 4902282..e7aee85 100644
--- a/gdb/testsuite/gdb.base/vla-datatypes.c
+++ b/gdb/testsuite/gdb.base/vla-datatypes.c
@@ -46,11 +46,12 @@ vla_factory (int n)
BAR bar_vla[n];
int i;
- struct vla_struct
+ typedef struct vla_struct
{
int something;
int vla_field[n];
- } vla_struct_object;
+ } vla_s;
+ vla_s vla_struct_object;
struct inner_vla_struct
{
@@ -59,14 +60,28 @@ vla_factory (int n)
int after;
} inner_vla_struct_object;
+ struct vla_typedef
+ {
+ int something;
+ vla_s vla_object;
+ } vla_typedef_struct_object;
+
union vla_union
{
int vla_field[n];
} vla_union_object;
+ union vla_typedef_union
+ {
+ int something;
+ vla_s vla_object;
+ } vla_typedef_union_object;
+
vla_struct_object.something = n;
inner_vla_struct_object.something = n;
inner_vla_struct_object.after = n;
+ vla_typedef_struct_object.something = n * 2;
+ vla_typedef_struct_object.vla_object.something = n * 3;
for (i = 0; i < n; i++)
{
int_vla[i] = i*2;
@@ -85,6 +100,8 @@ vla_factory (int n)
vla_struct_object.vla_field[i] = i*2;
vla_union_object.vla_field[i] = i*2;
inner_vla_struct_object.vla_field[i] = i*2;
+ vla_typedef_struct_object.vla_object.vla_field[i] = i * 3;
+ vla_typedef_union_object.vla_object.vla_field[i] = i * 3 - 1;
}
size_t int_size = sizeof(int_vla); /* vlas_filled */
diff --git a/gdb/testsuite/gdb.base/vla-datatypes.exp b/gdb/testsuite/gdb.base/vla-datatypes.exp
index d32ed5a..93997ed 100644
--- a/gdb/testsuite/gdb.base/vla-datatypes.exp
+++ b/gdb/testsuite/gdb.base/vla-datatypes.exp
@@ -57,6 +57,10 @@ gdb_test "print vla_struct_object" \
"\\\{something = 5, vla_field = \\\{0, 2, 4, 6, 8\\\}\\\}"
gdb_test "print vla_union_object" \
"\\\{vla_field = \\\{0, 2, 4, 6, 8\\\}\\\}"
+gdb_test "print vla_typedef_struct_object" \
+ "\\\{something = 10, vla_object = \\\{something = 15, vla_field = \\\{0, 3, 6, 9, 12\\\}\\\}\\\}"
+gdb_test "print vla_typedef_union_object" \
+ "\\\{something = 6, vla_object = \\\{something = 6, vla_field = \\\{-1, 2, 5, 8, 11\\\}\\\}\\\}"
# Check whatis of VLA's.
gdb_test "whatis int_vla" "type = int \\\[5\\\]" "whatis int_vla"
@@ -78,7 +82,7 @@ gdb_test "whatis unsigned_char_vla" "type = unsigned char \\\[5\\\]" \
"whatis unsigned_char_vla"
gdb_test "whatis foo_vla" "type = struct foo \\\[5\\\]" "whatis foo_vla"
gdb_test "whatis bar_vla" "type = BAR \\\[5\\\]" "whatis bar_vla"
-gdb_test "whatis vla_struct_object" "type = struct vla_struct"
+gdb_test "whatis vla_struct_object" "type = vla_s"
gdb_test "whatis vla_union_object" "type = union vla_union"
# Check ptype of VLA's.
--
2.1.0
next reply other threads:[~2017-06-24 0:59 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-06-24 0:59 Keith Seitz [this message]
2017-06-26 11:01 ` Pedro Alves
2020-06-10 11:35 Tom de Vries
2020-06-11 10:46 ` Pedro Alves
2020-06-11 12:38 ` Tom de Vries
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1498265971-27536-1-git-send-email-keiths@redhat.com \
--to=keiths@redhat.com \
--cc=gdb-patches@sourceware.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).