From patchwork Sun Mar 25 17:20:46 2012 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Eric Botcazou X-Patchwork-Id: 148574 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id 0D505B6EF1 for ; Mon, 26 Mar 2012 04:22:16 +1100 (EST) Comment: DKIM? See http://www.dkim.org DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d=gcc.gnu.org; s=default; x=1333300937; h=Comment: DomainKey-Signature:Received:Received:Received:Received:Received: Received:From:To:Subject:Date:User-Agent:MIME-Version: Content-Type:Message-Id:Mailing-List:Precedence:List-Id: List-Unsubscribe:List-Archive:List-Post:List-Help:Sender: Delivered-To; bh=4M86oiCOnSVtDsQeRmm1BHuvMj0=; b=SXNf1KlvfYSEm8D TNuJfYVNE5hvFYi/SgwbG2OmYRV69un7O/lZG8zVOb79qlbPYF9hhk+l8J/yBk8w Dlg/2e1oc6BrKDNQoo4Qrml+h7Ap/mWa1asxMO/PIcFkaEzq6qfafeyPjm+djJ8l h+MZwWekWpC5SAIOEvV31foVKs68= Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=default; d=gcc.gnu.org; h=Received:Received:X-SWARE-Spam-Status:X-Spam-Check-By:Received:Received:Received:Received:From:To:Subject:Date:User-Agent:MIME-Version:Content-Type:Message-Id:Mailing-List:Precedence:List-Id:List-Unsubscribe:List-Archive:List-Post:List-Help:Sender:Delivered-To; b=qJZQeIq8i5OL+4xd7Wdohe1MiPZaLiwWvxEvvqT44bgkM80jTksMn/0dcbootb SsaB3Uq2nFqZtvYhFtW8CzfyuhuRiq2WrCMDxxMZD3KEk1HKxxed5sT3CZaiD6ma g1wCFjedo8wf0plDoZMMZMdwVPWi/vS1VuSLd9Pkrgc+w=; Received: (qmail 9731 invoked by alias); 25 Mar 2012 17:22:10 -0000 Received: (qmail 9720 invoked by uid 22791); 25 Mar 2012 17:22:09 -0000 X-SWARE-Spam-Status: No, hits=-1.9 required=5.0 tests=AWL,BAYES_00 X-Spam-Check-By: sourceware.org Received: from mel.act-europe.fr (HELO mel.act-europe.fr) (194.98.77.210) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Sun, 25 Mar 2012 17:21:56 +0000 Received: from localhost (localhost [127.0.0.1]) by filtered-smtp.eu.adacore.com (Postfix) with ESMTP id 26A9429002C for ; Sun, 25 Mar 2012 19:21:59 +0200 (CEST) Received: from mel.act-europe.fr ([127.0.0.1]) by localhost (smtp.eu.adacore.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id Flcdah53dvTM for ; Sun, 25 Mar 2012 19:21:59 +0200 (CEST) Received: from [192.168.1.2] (bon31-6-88-161-99-133.fbx.proxad.net [88.161.99.133]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by mel.act-europe.fr (Postfix) with ESMTP id E57BA290027 for ; Sun, 25 Mar 2012 19:21:58 +0200 (CEST) From: Eric Botcazou To: gcc-patches@gcc.gnu.org Subject: [Ada] Minor tweak in gnat_to_gnu_entity Date: Sun, 25 Mar 2012 19:20:46 +0200 User-Agent: KMail/1.9.9 MIME-Version: 1.0 Message-Id: <201203251920.46241.ebotcazou@adacore.com> Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org This has probably no effects in practice, but for the sake of consistency... Tested on i586-suse-linux, applied on the mainline. 2012-03-25 Eric Botcazou * gcc-interface/decl.c (gnat_to_gnu_entity) : Copy the TYPE_PACKED flag from the base type. Index: gcc-interface/decl.c =================================================================== --- gcc-interface/decl.c (revision 185780) +++ gcc-interface/decl.c (working copy) @@ -3263,6 +3263,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entit gnu_type = make_node (RECORD_TYPE); TYPE_NAME (gnu_type) = gnu_entity_name; + TYPE_PACKED (gnu_type) = TYPE_PACKED (gnu_base_type); /* Set the size, alignment and alias set of the new type to match that of the old one, doing required substitutions. */