From patchwork Sat Jun 24 00:59:31 2017 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Keith Seitz X-Patchwork-Id: 21250 Received: (qmail 6654 invoked by alias); 24 Jun 2017 00:59:36 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 6638 invoked by uid 89); 24 Jun 2017 00:59:35 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-25.4 required=5.0 tests=BAYES_00, GIT_PATCH_0, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3, KAM_LAZY_DOMAIN_SECURITY, RCVD_IN_SORBS_SPAM, RP_MATCHES_RCVD, SPF_HELO_PASS autolearn=ham version=3.3.2 spammy=unin, 2100, 2099 X-HELO: mx1.redhat.com Received: from mx1.redhat.com (HELO mx1.redhat.com) (209.132.183.28) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sat, 24 Jun 2017 00:59:34 +0000 Received: from smtp.corp.redhat.com (int-mx04.intmail.prod.int.phx2.redhat.com [10.5.11.14]) (using TLSv1.2 with cipher AECDH-AES256-SHA (256/256 bits)) (No client certificate requested) by mx1.redhat.com (Postfix) with ESMTPS id 6E1B2E8CDD for ; Sat, 24 Jun 2017 00:59:32 +0000 (UTC) DMARC-Filter: OpenDMARC Filter v1.3.2 mx1.redhat.com 6E1B2E8CDD Authentication-Results: ext-mx09.extmail.prod.ext.phx2.redhat.com; dmarc=none (p=none dis=none) header.from=redhat.com Authentication-Results: ext-mx09.extmail.prod.ext.phx2.redhat.com; spf=pass smtp.mailfrom=keiths@redhat.com DKIM-Filter: OpenDKIM Filter v2.11.0 mx1.redhat.com 6E1B2E8CDD Received: from valrhona.Home (ovpn04.gateway.prod.ext.phx2.redhat.com [10.5.9.4]) by smtp.corp.redhat.com (Postfix) with ESMTP id 4A4AD5D968 for ; Sat, 24 Jun 2017 00:59:32 +0000 (UTC) From: Keith Seitz To: gdb-patches@sourceware.org Subject: [PATCH] Compute proper length for dynamic types of TYPE_CODE_TYPEDEF Date: Fri, 23 Jun 2017 17:59:31 -0700 Message-Id: <1498265971-27536-1-git-send-email-keiths@redhat.com> X-IsSubscribed: yes 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 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 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.