From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 32408 invoked by alias); 20 Dec 2015 10:38:57 -0000 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 Received: (qmail 32391 invoked by uid 89); 20 Dec 2015 10:38:56 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-0.3 required=5.0 tests=AWL,BAYES_50,KAM_LAZY_DOMAIN_SECURITY,RCVD_IN_DNSWL_LOW autolearn=no version=3.3.2 spammy=Complex, gccinterface, gcc-interface, ebotcazouadacorecom X-HELO: smtp.eu.adacore.com Received: from mel.act-europe.fr (HELO smtp.eu.adacore.com) (194.98.77.210) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-GCM-SHA384 encrypted) ESMTPS; Sun, 20 Dec 2015 10:38:56 +0000 Received: from localhost (localhost [127.0.0.1]) by filtered-smtp.eu.adacore.com (Postfix) with ESMTP id 86D4D2EE0018 for ; Sun, 20 Dec 2015 11:38:53 +0100 (CET) Received: from smtp.eu.adacore.com ([127.0.0.1]) by localhost (smtp.eu.adacore.com [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 59ME54c3gEl1 for ; Sun, 20 Dec 2015 11:38:53 +0100 (CET) Received: from polaris.localnet (bon31-6-88-161-99-133.fbx.proxad.net [88.161.99.133]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by smtp.eu.adacore.com (Postfix) with ESMTPSA id 618D32EE0002 for ; Sun, 20 Dec 2015 11:38:53 +0100 (CET) From: Eric Botcazou To: gcc-patches@gcc.gnu.org Subject: [Ada] Fix ICE on component of complex as Out parameter Date: Sun, 20 Dec 2015 10:38:00 -0000 Message-ID: <48355810.RMBbOdfdxj@polaris> User-Agent: KMail/4.14.9 (Linux/3.16.7-29-desktop; KDE/4.14.9; x86_64; ; ) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="nextPart15942959.AxIrPCndoQ" Content-Transfer-Encoding: 7Bit X-SW-Source: 2015-12/txt/msg01956.txt.bz2 This is a multi-part message in MIME format. --nextPart15942959.AxIrPCndoQ Content-Transfer-Encoding: 7Bit Content-Type: text/plain; charset="us-ascii" Content-length: 510 This is a regression present on the mainline only, a small oversight in the overhaul of the implementation of renaming. Tested on x86_64-suse-linux, applied on the mainline. 2015-12-20 Eric Botcazou * gcc-interface/utils2.c (gnat_rewrite_reference) : New case identical to FLOAT_EXPR. : Likewise. 2015-12-20 Eric Botcazou * gnat.dg/complex1.adb: New test. * gnat.dg/complex1_pkg.ads: New helper. -- Eric Botcazou --nextPart15942959.AxIrPCndoQ Content-Disposition: attachment; filename="p.diff" Content-Transfer-Encoding: 7Bit Content-Type: text/x-patch; charset="UTF-8"; name="p.diff" Content-length: 432 Index: gcc-interface/utils2.c =================================================================== --- gcc-interface/utils2.c (revision 231856) +++ gcc-interface/utils2.c (working copy) @@ -2664,6 +2664,8 @@ gnat_rewrite_reference (tree ref, rewrit CASE_CONVERT: case FLOAT_EXPR: case FIX_TRUNC_EXPR: + case REALPART_EXPR: + case IMAGPART_EXPR: case VIEW_CONVERT_EXPR: result = build1 (code, type, --nextPart15942959.AxIrPCndoQ Content-Disposition: attachment; filename="complex1.adb" Content-Transfer-Encoding: 7Bit Content-Type: text/x-adasrc; charset="UTF-8"; name="complex1.adb" Content-length: 195 -- { dg-do compile } with Ada.Numerics.Complex_types; use Ada.Numerics.Complex_types; with Complex1_Pkg; use Complex1_Pkg; procedure Complex1 is Z : Complex; begin Coord (Z.Re, Z.Im); end; --nextPart15942959.AxIrPCndoQ Content-Disposition: attachment; filename="complex1_pkg.ads" Content-Transfer-Encoding: 7Bit Content-Type: text/x-adasrc; charset="UTF-8"; name="complex1_pkg.ads" Content-length: 81 package Complex1_Pkg is procedure Coord (x,y : out Float); end Complex1_Pkg; --nextPart15942959.AxIrPCndoQ--