From patchwork Tue Jan 5 14:32:37 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Pierre-Marie de Rodat X-Patchwork-Id: 563145 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]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id 0BF4B140271 for ; Wed, 6 Jan 2016 01:33:02 +1100 (AEDT) Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b=kwp1V7TV; dkim-atps=neutral DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:from :subject:to:cc:message-id:date:mime-version:content-type :content-transfer-encoding; q=dns; s=default; b=RQOUz6dcAcC3dUzT rap3M4rX3kPk2zQwhD1FqiYuhgP3CeYRnTCbtqNpW2KCA/t4892h8N2vqDf2PQJZ WrQrR+QXPAh8Uwwn4FFFovKABe3YFd8jhMoP6/1UFuIhtA1nEg7/XT5Nul4J7gjK DZGGbjlhoOHfiJMoi6gsHICWBVk= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:from :subject:to:cc:message-id:date:mime-version:content-type :content-transfer-encoding; s=default; bh=sxVCc6nvxZKdSIAdHuEn0D ZQhqw=; b=kwp1V7TVBSZJPo85q1a50ruHPwrBtow/z5v6EzUVwpX8HuvzLVlYsr SUCBv90BKeFhP0xdgH6SuAQKZwaUCpC+JxM/IJeybILURuCg0K3OQvx3q+o9ju7i Nh/gfugqCj0QgwZ73k+JmP9ynWItGZ+L5sXOOT1Y+nPyFPjL9e7FA= Received: (qmail 110105 invoked by alias); 5 Jan 2016 14:32:41 -0000 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 Received: (qmail 110034 invoked by uid 89); 5 Jan 2016 14:32:40 -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_40, KAM_LAZY_DOMAIN_SECURITY, RCVD_IN_DNSWL_NONE autolearn=no version=3.3.2 spammy=TYPE_SIZE_UNIT, type_size_unit, xvu, Empty 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; Tue, 05 Jan 2016 14:32:40 +0000 Received: from localhost (localhost [127.0.0.1]) by filtered-smtp.eu.adacore.com (Postfix) with ESMTP id A8C002EE0036; Tue, 5 Jan 2016 15:32:37 +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 SiUcmnElPDdp; Tue, 5 Jan 2016 15:32:37 +0100 (CET) Received: from [10.10.1.112] (cacatoes.act-europe.fr [10.10.1.112]) (using TLSv1.2 with cipher ECDHE-RSA-AES128-GCM-SHA256 (128/128 bits)) (No client certificate requested) by smtp.eu.adacore.com (Postfix) with ESMTPSA id 9A3EE2EE0050; Tue, 5 Jan 2016 15:32:37 +0100 (CET) From: Pierre-Marie de Rodat Subject: [PATCH 2/2] Ada: add XVE/XVU parallel types to lexical scopes To: GCC Patches Cc: Eric Botcazou Message-ID: <568BD405.6070206@adacore.com> Date: Tue, 5 Jan 2016 15:32:37 +0100 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Thunderbird/38.5.0 MIME-Version: 1.0 X-IsSubscribed: yes Hello, This change adds TYPE_DECL nodes for XVE/XVU parallel types to lexical scopes so that these types are properly scoped in the debug information. Ok to commit? Thank you in advance! gcc/ada/ChangeLog: * gcc-interface/utils.c (rest_of_record_type_compilation): Add XVE/XVU parallel types to the current lexical scope. --- gcc/ada/gcc-interface/utils.c | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 779c376..0226c28 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -1937,6 +1937,7 @@ rest_of_record_type_compilation (tree record_type) = create_type_stub_decl (new_name, new_record_type); DECL_IGNORED_P (TYPE_STUB_DECL (new_record_type)) = DECL_IGNORED_P (TYPE_STUB_DECL (record_type)); + gnat_pushdecl (TYPE_STUB_DECL (new_record_type), Empty); TYPE_SIZE (new_record_type) = size_int (TYPE_ALIGN (record_type)); TYPE_SIZE_UNIT (new_record_type) = size_int (TYPE_ALIGN (record_type) / BITS_PER_UNIT);