From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 23648 invoked by alias); 18 Apr 2008 18:33:53 -0000 Received: (qmail 23633 invoked by uid 22791); 18 Apr 2008 18:33:52 -0000 X-Spam-Check-By: sourceware.org Received: from province.act-europe.fr (HELO province.act-europe.fr) (212.99.106.214) by sourceware.org (qpsmtpd/0.31) with ESMTP; Fri, 18 Apr 2008 18:33:32 +0000 Received: from localhost (localhost [127.0.0.1]) by filtered-province.act-europe.fr (Postfix) with ESMTP id 57498166EA5 for ; Fri, 18 Apr 2008 20:33:28 +0200 (CEST) Received: from province.act-europe.fr ([127.0.0.1]) by localhost (province.act-europe.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id yM8mBIkrbHQV for ; Fri, 18 Apr 2008 20:33:28 +0200 (CEST) Received: from [192.168.1.3] (dyn-88-122-236-120.ppp.tiscali.fr [88.122.236.120]) (using TLSv1 with cipher RC4-MD5 (128/128 bits)) (No client certificate requested) by province.act-europe.fr (Postfix) with ESMTPSA id 0A7EB166D8C for ; Fri, 18 Apr 2008 20:33:28 +0200 (CEST) From: Eric Botcazou To: gcc-patches@gcc.gnu.org Subject: [Ada] Small debug info tweak Date: Fri, 18 Apr 2008 19:50:00 -0000 User-Agent: KMail/1.7.1 MIME-Version: 1.0 Content-Type: Multipart/Mixed; boundary="Boundary-00=_HmOCIiU9/lMc8dL" Message-Id: <200804182033.43698.ebotcazou@adacore.com> Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org X-SW-Source: 2008-04/txt/msg01469.txt.bz2 --Boundary-00=_HmOCIiU9/lMc8dL Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Content-Disposition: inline Content-length: 433 The purpose of the XVS parallel types is documented in exp_dbug.ads, but turns out to be somewhat vague. It appears that they are not needed if the type has a fixed size. Hence the attached patch. Tested on i586-suse-linux, applied on the mainline. 2008-04-18 Eric Botcazou * decl.c (maybe_pad_type): Only generate the XVS parallel type if the padded type has a variable size. -- Eric Botcazou --Boundary-00=_HmOCIiU9/lMc8dL Content-Type: text/x-diff; charset="us-ascii"; name="p.diff" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="p.diff" Content-length: 864 Index: decl.c =================================================================== --- decl.c (revision 134433) +++ decl.c (working copy) @@ -5683,11 +5683,12 @@ maybe_pad_type (tree type, tree size, un /* Unless debugging information isn't being written for the input type, write a record that shows what we are a subtype of and also make a - variable that indicates our size, if variable. */ + variable that indicates our size, if still variable. */ if (TYPE_NAME (record) && AGGREGATE_TYPE_P (type) - && (TREE_CODE (TYPE_NAME (type)) != TYPE_DECL - || !DECL_IGNORED_P (TYPE_NAME (type)))) + && TREE_CODE (orig_size) != INTEGER_CST + && !(TREE_CODE (TYPE_NAME (type)) == TYPE_DECL + && DECL_IGNORED_P (TYPE_NAME (type)))) { tree marker = make_node (RECORD_TYPE); tree name = TYPE_NAME (record); --Boundary-00=_HmOCIiU9/lMc8dL--